ВУЗ:
Составители:
Рубрика:
39
2. Осуществить ввод элементов массива CountryArray(5) внутри цикла
For-next с помощью окна ввода InputBox.
3. С использованием управляющей структуры For Each vrnCountry In
CountryArray … Next vrnCountry выдать названия стран на экран в
виде сообщений с помощью функции MsgBox.
Задание 15. Написать процедуру Sub с именем Proc15_ForEachNext
предназначенную для выполнения одной и той же группы действий над
каждым объектом семейства объектов по следующему алгоритму
:
1. Выполнить описание переменной SheetVar как объектной типа рабо-
чего листа и переменной Cell как объектной типа диапазонс помо-
щью оператора Dim.
2. С использованием управляющей структуры For Each SheetVar In Ac-
tiveWorkbook.WorkSheets … Next SheetVar перебрать все листы ак-
тивной рабочей книги и вызвать для каждого из них метод Select.
Внутренней управляющей структурой For Each Cell In Range
(“A1:F20”) … Next Cell изменить цвет фона ячеек диапазона
“A1:F20” на светло-серый
(номер цвета 15).
Задание 16. Написать процедуру Sub с именем Proc16_With() пред-
назначенную для изменения содержимого и внешнего вида ячейки с адре-
сом А1 третьего рабочего листа активной рабочей книги по следующему
алгоритму:
1. С помощью управляющей структуры With – End With применить ме-
тоды выделения и снятия защиты к третьему рабочему листу актив-
ной рабочей книги.
2.
С помощью внутренней управляющей структуры With – End With
вывести содержимое ячейки А1 выделенного листа, затем изменить
значение этой ячейки на 200, высоту ячейки - на 60, ширину столбца
- на 20 размер шрифта - на 20 цвет заливки этой ячейки изменить на
красный.
2. Осуществить ввод элементов массива CountryArray(5) внутри цикла For-next с помощью окна ввода InputBox. 3. С использованием управляющей структуры For Each vrnCountry In CountryArray … Next vrnCountry выдать названия стран на экран в виде сообщений с помощью функции MsgBox. Задание 15. Написать процедуру Sub с именем Proc15_ForEachNext предназначенную для выполнения одной и той же группы действий над каждым объектом семейства объектов по следующему алгоритму: 1. Выполнить описание переменной SheetVar как объектной типа рабо- чего листа и переменной Cell как объектной типа диапазонс помо- щью оператора Dim. 2. С использованием управляющей структуры For Each SheetVar In Ac- tiveWorkbook.WorkSheets … Next SheetVar перебрать все листы ак- тивной рабочей книги и вызвать для каждого из них метод Select. Внутренней управляющей структурой For Each Cell In Range (“A1:F20”) … Next Cell изменить цвет фона ячеек диапазона “A1:F20” на светло-серый (номер цвета 15). Задание 16. Написать процедуру Sub с именем Proc16_With() пред- назначенную для изменения содержимого и внешнего вида ячейки с адре- сом А1 третьего рабочего листа активной рабочей книги по следующему алгоритму: 1. С помощью управляющей структуры With – End With применить ме- тоды выделения и снятия защиты к третьему рабочему листу актив- ной рабочей книги. 2. С помощью внутренней управляющей структуры With – End With вывести содержимое ячейки А1 выделенного листа, затем изменить значение этой ячейки на 200, высоту ячейки - на 60, ширину столбца - на 20 размер шрифта - на 20 цвет заливки этой ячейки изменить на красный. 39
Страницы
- « первая
- ‹ предыдущая
- …
- 37
- 38
- 39
- 40
- 41
- …
- следующая ›
- последняя »