退格文本框更改事件错误-VBA Userform

我在用户窗体上有2个文本框：tbQty1，tbQty2。我希望tbQty2的值等于tbQty1.value * 2.下面的简单代码[_Change（）]工作除非我删除或退格tbQty1的值。我得到一个运行时错误13类型不匹配退格文本框更改事件错误-VBA Userform

Private Sub tbQty1_Change() 

tbQty2.Value = tbDoorQty.Value * 2 

End Sub

我已经试过如果与tbQty1.value =“”等，以及按键时（IF KeyAscii = 8 Then tbQty1 = ""）语句。所有的东西都以同样的方式吹了，我只是想念一些东西。感谢您的帮助

2017-04-12 RR33

编辑：tbDoorQty在这个例子中应该是tbQty1。代码已修改。 – RR33

尝试如果isnumeric（tbQty1.value）那么，这将检查它是否不是空白和数字 –

Sivaprasath - 很好，它的工作原理。我与另一个IF配对，因此如果第一个文本框具有“”值，则第二个文本框将被清除。回答而不是评论，如果你愿意，我可以检查'回答'。谢谢 – RR33

If isnumeric(tbQty1.value) then 
'statements 
end if

2017-04-12 06:18:08

回答