Страницы: 1
RSS
Задать дробный формат чисел для TextBox, Доброговремени суток, форумчане. Возможно тема простая, но у меня не получается ее решить: есть TextBox1 и TextBox2ю
 
Доброговремени суток, форумчане. Возможно тема простая, но у меня не получается ее решить: есть TextBox1, TextBox2, и TextBox3..В первом фиксированные числа, которые тянутся ВПР-ом (цены на продукцию), а во втором количество (вес). соответственно в третьем должен быть итог. Я нашел код который данные из TextBox переобразует в дробное число и позволяет проводить манипулации. Но похоже что-то не так пошло поскольку VBA выдает ошибку Type Mismach
Код
Private Sub TxtAmount_Change()
Dim n1 As Double
    n1 = CDbl(Me.txtamount) 'ошибка вознкает в этой линии
    n2 as integer
    n2 = CInt(Me.txtprice)
 If Me.txtamount.value = ""  or me.txtprice.value = "" then 
      me.txttotal.value = ""
 Else ve.txttotal.value = n1*n2
 End If
End Sub
Подскажите пожалуйста как это можно исправить.
 
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=123667&TITLE_SEO=123667-zagruzka-dannykh-s-lista-v-listbox&MID=1021959&tags=&q=superval&FORUM_ID%5B0%5D=0&DATE_CHANGE=0&order=relevance&s=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8#message1021959
 
Я извеняюсь, а можете конкретно объяснить как это работает - не совсем понимаю
Страницы: 1
Наверх