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ベストアンサー
- 回答日時:
本来は
If number Is Nothing Then
の部分でエラーになるのですが(Variant型変数であるnumberの内部処理形式がStringのため)、
On Error Resume Next
が書かれているためにエラーが無視され、
結果的に条件分岐が正常に行われていないようです。
個人番号が1文字も入力されていなかったら関数を抜ける、という動作がしたいのでしょうか?
InputBoxに何も入力しなかった場合はNothingではなく空文字列が返ってくるので、
If number = "" Then
と書いてくださいな。
resumeとかぶっているからなんですね(-_-;)
こちらの意図をくみ取ってくださり詳しい説明までありがとうございました!
お世話になりました<(_ _)>
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
c言語 プログラミング 等比数列...
-
平均、最大値、最小値を表示す...
-
C言語 exitの使い方
-
フォームを開くときに、コンボ...
-
VBAでダブルコーテーション入り...
-
配列の値を置換するにはどうす...
-
エラーの意味は? Lvalue req...
-
数値計算??
-
C言語で全角文字を扱いたいので...
-
COLUMN(1:1)の意味を教え...
-
Excel-vba 文字列と変数を...
-
インクリメント演算子の前置(+...
-
jsp~jspにhiddenを使って変数...
-
processing エラーで、 "cannot...
-
VBAで配列のNULL判定
-
正規表現で、英数記号を含むパ...
-
切り上げ
-
long型のランダムな値を返す方法
-
i++と++i ってどう違うのですか?
-
フリーランタイマーの時間差分...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プログラミングについての質問...
-
平均、最大値、最小値を表示す...
-
エクセルのマクロでの積分
-
c言語でランタイムエラーの処理...
-
c言語で素数を判別するプログラ...
-
C言語 累乗の計算
-
c言語 プログラミング 等比数列...
-
任意の数から人の数までの素数...
-
Cプログラムについて
-
素数を判定するプログラム
-
C言語初心者です。次の問題で質...
-
if文を条件演算子に書き換えに...
-
C言語の問題 1 つの文字をキー...
-
エラー処理
-
プレゼント交換プログラム
-
PICの条件分岐について
-
C言語 exitの使い方
-
フォームを開くときに、コンボ...
-
エラーの意味は? Lvalue req...
-
VBAでダブルコーテーション入り...
おすすめ情報