r = i - 1
Exit Do
End If
Loop
For z = 2 To j
For x = 2 To r
If Sheets(3).Cells(x, 1).Text = Sheets(1).Cells(z, 1).Text And _
Sheets(3).Cells(x, 3).Text = Sheets(1).Cells(z, 2).Text Then
If Sheets(3).Cells(x, 4).Text = "A" Then
a = a + 1
ElseIf Sheets(3).Cells(x, 4).Text = "B" Then
b = b + 1
ElseIf Sheets(3).Cells(x, 4).Text = "C" Then
c = c + 1
Else
d = d + 1
End If
End If
Next x
For t = 2 To l
If Sheets(2).Cells(t, 1).Text = Sheets(1).Cells(z, 1).Text Then
y = a * Sheets(2).Cells(t, 2).Value + b * Sheets(2).Cells(t, 3).Value + _
c * Sheets(2).Cells(t, 4).Value + d * Sheets(2).Cells(t, 5).Value
End If
Next t
ListBox1.AddItem (Sheets(1).Cells(z, 1).Text)
ListBox1.List(k, 1) = Sheets(1).Cells(z, 2).Text
ListBox1.List(k, 2) = Sheets(1).Cells(z, 3).Text
ListBox1.List(k, 3) = y
k = k + 1
Next z
End Sub
В данной курсовой работе были реализованы автоматизированные операции с рабочим листом, обработка и анализ данных, пользовательский интерфейс (строка меню, панель инструментов, контекстное меню, пользовательские формы).
Процесс создания был облегчен мощными интеллектуальными средствами, которые позволяют даже начинающему пользователю самостоятельно разрабатывать профессиональные приложения. Так при написании кода программы редактор VBA сам предлагает возможные продолжения кода. Макрорекодер, который переводит вручную выполненные действия пользователя, позволяет пользователю понять алгоритмы VBA, а также поручать компьютеру самому создавать большие куски кода приложения.
Список использованных источников
1. Гарнаев А.Ю. MicrosoftExcel 2002: разработка приложений. – Санкт-Петербург, 2003.
2. Информатика (Методические указания к выполнению курсовой работы) И.В.Макарова, Ю.Н.Смирнов
3. Информатика (Использование возможностей VBA для создания приложений) И.В.Макарова, Ю.Н.Смирнов