ошибки в коде VBA

[noscere]

Помогите, пожалуйста, разобраться с кодами. Сейчас выделилось красным первая строка и написано "compile error expected end of statement". Что я не так делаю?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, s, d, per, zp, vidr, opl As Integer
a = Val(a.Text)
s = Val(s.Text)
d = Val(d.Text)
per = Val(per.Text)
zp = Val(zp.Text)
vidr = Val(vidr.Text)
opl = Val(opl.Text)
data = Worksheets("_vba").Range("c2").Value
zp = d * s
per = (s / a) * 100
vidr = zp * 0.4
opl = zp - vidr
End Sub

[Hugo121]

Что за
Handles Button1.Click
?

[noscere]

Сообщение от Hugo121

Что за
Handles Button1.Click
?

Инфу взяла отсюда http://www.homeandlearn.co.uk/net/nets10p1.html

[noscere]

Сообщение от Hugo121

Что за
Handles Button1.Click
?

Может быть вот так правильнее? Но ошибка не исчезла(

Private Sub Button1_Click()
Dim a As Single, s As Single, d As Single
Dim per As Single, zp As Single, vidr As Single, opl As Single
 a = Val(a.Text)
 s = Val(s.Text)
 d = Val(d.Text)
 per = Val(per.Text)
 zp = Val(zp.Text)
 vidr = Val(vidr.Text)
 opl = Val(opl.Text)
 data = Worksheets("_vba").Range("c2").Value
 zp = d * s
 per = (s / a) * 100
 vidr = zp * 0.4
 opl = zp - vidr
End Sub

[doober]

Не путайте VBnet и VBA
Давно такого не видел. Делайте выводы об своих ошибках

Private Sub Button1_Click()
Dim at, st, dt, pert, zpt, vidrt, oplt As Integer
sy = 100
ay = 120
at = Val(a.Text)
st = Val(s.Text)
dt = Val(d.Text)
pert = Val(per.Text)
zpt = Val(zp.Text)
vidrt = Val(vidr.Text)
oplt = Val(opl.Text)
datat = Worksheets("_vba").Range("c2").Value
zpt = dt * st
pert = (sy / ay) * 100
vidr = zpt * 0.4
oplt = zpt - vidrt
End Sub

[noscere]

Сообщение от doober

Давно такого не видел

Вот такой я лузер, всю ночь сидела и не разобралась Спасибо! Но, расчёт происходит только в поле vidr, а в остальных полях пусто

[IgorGO]

хотите результаты в поля, то и запишите в поля, а не в переменные

zp = dt * st
per = (sy / ay) * 100
vidr = dt * st * 0.4
opl = dt * st *0.96

и...
найдите себе на ночь более естесственные занятия (поспать, например).

[noscere]

Сообщение от IgorGO

хотите результаты в поля, то и запишите в поля, а не в переменные

zp = dt * st
per = (sy / ay) * 100
vidr = dt * st * 0.4
opl = dt * st *0.96

и...
найдите себе на ночь более естесственные занятия (поспать, например).

Большущее спасибо, всё получилось! Ураааааа! Вы гений

Поспать? С удовольствием, а то неделя хронического недосыпа до добра не доведёт