
Есть машина с w98 и ОффXP. Делаю в Exceleвской книге форму, делаю несколько процедур (данные с листа на форму и обратно).




s_dimas писал(а)::D Вопрос такой:
Есть машина с w98 и ОффXP. Делаю в Exceleвской книге форму, делаю несколько процедур (данные с листа на форму и обратно).
Переношу все это дело на другую машину и получаем run time Error 13 type mismach
. Референсы одинаковые, проверил.
Оффис переставил.
Где еще может быть проблема.
Код приблизительно такой. Сам я не программист, так что если глупость где заранее извиняйте
Private Sub ComboN_Change()
UserForm_Activate
Form1.TextSumJN.Enabled = True
Form1.TextSumSO.Enabled = True
With Worksheets("Лист1").Columns(1)
Set c = .Find(ComboN.Value)
If c Is Nothing Then
MsgBox ("Data Error")
Else
i = c.Row
Form1.Label14.Caption = Worksheets("Лист2").Cells(c.Row, 2).Text
Form1.Label15.Caption = Worksheets("Лист2").Cells(i, 5).Text
Form1.Label18.Caption = Worksheets("Лист2").Cells(i, 3).Text
Form1.Label19.Caption = Worksheets("Лист2").Cells(i, 4).Text
Form1.Label22.Caption = Worksheets("Лист2").Cells(i, 6).Text
Form1.Label23.Caption = Worksheets("Лист2").Cells(i, 7).Text
End If
....Ошибка здесь
Form1.TextSumJN = Form1.TextJN * Worksheets("Лист2").Cells(c.Row, 4)
Form1.TextSumSO = Form1.Label15 * Form1.TextSO
jn = Form1.TextSumJN.Value
so = Form1.TextSumSO
Form1.TextSumJN.Enabled = False
Form1.TextSumSO.Enabled = False
End With
End Sub
Заранее спасибо большое.
Tony писал(а):Математическое действо... такое бывает при умножении цифры на слово... т.е. состовляющие должны быть обязательно цифрами... если это так... то не факт что 98 тебе поверила...тогда просто текстовку перегнать в цифру... VAL это как бы самый простой вариант.... кроме того возможно что в форме содержится значение числа но с дробной частью... а разделители этой самой дробной части разные у кого точка у кого запятая... Как оказалось XP пофиг.. пробовал обмануть... все равно умножает... а вот в 98.... чем черт не шутит....
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5