Объекты Range, Select, Cells

Объект Range, независимо от текущего выделения в рабочем листе, представляет собой одну ячейку, строку или столбец рабочего листа, а также произвольный двух- или трехмерный блок ячеек рабочей книги. Свойство Cells объектов Application, Worksheets и Range возвращает объект Range, который ссылается на все ячейки активного рабочего листа, заданного рабочего листа или заданного диапазона соответственно. Свойство Item позволяет адресоваться к любой ячейке в заданном диапазоне. Справка по основным командам обмена информацией между программой и таблицей рабочего листа:

 

Команда	Описание команды
Q=ActiveCell	Получение активной ячейки
Q=ActiveCell.Adress	Получение диапазона, ограниченного ближайшими пустыми строками, столбцами или границами таблицы
Worksheets(“Лист1”).Cells(4,6).Value=”ABC”	Запись строки «АВС» в ячейку F4 рабочего листа «Лист1» (F – шестая колонка)
Worksheets(“Лист1”).Range(“F1”).Value=3.14	Запись числа 3.14 в ячейку F1 рабочего листа «Лист1»
Range(“D5”).Value=”=10*A1”	Запись формул в заданные ячейки (знак доллара означает абсолютное смещение)
Worksheets(“Лист1”).Range(“A4”).Formula= ”=$A$1+$A$2”
Range(“D5”).Value=”=sum(B1:B10)”	Запись встроенной функции в ячейку D5 рабочего листа
Q=Worksheets(“Лист1”).Cells(2,2).Value	Чтение содержимого ячейки В2 (В – вторая колонка)
Q=Worksheets(“Лист1”).Range(“A4”).Value	Чтение результата формулы, находящейся в ячейке А4
Q=Worksheets(“Лист1”).Range(“A4”).Formula	Чтение формулы, находящейся в ячейке А4

 

Пример 14. Заполнение первых десяти ячеек четвертой строки квадратами чисел от 1 до 10.

 

Sub Макрос1()

For i=1 To 10

Worksheets(“Лист1”).Cells(4,i).Value=i*i

Next i

End Sub

 

Задание 3.2. Заполните семь ячеек пятой колонки квадратными корнями чисел от 1 до 7. Подсказка: sqr(x) – функция, вычисляющая квадратный корень числа х.

Задание 3.3. Заполните пять ячеек второй колонки случайными числами. Подсказка: Пример функции, возвращающей случайное число от 0 до 1 в ячейку А1: Worksheets(2).Cells(1,1).Formula=”=rand()”

Задание 3.4. На основании результатов работы программы из задания 3, разработайте программу, определяющую сумму в столбце. Подсказка: используйте встроенную функцию “=sum(B1:B5)”

Приложение

 

ФБГОУ ВПО Кубанский государственный технологический университет

(КубГТУ)

 

 

Контрольная работа

 

по дисциплине Прикладное программирование

^{(наименование дисциплины)}

Выполнил (а) студент (ка) группы ________________________________

_____________________________________________________________

(фамилия, имя отчество студента)

Факультета Машиностроения и автосервиса

 

Преподаватель Носова Юлия Сергеевна

Кафедры ВТ и АСУ, факультета КТАС

 

Защищена _____________________

^(дата)

Краснодар