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

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

‘(вниз на одну)

Range(“C5”).Select

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

‘(вверх на одну)

3.4.2 Занесение в ячейку листа формул

Чтобы занести выражение в ячейку электронной таблицы необходимо:

- адресоваться к ней способами, изложенными выше;

- вызвать метод Formula.

Ниже приведены примеры для различных способов адресации к ячейке:

а) прямая ссылка на имя ячейки: Range(“A1”).Formula= ”=a1+a2”;

б) прямая ссылка на номер ячейки: Cells(1,1).Formula= “=a1+a2”;

в) косвенная ссылка на имя ячейки:

Range(“A1”).Select

ActiveCell.Formula= “=a1+a2”

г) косвенная ссылка на ячейку по приращению:

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

ActiveCell.Formula= “=a1+a2”

Непосредственно использовать в макросах на Visual Basic функций Excel можно через инструкцию WorksheetFunction.Имя_функции(список параметров). Параметр, содержащий ссылку на ячейку, оформляется как было изложено выше:

Dim a As Double

a=10+WorksheetFunction.Acos(Range(“A1”))

‘Вычисление ArcCos ячейки А 1

a=10+WorksheetFunction.Acos(Cells(1,1))

‘Вычисление ArcCos ячейки А1

Для операций с группой ячеек достаточно указать их размещение в операторе Range (“A1:B3”):

a= WorksheetFunction.Min(Range(“A1:B3”))

‘Поиск минимального значения в блоке А1:В3

Для удобства используется оператор Set (присвоить), позволяющий назначить переменной типа Range область ячеек:

Dim ab As Range