Textboxバックスペースでイベント・エラーを変更する--VBA Userform

ユーザー・フォームに2つのテキスト・ボックスtbQty1、tbQty2があります。私はtbQty2の値をtbQty1.valueと等しくします* 2. tbQty1の値を削除またはバックスペースしない限り、次の単純なコード[_Change（）]は機能します。私が試してみましたTextboxバックスペースでイベント・エラーを変更する--VBA Userform

Private Sub tbQty1_Change() 

tbQty2.Value = tbDoorQty.Value * 2 

End Sub

実行時エラー13型の不一致を取得IFなどtbQty1.value =「」とキー押下（IF KeyAscii = 8 Then tbQty1 = ""）との記述が含まれます。すべて私はちょうど何かが欠けているのと同じように爆破した。助けをありがとう

出典

2017-04-12 RR33

EDIT：tbDoorQtyこの例ではtbQty1にする必要があります。コードが修正されました。 – RR33

isnumeric（tbQty1.value）を試してみると、空白で数字でない場合にチェックされます –

Sivaprasath - うまくいきます。私は別のIFと対になるので、最初の値が ""の場合は2番目のテキストボックスがクリアされます。コメントの代わりに答えて、私はあなたが望むなら「答えた」をチェックすることができます。ありがとう – RR33

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

出典

2017-04-12 06:18:08

Textboxバックスペースでイベント・エラーを変更する--VBA Userform

答えて

関連する問題