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

     роля равно “P333”, то каждому элементу управления формы устано-
     вить следующие атрибуты шрифта: имя шрифта – “Times New Ro-
     man”, размер шрифта – 18, начертание шрифта – не курсив.
  5. Если пароль введен неправильный, то выдать сообщение о повтор-
     ном вводе пароля с помощью функции MsgBox.

      Задание 12. Написать процедуру Sub с именем Proc12_ForEachNext
предназначенную для выполнения одной и той же группы действий над
каждым объектом семейства объектов по следующему алгоритму:
   1. Выполнить описание переменной, используемой в программе,
      VrnSheet как объектной типа рабочего листа с помощью оператора
      Dim.
   2. С использованием управляющей структуры For Each VrnSheet In Ac-
      tiveWorkbook.WorkSheets … Next vrnSheet выдать последовательно
      имена рабочих листов активной рабочей книги на экран в виде со-
      общений с помощью функции MsgBox.

      Задание 13. Написать процедуру Sub с именем Proc13_ForEachNext
предназначенную для выполнения одной и той же группы действий над
каждым объектом семейства объектов по следующему алгоритму:
   1. Выполнить описание переменной, используемой в программе, Book
      как объектной типа рабочей книги и переменной x как целой с по-
      мощью оператора Dim.
   2. С помощью цикла For – Next создать десять новых книг с использо-
      ванием метода Add.
   3. С помощью метода Arrange применительно к семейству объектов
      Windows, упорядочить расположение окон десяти созданных книг на
      экране и приостановить выполнение программы выводом на экран
      окна сообщения.
   4. С использованием управляющей структуры For Each Book In Appli-
      cation.Workbooks … Next Book сравнить имя каждой рабочей книги с
      именем книги ThisWorkbook. Если имена не совпадают, то для теку-
      щей книги вызвать метод Close.
   5. Развернуть окно активной рабочей книги на всю рабочую область
      окна Excel.

      Задание 14. Написать процедуру Sub с именем Proc14_ForEachNext
предназначенную для выполнения одной и той же группы действий над
каждым объектом семейства объектов по следующему алгоритму:
   1. Выполнить описание одномерного массива CountryArray(5), состоя-
      щего из названий пяти стран и описание переменной, используемой
      в программе, vrnCountry типа Variant с помощью оператора Dim.

                                 38