Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.75
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.75

' Процедура вызова диалогового окна. Поля ' Чистый текущий объем ссуды Л и

л маргинальная процентная ставка

Л доступны для вывода информации, но не для ее ввода TextBox5.Enabled = False TextBoxG.Enabled = False

' Клавише Enter назначена функция кнопки Вычислить * Кнопке Вычислить назначен текст Л всплывающей подсказки With CommandButtonl /Default = True .ControlTipText = _

"Расчет и составление отчета на рабочем листе" End With

' Клавише Esc назначена функция кнопки Отмена

' Кнопке Отмена назначен текст всплывающей подсказки

With CoromandButton2

/Cancel = True

.ControlTipText = "Кнопка отмены" End With UserForml.Show End Sub

При написании программ, в которых используются те или иные возможности рабочего листа, а не только VBA, часто бывает удобным вариантом употребить средство MacroRecorder. Оно создаст макрос, описывающий на языке VBA осуществляемые вами действия. MacroRecorder является одним из интеллектуальных средств Microsoft Office, которое облегчает работу разработчиков приложений. Конечно, создаваемый им макрос будет во многих отношениях неоптимальным, но он даст хорошую подсказку, какие инструкции должны быть добавлены в программу, чтобы добиться требуемого эффекта.

Для активизации MacroRecorder выберите команду Сервис/Макрос/Начать запись и запустите MacroRecorder на запись. После задания всех параметров в появившемся диалоговом окне Запись макроса и нажатия кнопки ОК появится плавающая панель инструментов с кнопкой Остановить запись. Теперь все производимые действия будут записываться до тех пор, пока не будет нажата эта кнопка.

Предварительно решите уравнение, вычисляющее маргинальную процентную ставку. В ячейку В2 введено число вы-

Программирование в среде Visual Basic for Applications

плат, равное шести, ячейка В7 отведена под процентную ставку, а в ячейку В8 введена формула =ПЗ (В7 ; В2 ; В4), вычисляющая текущий объем ссуды. Требуется найти процентную ставку, при которой текущий объем ссуды равен 10 ООО.

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta