値がVBAテキストボックスから削除されたときのデバッガの防止

Question

ユーザーフォームにはユーザーが編集できるテキストボックスがいくつかありますが、デバッグ中であることが報告されました。少しの調査の後、私は、ユーザーがテキストボックスから値を削除していて、これが実行時エラー13を引き起こしていることが分かった。ユーザーが値を削除し、servcreditテキストボックスになると、 a vbnullstring？

現在、テキストボックスには2つのコードがあります。

これは、背中のExcelシートに数値を入力します。

Private Sub ServCredit_Change() 

Worksheets("Calculator").Range("L18") = CDec(ServCredit) 

End Sub 

このユーザーはない入力なし数値図形を行い確実。

Private Sub ServCredit_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 

If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 46 Or KeyAscii = 32 Then 
KeyAscii = KeyAscii 
Else 
KeyAscii = 0 
MsgBox "Invalid Key Pressed" 
End If 

End Sub 

Answer 1

最初ServCreditが数値であるかどうかを確認する必要があります。 CDecは、vbNullStringを数値にキャストできません。

If IsNumeric(ServCredit) then 
    Worksheets("Calculator").Range("L18") = CDec(ServCredit) 
else 
    Worksheets("Calculator").Range("L18") = 0 
End If 

Answer 2

値が存在する場合は、単純にテストすることができ：それ簡単だった場合、私は信じることができない

Private Sub ServCredit_Change() 

If Len(ServCredit.Text) <> 0 then 
    Worksheets("Calculator").Range("L18").Value2 = CDec(ServCredit) 
Else 
    Worksheets("Calculator").Range("L18").Value2 = vbnullstring 
end if 
End Sub