Есть калькулятор сделанный в Excel 2003 с использованием элементов управления, работает как часики, все условия выполняются, лшибок при работе с ним не выдает. но как только нажимаем закрыть файл или закрыть Excel выдает ошибку Run-time error '424': Object required. Если нажать Debug выделяет строку
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.
Private Sub purpose_Change()
If purpose.Value = "Занятие любительским или профессиональным спортом, участие в соревнованиях, тренировках, сборах" Then
-> Label1.Visible = True <-
Sport.Visible = True
Else
Label1.Visible = False
Sport.Visible = False
End If
If purpose.Value <> "Занятие любительским или профессиональным спортом, участие в соревнованиях, тренировках, сборах" Then
SporytType.Visible = False
Label2.Visible = False
Else
End If
If purpose.Value = "Выезд за границу для работы по найму или по контракту" Then
Label3.Visible = True
JobType.Visible = True
Else
Label3.Visible = False
JobType.Visible = False
End If
If Multiplicity.Value = "Многократная поездка" And purpose.Value = "Занятие любительским или профессиональным спортом, участие в соревнованиях, тренировках, сборах" Or purpose.Value = "Выезд за границу для работы по найму или по контракту" Or purpose.Value = "Туризм, отдых, деловые или гостевые поездки, не подразумевающие занятие каким либо видом спортом" Then
Label8.Visible = True
Contracttime.Visible = True
Label7.Visible = True
Contracttime.Enabled = True
Label8.Enabled = True
EducationPeriod.Visible = False
Else
Contracttime.Enabled = False
Label8.Enabled = False
Contracttime.Value = ""
EducationPeriod.Visible = True
End If
'Sport.Value = ""
'SporytType.Value = ""
End Sub
что в этой строке не так?
Пробовала закоментировать эту строку, так он каждый раз спускается на строку ниже и так пока все условия не уберешь :-(
