Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

ошибка 424

79K
05 апреля 2012 года
noscere
5 / / 05.04.2012
Подскажите, пожалуйста, что я делаю не так, может ошибка в коде?. Вылетает ошибка 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
Прикрепленные файлы:
41 Кб
Загрузок: 476
275
05 апреля 2012 года
pashulka
985 / / 19.09.2004
Цитата:
как можно исправить?



Заменить несуществующие текстовые поля 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
Впрочем, часть переменных вообще не используется, стало быть, от них можно избавиться.
79K
05 апреля 2012 года
noscere
5 / / 05.04.2012
Цитата: pashulka
Цитата:
как можно исправить?



 
Код:
Dim a As Single, s As Single, d 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
Теперь подсвечивается Private Sub Button1_Click() и ошибка
Цитата:
compile error Invalid qualifier

(Неверный квалификатор)

Прикрепленные файлы:
46 Кб
Загрузок: 449
275
05 апреля 2012 года
pashulka
985 / / 19.09.2004
Код:
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
И разумеется не мешает, либо предварительно проверять правильность заполнения текстовых полей, либо контролировать ввод/ и т.п.
79K
05 апреля 2012 года
noscere
5 / / 05.04.2012
Цитата: pashulka

И разумеется не мешает, либо предварительно проверять правильность заполнения текстовых полей, либо контролировать ввод/ и т.п.



Такая же ошибка:( Смотрите, я хочу сделать форму для расчёта зарплаты. Вот имена полей [TH Я новичёк в этом деле, может вообще не правильно начал кодить?

275
05 апреля 2012 года
pashulka
985 / / 19.09.2004
Не-а, если Вы добавите ключевое слово Me перед именем текстового поля или же измените a на такое же бессмысленное TextBox1, то ошибки compile error Invalid qualifier не получите.
79K
05 апреля 2012 года
noscere
5 / / 05.04.2012
Цитата: pashulka
Не-а, если Вы добавите ключевое слово Me перед именем текстового поля или же измените a на такое же бессмысленное TextBox1, то ошибки compile error Invalid qualifier не получите.


спасибо, всё получилось:-))

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог