Использование VBA
Использование VBA
В этих упражнениях Вы примените Visual Basic for Applications в Word и Excel.
> Использование VBA в Microsoft Word
- Запустите Microsoft Word и откройте файл VBA.doc в папке WA\Practice\Ch04.
- Если понадобится, в ответ на запрос об отключении макросов щелкните Enable Macros.
- В меню View, Toolbars установите флажок Visual Basic.
- В панели инструментов щелкните Design Mode.
- Поместите курсор в конец документа.
- В панели управления Control щелкните значок Command Button.
- Щелкните правой кнопкой мыши кнопку Command и выберите в меню ко манду Properties.
- Измените значение свойства Caption командной кнопки на Calculate.
- Закройте диалоговое окно Properties.
- Дважды щелкните кнопку Command, чтобы открыть окно кода VBA.
- В процедуре обработки щелчка кнопки 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
- Закройте редактор Visual Basic.
- Переключитесь в окно документа Word.
- В панели инструментов щелкните кнопку Exit Design Mode. Теперь заполните поля.
- Введите значения в каждое поле и щелкните кнопку Calculate.
- Сохраните изменения в документе и закройте Word.
> Использование VBA в Microsoft Excel
- Запустите Microsoft Excel.
- В меню View, Toolbars установите флажок Visual Basic.
- В панели инструментов Visual Basic щелкните Design Mode.
- В панели инструментов Visual Basic щелкните Control Toolbox.
- Добавьте в электронную таблицу Excel элемент управления «командная кнопка».
- Дважды щелкните на CommandButtonI для открытия редактора VBA.
- В событии Click командной кнопки наберите следующий код:
Cells.Range("A1") = "Hello world!"
- Щелкните Exit Design Mode в панели инструментов Visual Basic.
- Закройте редактор VBA.
- Щелкните кнопку CommandButtonI в Microsoft Excel.
В первой ячейке электронной таблицы появится строка «Hello World!».