Написать макрос который будет работать в виде теста и в конце выводить результат

@arturs1 · Регистрация: 27.04.2015

Здравствуйте, есть задача написать макрос который будет работать в виде теста и в конце выводить результат, написал данное 2+2=.rar, но не работает, хотя как бы должно... ошибку найти не могу, помогите пжл. Так же побывал делать как тут но выкидывает ошибку run time error 2147...

shanemac51 · 29.04.2015, 17:27

такой маленький файл можно выложить на форум, зазиповав
а не гонять по файлообменникам

@arturs1 · 29.04.2015, 21:49 **[ТС]**

ок, буду знать, а что по моему вопросу скажите ?

@arturs1 · 04.05.2015, 12:25 **[ТС]**

Visual Basic

Private Sub CommandButton1_Click()
 
Z = 0
L = 0
N = 0
 
 
If OptionButton3.Value = True Then
L = L + 1
End If
Z = Z + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
SlideShowWindows(1).View.Next
End Sub

Visual Basic

Private Sub CommandButton1_Click()
Label1.Caption = Z
Label2.Caption = L
N = (L / Z) * 100
Label3.Caption = N‘
If N >= 85 Then
Label4.Caption = «Īņėč÷ķī»
End If
If N < 85 And N >= 60 Then
Label4.Caption = «Õīšīųī»
End If
If N < 60 And N >= 30 Then
Label4.Caption = «Ņąź - ńå»
End If
If N < 30 Then
Label4.Caption = «Ļėīõī»
End If
End Sub
 
Private Sub CommandButton2_Click()
Slide5.Application.Quit
End Sub

И выкидывает ошибку в чём проблема?
или может кто даст пример рабочего кода для теста?

@arturs1 · 07.05.2015, 22:37 **[ТС]**

апп

@arturs1 · 10.05.2015, 18:26 **[ТС]**

Помогите пжл

shanemac51 Модератор 10269 / 4183 / 679 Регистрация: 07.08.2010 Сообщений: 11,793 Записей в блоге: 4
	29.04.2015, 17:27	2
	такой маленький файл можно выложить на форум, зазиповав а не гонять по файлообменникам 0

@arturs1 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 7
	29.04.2015, 21:49 [ТС]	3
	ок, буду знать, а что по моему вопросу скажите ? 0

@arturs1 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 7
	07.05.2015, 22:37 [ТС]	5
	апп 0

@arturs1 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 7
	10.05.2015, 18:26 [ТС]	6
	Помогите пжл 0

Опции темы