Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Объекты 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)”
Приложение А
ФБГОУ ВПО Кубанский государственный технологический университет
(КубГТУ)
Контрольная работа
по дисциплине Прикладное программирование
(наименование дисциплины)
Выполнил (а) студент (ка) группы ________________________________
_____________________________________________________________
(фамилия, имя отчество студента)
Факультета Машиностроения и автосервиса
Преподаватель Носова Юлия Сергеевна
Кафедры ВТ и АСУ, факультета КТАС
Защищена _____________________
(дата)
Краснодар
Date: 2016-05-24; view: 398; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |