|
▼ビギナー さん:
セルに数値が適用されない時、テキストボックスには値は入っているのですか?
それによって、値が展開できていないのか
数値チェックで失敗しているのかが解ります。
例えば、数値チェックでエラーが起きているなら
メッセージボックスが出るでしょうし
メッセージボックスが出ていないのに、テキストの値が消されてたら
それもおかしな話ですし・・・
というか、このレベルならもっと簡素化した方が可読性も含め良いのでは?
Private Sub TextBoxA_AfterUpdate()
If (IsNumeric(TextBoxA.Text) = True) Then
Cells(1, 1) = TextBoxA.Text
Else
MsgBox (itemName & "には数値を入力して下さい。")
TextBoxA.Text = ""
End If
End Sub
IsNullについては、VBにはNULL文字はありません。
C等で使われている文字列の最後のコードを&0で表しているにすぎません。
今回のようなプログラムにNULLが含まれる可能性は0です。
VBの場合はプログラム開始時に全てクリアされますが
NULLでクリアされたりせず、""でクリアされます。
ですので、あってもなくてもそれが原因だとは考えにくいですね。
|
|