ошибка 424
Подскажите, пожалуйста, что я делаю не так, может ошибка в коде?. Вылетает ошибка 424, как можно исправить?
Private Sub cmdClear_Click()
Dim a, s, d, per, zp, vidr, opl As Single
a = Val(txtArgument.Text)
s = Val(txtArgument.Text)
d = Val(txtArgument.Text)
per = Val(txtArgument.Text)
zp = Val(txtArgument.Text)
vidr = Val(txtArgument.Text)
opl = Val(txtArgument.Text)
data = Worksheets("_vba").Range("c2").Value
zp = d * s
txtFunction.Text = Str(zp)
vidr = zp * 40
txtFunction.Text = Str(vidr)
opl = zp - vidr
txtFunction.Text = Str(ipl)
End Sub
Private Sub cmdClear_Click()
Dim a, s, d, per, zp, vidr, opl As Single
a = Val(txtArgument.Text)
s = Val(txtArgument.Text)
d = Val(txtArgument.Text)
per = Val(txtArgument.Text)
zp = Val(txtArgument.Text)
vidr = Val(txtArgument.Text)
opl = Val(txtArgument.Text)
data = Worksheets("_vba").Range("c2").Value
zp = d * s
txtFunction.Text = Str(zp)
vidr = zp * 40
txtFunction.Text = Str(vidr)
opl = zp - vidr
txtFunction.Text = Str(ipl)
End Sub
Цитата:
как можно исправить?
Заменить несуществующие текстовые поля txtArgument , txtFunction на необходимые (см. UserForm)
P.S.Dim a, s, d, per, zp, vidr, opl As Single
Код:
Dim a!, s!, d!, per!, zp!, vidr!, opl!
Код:
Dim a As Single, s As Single, d As Single
Dim per As Single, zp As Single, vidr As Single, opl As Single
Dim per As Single, zp As Single, vidr As Single, opl As Single
Цитата: pashulka
Цитата:
как можно исправить?
Код:
Dim a As Single, s As Single, d As Single
Dim per As Single, zp As Single, vidr As Single, opl As Single
Dim per As Single, zp As Single, vidr As Single, opl As Single
Спасибо, исправила, получилось вот так:
Код:
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
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
Цитата:
compile error Invalid qualifier
(Неверный квалификатор)
Код:
Private Sub Button1_Click()
Dim a!, s!, d!, per!, zp!, vidr!, opl!
a = Val(Me.a.Text)
s = Val(Me.s.Text)
d = Val(Me.d.Text)
per = Val(Me.per.Text)
zp = Val(Me.zp.Text)
vidr = Val(Me.vidr.Text)
opl = Val(Me.opl.Text)
zp = d * s
per = (s / a) * 100
vidr = zp * 0.4
opl = zp - vidr
End Sub
Dim a!, s!, d!, per!, zp!, vidr!, opl!
a = Val(Me.a.Text)
s = Val(Me.s.Text)
d = Val(Me.d.Text)
per = Val(Me.per.Text)
zp = Val(Me.zp.Text)
vidr = Val(Me.vidr.Text)
opl = Val(Me.opl.Text)
zp = d * s
per = (s / a) * 100
vidr = zp * 0.4
opl = zp - vidr
End Sub
Цитата: pashulka
И разумеется не мешает, либо предварительно проверять правильность заполнения текстовых полей, либо контролировать ввод/ и т.п.
Такая же ошибка:( Смотрите, я хочу сделать форму для расчёта зарплаты. Вот имена полей [TH
Я новичёк в этом деле, может вообще не правильно начал кодить?
Не-а, если Вы добавите ключевое слово Me перед именем текстового поля или же измените a на такое же бессмысленное TextBox1, то ошибки compile error Invalid qualifier не получите.
Цитата: pashulka
Не-а, если Вы добавите ключевое слово Me перед именем текстового поля или же измените a на такое же бессмысленное TextBox1, то ошибки compile error Invalid qualifier не получите.
спасибо, всё получилось:-))