|
Офисное программирование - Использование метода GoalSeek |
Страница 40 из 51
Использование метода GoalSeek Пример 41. Разработать программу, которая по введенным числовым значениям некоторого уравнения решает данное уравнение и находит неизвестную переменную х. Результат вычисления выводится в текстовое окно на форме и на лист Excel.
Рис. 92. Разработанная форма примера 41 в рабочем состоянии
Технология выполнения 1. Запустите приложение Excel, сохраните документ. 2. Перейдите в редактор VBA. 3. Создайте форму согласно приведенному рис. 92. 4. На листе Excel расположите необходимый текст (оформление), предусмотрев соответствующие ячейки вывода информации (рис. 93).
Рис. 93. Вывод результатов на лист excel после запуска формы примера 41 5. Обработайте кнопки. Кнопка Вычислить
Private Sub CommandButton1_Click() Dim a, b, c As Double a = CDbl(TextBox1.Text) b = CDbl(TextBox2.Text) c = CDbl(TextBox3.Text) With ActiveSheet Range(«b3»).Value = a Range(«b4»).Value = b Range(«b5»).Value = c Range(«b6»).FormulaLocal = «=b3*b7^3+b4*sin(b7)» Range(«b6»).GoalSeek Goal:=c, changingCell:=Range(«b7») TextBox4.Text = CStr(.Range(«b7»).Value) TextBox4.Text = FormatNumber(TextBox4.Text, 2) End With End Sub
Кнопка Закрыть
Private Sub CommandButton2_Click() UserForm1.Hide End Sub
Процедура инициализации формы
Private Sub UserForm_initialize() Worksheets(1).Visible = False End Sub
|
|