Самоучитель VBA



         

Практика - часть 6


После задания всех параметров в появившемся диалоговом окне Запись макроса (Record Macro) и нажатия кнопки ОК появится плавающая панель инструментов с кнопкой Остановить запись (Stop Recording). Теперь все производимые действия будут записываться до тех пор, пока не будет нажата эта кнопка. Постройте примечания по следующему алгоритму. Кроме того, для того чтобы разобраться, как программируется закрепление области на рабочем листе, в этот алгоритм входит также и закрепление первой строки рабочего листа.

  • Щелкните кнопку заголовка второй строки. Вторая строка выделится. Выберите команду Окно, Закрепить области (Window, Freeze Panes).

  • Выделите ячейку A1 и нажмите кнопку Надпись (Text box) панели инструментов Рисование (Drawing). В появившееся текстовое поле введите текст Фамилия клиента.

  • Выделите ячейку BI и нажмите кнопку Надпись (Text Box) панели инструментов Рисование (Drawing). В появившееся текстовое поле введите текст имя клиента и т. д. последовательно для ячеек от С1 до H1 .

    Перечисленные выше действия будут переведены MacroRecorder в следующий макрос.

    Sub Макрос1()

    '

    ' Макрос1 Макрос

    ' Макрос записан 28.04.99 (Андрей)

    '

    Range("2:2").Select

    ActiveWindow.FreezePanes = True

    Range("Al").AddComment

    Range("A1"}.Comment.Visible = False

    Range ("Al"). Comment.Text Тех^="Фамилия клиента"

    Range("Bl").AddComment

    Range("Bl").Comment.Visible = False

    Range("Bl").Comment.Text Text:="Имя клиента"

    Range("Cl").AddComment

    Range("Cl").Comment.Visible = False

    Range("Cl").Comment.Text Text:="Пол клиента"

    Range("Dl").AddComment

    Range("Dl").Comment.Visible = False

    Range("Dl").Comment.Text Text:="Направление" & Chr(10) &

    "выбранного тура" Range("El").AddComment

    Range("El").Comment.Visible = False

    Range("El").Comment.Text Text:="Путевка оплачена?" & Chr(10) &



    Содержание  Назад  Вперед