Использование VBA



Использование VBA

В этих упражнениях Вы примените Visual Basic for Applications в Word и Excel.

> Использование VBA в Microsoft Word

  1. Запустите Microsoft Word и откройте файл VBA.doc в папке WA\Practice\Ch04.
  2. Если понадобится, в ответ на запрос об отключении макросов щелкните Enable Macros.
  3. В меню View, Toolbars установите флажок Visual Basic.
  4. В панели инструментов щелкните Design Mode.
  5. Поместите курсор в конец документа.
  6. В панели управления Control щелкните значок Command Button.
  7. Щелкните правой кнопкой мыши кнопку Command и выберите в меню ко манду Properties.
  8. Измените значение свойства Caption командной кнопки на Calculate.
  9. Закройте диалоговое окно Properties.
  10. Дважды щелкните кнопку Command, чтобы открыть окно кода VBA.
  11. В процедуре обработки щелчка кнопки CommandButton1 наберите следую щий код (он вычисляет ежемесячную выплату по кредиту):

    On Error GoTo ErrorHandler



    If APR > 1 Then APR = APR / 100 'Проверка значения If chkEOM = True Then

    PayType = 0 Else

    PayType = 1 End If

    IblMOpayment = Format(Pmt(APR / 12, TotPmts, -Pval, 0, PayType), "currency") Exit Sub

    ErrorHandler:

    IblMOpayment = 0

  12. Закройте редактор Visual Basic.
  13. Переключитесь в окно документа Word.
  14. В панели инструментов щелкните кнопку Exit Design Mode. Теперь заполните поля.
  15. Введите значения в каждое поле и щелкните кнопку Calculate.
  16. Сохраните изменения в документе и закройте Word.

> Использование VBA в Microsoft Excel

  1. Запустите Microsoft Excel.
  2. В меню View, Toolbars установите флажок Visual Basic.
  3. В панели инструментов Visual Basic щелкните Design Mode.
  4. В панели инструментов Visual Basic щелкните Control Toolbox.
  5. Добавьте в электронную таблицу Excel элемент управления «командная кнопка».
  6. Дважды щелкните на CommandButtonI для открытия редактора VBA.
  7. В событии Click командной кнопки наберите следующий код:

    Cells.Range("A1") = "Hello world!"

  8. Щелкните Exit Design Mode в панели инструментов Visual Basic.
  9. Закройте редактор VBA.
  10. Щелкните кнопку CommandButtonI в Microsoft Excel.

    В первой ячейке электронной таблицы появится строка «Hello World!».



Содержание раздела