Пример программы работы с ячейкой текущей книги Excel.

Sub Проба_1()

'Открывает форму на ограниченное время

Sheets("Лист1").Select 'Переход на Лист1

MsgBox ("После нажатия кнопки" & Chr(10) & "форма будет показана через 5 секунд!") 'Окно сообщения

Application.Wait (Now + TimeValue("0:00:5")) 'На 5 секунд приложение деактивировано

UserForm1.Show 'Показывает форму UserForm1

Range("C5").Activate 'Активирует ячейку C5

Dim Box_C5 As Range 'Объявляет переменную как диапазон ячеек

Set Box_C5 = Worksheets("Лист1").Range("C5") 'Устанавливает переменную как ячейку C5

Box_C5.Value = "Мое значение" 'Меняет значение в ячейке

ActiveCell.Interior.ColorIndex = 36 'Меняет цвет ячейки

MsgBox ("Надпись выведена" & Chr(10) & "Цвет ячейки изменён") 'Окно сообщения

ActiveCell.Interior.ColorIndex = 26 'Меняет цвет ячейки

MsgBox ("Меняем цвет ячейки ещё раз") 'Окно сообщения

Box_C5.Clear 'Очищает ячейку полностью

MsgBox ("Ячейка очищена") 'Окно сообщения

End Sub

 

Контрольные понятия для изучения.

1. Объекты OLE и ActiveX.

2. Классы и иерархия объектов.

3. Методы и свойства объектов.

4. Работа с аргументами методов и свойств объектов в среде Microsoft Excel.

Порядок выполнения.

9. Изучить теоретическую часть и занести в протокол основные положения.

10. Для студентов с номером по списку кратному трём, написать процедуру создания нового листа в книге Microsoft Excel, а затем его удаления с применением диалоговых окон InputBox и MsgBox.

11. Для студентов с номером по списку кратному четырём (кроме номеров кратных трём), создать процедуру подсчёта листов в книге Microsoft Excel с применением диалоговых окон InputBox и MsgBox.

12. Оставшимся студентам с нечётными номерами создать процедуру, копирующию столбец в книге Microsoft Excel с одного листа на другой и затем его очищающий с применением диалоговых окон InputBox и MsgBox.

13. Остальным студентам создать процедуру в Microsoft Excel копирования диапазона строк с одного листа книги на другой с применением диалоговых окон InputBox и MsgBox и использованием структуры Do Until … Loop.

14. Отладить и запустить эти программы на выполнение в среде Microsoft Excel.

15. Описать в комментариях объекты и действия над ними использованные в программах. Занести текст созданных процедур в протокол.

16. Отобразить в протоколе основные трудности, возникшие у Вас при создании программы.