Лабораторная работа_9

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.

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

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

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

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

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

5.Остальным студентам создать процедуру в Microsoft Excel копирования диапазона строк с одного листа книги на другой с применением диалоговых окон

InputBox и MsgBox и использованием структуры Do Until … Loop.

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

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

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