Насущный трабл

Программирование на Visual Basic for Applications
s_dimas
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 15.09.2003 (Пн) 12:42

Насущный трабл

Сообщение s_dimas » 15.09.2003 (Пн) 12:55

:D Вопрос такой:
Есть машина с w98 и ОффXP. Делаю в Exceleвской книге форму, делаю несколько процедур (данные с листа на форму и обратно).
8) Переношу все это дело на другую машину и получаем run time Error 13 type mismach :shock: . Референсы одинаковые, проверил. :twisted: Оффис переставил. :twisted: Где еще может быть проблема. Заранее спасибо большое.

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 15.09.2003 (Пн) 13:20

Ты вопрос как то общО задал. КОд бы хоть привел. В каком месте ошибка сказал возникает.

Это форум программистов а не экстрасенсов.

s_dimas
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 15.09.2003 (Пн) 12:42

Re: Насущный трабл

Сообщение s_dimas » 16.09.2003 (Вт) 4:31

s_dimas писал(а)::D Вопрос такой:
Есть машина с w98 и ОффXP. Делаю в Exceleвской книге форму, делаю несколько процедур (данные с листа на форму и обратно).
8) Переношу все это дело на другую машину и получаем run time Error 13 type mismach :shock: . Референсы одинаковые, проверил. :twisted: Оффис переставил. :twisted: Где еще может быть проблема.
Код приблизительно такой. Сам я не программист, так что если глупость где заранее извиняйте
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
. :shock: ...Ошибка здесь :shock: 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
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 121
Зарегистрирован: 03.08.2002 (Сб) 14:36
Откуда: Russia.EKB

Сообщение Tony » 16.09.2003 (Вт) 7:38

Математическое действо... такое бывает при умножении цифры на слово... т.е. состовляющие должны быть обязательно цифрами... если это так... то не факт что 98 тебе поверила... :) тогда просто текстовку перегнать в цифру... VAL это как бы самый простой вариант.... кроме того возможно что в форме содержится значение числа но с дробной частью... а разделители этой самой дробной части разные у кого точка у кого запятая... Как оказалось XP пофиг.. пробовал обмануть... все равно умножает... а вот в 98.... чем черт не шутит....
__________________
счастье в секундах, маленьких острых... щедрое к детям и скупое для взрослых...

s_dimas
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 15.09.2003 (Пн) 12:42

Сообщение s_dimas » 16.09.2003 (Вт) 10:29

Tony писал(а):Математическое действо... такое бывает при умножении цифры на слово... т.е. состовляющие должны быть обязательно цифрами... если это так... то не факт что 98 тебе поверила... :) тогда просто текстовку перегнать в цифру... VAL это как бы самый простой вариант.... кроме того возможно что в форме содержится значение числа но с дробной частью... а разделители этой самой дробной части разные у кого точка у кого запятая... Как оказалось XP пофиг.. пробовал обмануть... все равно умножает... а вот в 98.... чем черт не шутит....

:D :D пасиба сёдня попробую


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 73

    TopList