Помогите, в чём проблема? Я всю ночь просидела, но так и не разобралась. Всё время выдаёт ошибку 424, начиная со стоки "а=...", расчёт не производит. Залатить могу в районе 1$, больше нету:( 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
Всем спасибо, вопрос решился:-)
Раздел: Хобби, последний комментарий: 05.04.2012 10:21 Тема закрыта пользователем Menak-Yah
это так лист называется,на который ссылается поле дата, и конкретно ячейка С2.
дата работает и в форме отображает заданную с ячейки инфу. Вообще, смысл этого поля в том, что бы рассчитать, сколько осталось дней от сегодня до заданного в форме (посредством календаря) периода. Только это здесь и работает:)), а мне нужны, что б при вводе значений в "а", "s" и "d" рассчитывались zp (зарплата), vidr (отчисления с неё) и opl (это должна быть сама чистая зарплата)