47161 (Информационно-аналитическая система Казанского вокзала), страница 2
Описание файла
Документ из архива "Информационно-аналитическая система Казанского вокзала", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "47161"
Текст 2 страницы из документа "47161"
Sheets(1).Select
Set e = Sheets(1).Cells(2, 2)
Set w = Sheets(2).Cells(2, 1)
Set k = Sheets(3).Cells(2, 3)
Do While Not IsEmpty(e)
Set f = e.Offset(1, 0)
If e.Text = ListBox1.Text And e.Offset(0, 1).Text = ComboBox1 Then
TextBox9.Text = e.Offset(0, -1).Text
a = e.Offset(0, 4)
b = e.Offset(0, 5)
c = e.Offset(0, 6)
d = e.Offset(0, 7)
End If
Set e = f
Loop
Do While Not IsEmpty(k)
Set l = k.Offset(1, 0)
If k.Text = ListBox1.Text And k.Offset(0, -2).Text = TextBox9.Text Then
If k.Offset(0, 1).Text = "A" Then
a = a - 1
ElseIf k.Offset(0, 1).Text = "B" Then
b = b - 1
ElseIf k.Offset(0, 1).Text = "C" Then
c = c - 1
Else
d = d - 1
End If
End If
Set k = l
Loop
TextBox1.Text = a
TextBox2.Text = b
TextBox3.Text = c
TextBox4.Text = d
Do While Not IsEmpty(w)
Set v = w.Offset(1, 0)
If w.Text = TextBox9.Text Then
TextBox5.Text = w.Offset(0, 1)
TextBox6.Text = w.Offset(0, 2)
TextBox7.Text = w.Offset(0, 3)
TextBox8.Text = w.Offset(0, 4)
End If
Set w = v
Loop
End Sub
Private Sub UserForm_Activate()
Dim c As Object, d As Object
Sheets(1).Select
Set c = Range("C2")
Do While Not IsEmpty(c)
Set d = c.Offset(1, 0)
ComboBox1.AddItem c
Set c = d
Loop
End Sub
-
Составить ведомость выручек на каждый рейс.
ListBox1.Clear
Dim i As Integer, j As Integer, l As Integer, r As Integer, z As Integer, x As Integer, a As Integer, _
b As Integer, c As Integer, d As Integer, y As Long, t As Integer, k As Integer
Do
i = i + 1
If Sheets(1).Cells(i, 1) = "" Then
j = i - 1
Exit Do
End If
Loop
i = 1
Do
i = i + 1
If Sheets(2).Cells(i, 1) = "" Then
l = i - 1
Exit Do
End If
Loop
i = 1
Do
i = i + 1
If Sheets(3).Cells(i, 1) = "" Then
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, а также поручать компьютеру самому создавать большие куски кода приложения.
Список использованных источников
-
Гарнаев А.Ю. Microsoft Excel 2002: разработка приложений. – Санкт-Петербург, 2003.
-
Информатика (Методические указания к выполнению курсовой работы) И.В.Макарова, Ю.Н.Смирнов
-
Информатика (Использование возможностей VBA для создания приложений) И.В.Макарова, Ю.Н.Смирнов