オリジナルの入力フォームを作って使用していると、入力を忘れている項目があるのにコマンドボタンを押してしまい、空欄のリストが出来上がって困ったことありませんか?
このようなミスを防ぐために、入力漏れがあったら警告メッセージを表示させて次に進まないようにするExcel-VBAのメッセージ機能をご紹介します。
IFステートメントとメッセージ機能を組み合わせる
難しく考えず、単純なのです。
もしテキストボックスが空欄だったらメッセージを表示する、そうでなかったら(入力されていたら)処理を続けるってことをVBAコードで書けば解決しますよ。
ここでは、参考までに生まれた年をテキストボックス1に、誕生月をテキストボックス2に入力し、もしどちらかの入力漏れがあったらメッセージを表示するようにするVBAコードを記載します。
VBAコード
Private Sub CommandButton1_Click()
If TextBox1.Value = “” Or TextBox2.Value = “” Then
MsgBox “年・月を入力してください”
Else
Range(“A2”).Value = TextBox1.Text
Range(“B2”).Value = TextBox2.Text
End If
End Sub
解説
- コマンドボタン1がクリックされたら
- もしテキストボックス1が空欄、またはテキストボックス2が空欄だったら
- メッセージ表示で「年・月を入力してください」
- そうでなかったら
- セルA2の値はテキストボックス1の値を転記する
- セルB2の値はテキストボックス2の値を転記する
- IFステートメント終了
- マクロ終了
このようになります。
ポイントはテキストボックスが空欄の時を「””」と入力することで、エクセルIF関数でも””使いますよね、一緒です。
そして2つのテキストボックスどちらかが空欄でも困るので、Orで繋いでいます。
波乗りアヒル
この未入力の時にメッセージを出すVBAコードはエラー回避のために重要で使用頻度もかなり高いですよ。
関連記事
-
ラベル
2つ別々のセルの値を1つのラベルに結合して表示するVBA
ユーザーフォームに配置したラベル(Label)を使う時は、テキストボックスなどと一緒に説明書きやタイトルに使う事が多いですが、ラベル名(キャプション)を検索結果や… -
コマンドボタン
VBAコマンドボタンにホームページURLを開く設定をする方法
ホームページのURLアドレスをユーザーフォームのコマンドボタンに登録して、クリックすると指定したホームページが別ウィンドウで開くようにしたいと思ったことありませ… -
オプションボタン
オプションボタン(optionbutton)の名前変更と使い方
オリジナル入力フォームが作ることができる「ユーザーフォーム」のパーツのひとつで、「男」「女」などの性別のように2つ以上の選択肢の中から1つだけ選ぶことができる… -
チェックボックス
エクセルVBAでセルの値を取得してチェックボックスの状態を変える方法
ユーザーフォームに配置したチェックボックスの使い方としては、基本的にチェックを入れたら指定したセルに文字や数字を記載するために使いますが、その逆の使い方でセ… -
オプションボタン
セル値を自動取得してオプションボタンの状態を表示させるVBA方法
ユーザーフォームに配置したオプションボタンって住所録の性別選択などで使用していると思いますが、セルの値が「男」「女」を自動的に見つけてオプションボタンの状態… -
コマンドボタン
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか? Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ… -
ラベル
複数のラベル名を一括で複数のセルの値に書き換える方法
【ラベルキャプションをセルの値から一括取得】 ボウリングの大会や予約でASで名前登録作業を行っていて、一人目の名前を入れると、空欄の部分に登録した名前が表示され… -
テキストボックス
複数のテキストボックスの値を一括で複数のセルの値に書き換える方法
【セルA1~A10の値をまとめてテキストボックス1~10に転記する】 ボウリング場のリーグ戦の成績表でも使っているエクセルで、リーグ戦のルールなどを設定するユーザー… -
ラベル
VLOOKUPをVBAラベルを活用してデータ検索・修正をする方法
【ラベル(Label)にVBAコードを記述する】 ボウリング成績表でも使っているユーザーフォームに配置した文字を表示するための「ラベル(Label)」にも、実はVBAコードを…
紅葉スポット
-
桜山公園へバスで群馬藤岡駅や本庄駅から冬桜と紅葉のコラボへ
なんと春と秋の年2回花見ができるので冬桜の名所として知られ、紅葉の見頃には冬桜と真っ赤な紅葉の紅葉が同時に見られることでも知られています。 また桜山公園ハイキ… -
日光東照宮へバスで日光駅から世界遺産の紅葉へ滞在時間5時間
【紅葉見頃】10月下旬~11月上旬 2017年に約半世紀ぶりの大修理を終え、1999年に世界遺産に登録されている、日光東照宮・日光山輪王寺・日光二荒山神社等の建造物群と… -
鶴沼原生花園アッケシソウ群落で地上で見られるサンゴ岬の一面赤い世界
北海道の北東部に位置する湧別町でサロマ湖の西側にサンゴ岬という場所があり、なんと地上にサンゴ草と言われる群生地が広がっています。 毎年9月中旬頃になるとアッケ… -
茨城県内の11月に見頃を迎えるおススメ紅葉スポット11選
【茨城県内の人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺… -
日光白根山ロープウェイで標高1400mから2000mの紅葉遊覧へ
丸沼高原といえば首都圏から日帰りで行くことができるスキー場ですが、秋の紅葉シーズンになるとひと足早く木々が色づき、リフトから山頂へ向かえば紅葉絶景の景色が広… -
日本庭園「松雲山荘」へ柏崎駅から徒歩圏内の大正時代からの紅葉名所
紅葉見頃 10月下旬~11月下旬 約3,000本つつじやもみじなどで大正時代に作られた日本庭園で、柏崎ガス創設者の飯塚謙三氏から柏崎市に移譲され無料で庭園内を散策でき…