Visual Basic for Applications. Практика. Нагина Е.К - 39 стр.

UptoLike

Составители: 

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