Дипломная работа: Решение задач с помощью современых компьютерных технологий

Получить значение из ячейки A1 листа следующего первым по порядку в текущей книге (файле *. xls )

a = Workbooks(“Work.xls”).Worksheets(1).Range(“A1”).Value

Получить значение из ячейки A1 листа следующего первым по порядку в книге “ Work . xls ”

Range (“A1”).Value = a ‘Занести значение из переменной a в ячейку А1

б) прямая ссылка на номер ячейки. Если представить ячейку таблицы, как элемент двухмерной таблицы, то, например, ячейка “A1” будет иметь ссылку “1,1”(строка, столбец).

a = Cells(2,2).Value ‘Получить значение из ячейки В2 текущей таблицы

a = Worksheets(“Лист1”).Cells(2,2).Value

a = Worksheets(1).Cells(2,2).Value

a = Workbooks(“Work.xls”).Worksheets(1).Cells(2,2).Value

Cells(2,2).Value = a ‘Занести значение из переменной а в ячейку В2

в) Косвенная ссылка на имя ячейки. На первом шаге необходимо выделить необходимую ячейку инструкцией Range (“A2”).Select , а далее получить доступ к ячейке с помощью инструкции ActiveCell . FormulaR 1 C 1 (всегда возвращается значение типа текст, поэтому необходимо преобразовывать полученное значение с помощью функций CDbl , CInt , Val и тому подобных):

Range(“A2”).Select ‘Перейти на ячейку А2 текущей таблицы

a = CDbl(ActiveCell.FormulaR1C1) ‘Получить значение из выделенной ‘ячейки и преобразовать его к типу Double

Range(“A2”).Select ‘Перейти на ячейку А2 текущей таблицы

ActiveCell.FormulaR1C1 = a ‘Занести значение переменной а в ‘выделенную ячейку

Для выделения ячейки А1 определенного листа в определенной книге (файле *.xls) необходимо:

1) активизировать открытую книгу (файл *.xls) инструкцией Windows(“Книга2.xls”).Activate;

2) активизировать нужный лист книги инструкцией Worksheets(“Лист1”).Activate;

3) перейти к ячейке: Range(“A1”).Select.

г) косвенная ссылка на ячейку по приращению. Позволяет выделить ячейку (перейти к ячейке) по приращению от текущей (Offset (приращение_по_строке, приращение_по_столбцу)):

ActiveCell.Offset(0,1).Range(“A1”).Select

В данном случае оператор Range (“A1”) – ключевое слово конструкции и не более.

Пусть мы выделили ячейку “С5” (Range(“C5”).Select), тогда имеем:

Range(“C5”).Select

ActiveCell.Offset(0,1).Range(“A1”).Select ‘Перейти к ячейке D5

‘(вправо на одну)

Range(“C5”).Select

ActiveCell.Offset(0,-1).Range(“A1”).Select ‘Перейти к ячейке B5

‘(влево на одну)