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
Заранее спасибо большое.