Доброговремени суток, форумчане. Возможно тема простая, но у меня не получается ее решить: есть 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 |
Подскажите пожалуйста как это можно исправить.