エラー処理

質問

Private Sub Worksheet_Activate()

Dim wsData As Worksheet
Dim number As Variant

Const SH_DATA As String = "データ入力"

Set wsData = Worksheets(SH_DATA)

On Error Resume Next

If wsData.Range("G3") = "" Then

number = InputBox("個人番号を入力してください")
If number Is Nothing Then
Exit Sub
Else
wsData.Range("G3") = number
MsgBox "性別を選択してボタン(1)を押してください"
End If

End If

End Sub

このコードの

If number Is Nothing Then

のところがうまく動きません、、、
カーソルをnumberに持っていくと値はきちんとはいっています！
なのに何回やっても
Exit Sub
に飛んでしまいます(-_-;)

どなたかよろしくお願いします(__)

回答No.2

Picosoft · ベストアンサー

本来は
　If number Is Nothing Then
の部分でエラーになるのですが(Variant型変数であるnumberの内部処理形式がStringのため)、
　On Error Resume Next
が書かれているためにエラーが無視され、
結果的に条件分岐が正常に行われていないようです。

個人番号が1文字も入力されていなかったら関数を抜ける、という動作がしたいのでしょうか？
InputBoxに何も入力しなかった場合はNothingではなく空文字列が返ってくるので、
　If number = "" Then
と書いてくださいな。

お礼

resumeとかぶっているからなんですね(-_-;)
こちらの意図をくみ取ってくださり詳しい説明までありがとうございました！
お世話になりました<(_ _)>

回答No.1

kawais070

If number = "" Then

って書き換えればよいかと。

お礼

うまくいきました！！
ありがとうございました!(^^)!