События окна Form1 Option Explicit Событие происходит когда пользовате

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
'События окна Form1
Option Explicit
'Событие происходит, когда пользователь загружает форму
Private Sub MultiPage1_Layout(ByVal Index As Long)
Dim tasks As Task
Set tasks = New Task
'Вставляются данные в выпадающие списки
tasks.insertCountriesInComboBox
tasks.insertLegalsInComboBox Form.legals_comboBox
tasks.insertActivitiesInComboBox
tasks.insertLegalsInComboBox Form.companies_comboBox
tasks.insertTaxTypesInComboBox Form.listOfTaxTypes_comboBox
tasks.insertTaxTypesInComboBox Form.add_taxTypes_comboBox
tasks.insertLegalsInComboBox Form.add_companies_comboBox
End Sub
'подпрограмма исполняется, когда мы нажимаем на кнопку "Получить список организаций"
Private Sub getListOfLegals_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
'ускоряем макрос (отключаем перерисовку таблиц и прочее)
funcs.speedUp True
'печатаем список компаний
tasks.printListOfLegals
'возвращаем Excel в исходное состояние
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить список деятельностей для компании
Private Sub getCompanyActivities_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'печатаем список
tasks.printListOfCompanyActivities
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить список компаний для заданной деятельности
Private Sub getListOfLegalsForActivity_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'печатаем список
tasks.printLegalsForActivity
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить полную информацию о налогах для заданной компании
Private Sub printInfoAboutCompany_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
tasks.printInfoAboutCompany
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить все налоги для заданного вида налога
Private Sub printInfoAboutTaxType_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
tasks.printTaxesForTaxType
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить список налогов, которые не были оплачены вовремя
Private Sub printNotPaidCompanies_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'печатаем список
tasks.printNotPaidCompanies
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить список проверок, которые были пройдены с результатом не удовлетворительно
Private Sub printListOfFailedCheck_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'печатаем список
tasks.printListOfFailedCheck
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы добавить новый налог для выбранной компании
Private Sub add_tax_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'добавляем налог
tasks.addTax
funcs.speedUp False
End Sub