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

Question

我在用户表单上有2个文本框：tbQty1，tbQty2。我希望tbQty2值等于tbQty1.value * 2.以下简单代码[_Change（）]有效，除非我删除或退出tbQty1的值。我得到运行时错误13类型不匹配

Private Sub tbQty1_Change()

tbQty2.Value = tbDoorQty.Value * 2

End Sub

我尝试过使用tbQty1.value =“”等和Keypress（IF KeyAscii = 8 Then tbQty1 = ""）的IF语句。所有这些都让我失去了一些东西。谢谢你的帮助

Answer 1

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