Форма 4
Задание:
Сделать программу в VBA для функции
aX1+bX2+c=0
Выполнение:
• Создали новый документ Excel
• Создали новый модуль VBA ( Alt+F11→Insert Modul)
• Следуя инструкциям, создали программу VBA
Private Sub CommandButton1_Click()
Dim a, b, c, D As Double
a = CDbl(TextBox1)
b = CDbl(TextBox2)
c = CDbl(TextBox3)
D = b * b - 4 * a * c
If a = 0 Then
TextBox4 = -c / b
TextBox5 = Empty
Else
If D >= 0 Then
TextBox4 = (-b + Sqr(D)) / (2 * a)
TextBox5 = (-b - Sqr(D)) / (2 * a)
Else
TextBox4 = "Корней нет"
TextBox5 = Empty
End If
End If
End Sub
• Вернувшись на лист Excel, создали с помощью Разработчика кнопку «Показать форму»
Затем в VBA запустили программму
Форма 5
Задание:
Задать форму в VBA
Выполнение:
• Создали новый документ Excel
• Создали новый модуль VBA ( Alt+F11→Insert Modul)
• Следуя инструкциям, создали программу VBA
Private Sub CommandButton1_Click()
Static icount As Long
Dim I As Integer
I = 0
While icount <= 10
icount = icount + 1
ListBox1.AddItem Cells(1 + icount, 1)
ListBox1.List(I, 1) = CDbl(Cells(1 + icount, 2))
I = I + 1
Wend
End Sub
Private Sub CommandButton2_Click()
Dim I As Integer, n As Integer
n = 0
For I = 0 To 10
If ListBox1.List(I, 0) = CStr(TextBox1) Then
TextBox2 = ListBox1.List(I, 1)
n = 1
End If
Next I
If n = 0 Then MsgBox "Такой фамилии нет"
End Sub
Private Sub CommandButton3_Click()
Dim I As Integer, n As Integer
n = 14
For I = 0 To 10
n = n + 1
Cells(n, 10) = ListBox1.List(I, 1)
Next I
Cells(15, 11) = "=max(j15:j25)"
TextBox3 = CStr(Cells(15, 11))
End Sub
Sub UserForm_initialize()
With ListBox1
.ColumnCount = 2
.ColumnWidths = "60;60"
End With
End Sub
Перешли на лист Excel
Записали 10 фамилий и их доход
Запустили программу и выполнили нужные действия
Теперь мы можем найти интересующие фамилии, вывести на экран зарплату.
Заключение
Excel - это программа для работы с таблицами семейства Microsoft Office. Основная идея программы Excel состоит: хранит информацию, организуя ее с помощью таблиц. Однако хранение информации - это еще половина дела. Второе и главное преимущество Excel - это многочисленные возможности для анализа этой информации: проведения всевозможных вычислений, построения наглядных зависимостей. Любому, кто сталкивался с необходимостью анализировать какую-либо информацию известно, что даже если нет необходимости в выполнении вычислений, иногда имеет смысл располагать информацию в табличной форме, чтобы подчеркнув тем самым некую систему, облегчить ее субъективное восприятие. Поэтому и сама программа Excel ориентирована на самый широкий круг пользователей и применима при решении широчайшего спектра задач.
Вычислительные возможности Excel и ее способности по редактированию и форматированию дают в итоге чудесную программу для создания любого документа, который может содержать текстовые и числовые данные и позволяет выполнять вычисления.
Поскольку таблицы содержат динамические формулы, их итоговые значения всегда будут актуальны. А это очень важно в современных условиях.