オリジナルの入力フォームを作って使用していると、入力を忘れている項目があるのにコマンドボタンを押してしまい、空欄のリストが出来上がって困ったことありませんか?
このようなミスを防ぐために、入力漏れがあったら警告メッセージを表示させて次に進まないようにするExcel-VBAのメッセージ機能をご紹介します。
IFステートメントとメッセージ機能を組み合わせる
難しく考えず、単純なのです。
もしテキストボックスが空欄だったらメッセージを表示する、そうでなかったら(入力されていたら)処理を続けるってことをVBAコードで書けば解決しますよ。
ここでは、参考までに生まれた年をテキストボックス1に、誕生月をテキストボックス2に入力し、もしどちらかの入力漏れがあったらメッセージを表示するようにする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で繋いでいます。
![](https://tripbowl.net/wp-content/uploads/2018/07/cropped-512x512.jpg)
この未入力の時にメッセージを出すVBAコードはエラー回避のために重要で使用頻度もかなり高いですよ。
関連記事
-
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか? Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ… -
チェックボックスでチェック有と無しそれぞれの処理を変える方法
よくあるアンケートや記入用紙で該当する項目があればいくつでも選んで□にチェックを入れるような事をエクセルで出来ないかと思った事はありませんか? Exce-VBAのチェ… -
複数のテキストボックスの値を一括で複数のセルの値に書き換える方法
セルA1~A10の値をまとめてテキストボックス1~10に転記する ボウリング場のリーグ戦の成績表でも使っているエクセルで、リーグ戦のルールなどを設定するユーザーフォ… -
ユーザーフォームの✖ボタンでフォーム自体閉じられないようにする
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか? 原因は簡単で、エクセル操作をオリジ… -
ユーザーフォームのテキストボックスが空欄の時にVBAメッセージを出す方法
オリジナルの入力フォームを作って使用していると、入力を忘れている項目があるのにコマンドボタンを押してしまい、空欄のリストが出来上がって困ったことありませんか… -
2つのセルの値を足し算など加減乗除してラベル名に表示させるVBA
ユーザーフォームに配置したラベルの文字をプロパティのキャプションで指定するのではなく、セルの値を取得して表示させたいことありませんか? そしてさらに、2つのセ… -
セル値を自動取得してオプションボタンの状態を表示させるVBA方法
ユーザーフォームに配置したオプションボタンって住所録の性別選択などで使用していると思いますが、セルの値が「男」「女」を自動的に見つけてオプションボタンの状態… -
エクセルVBAのユーザーフォーム表示位置を任意の場所に変更する方法
オリジナルの入力フォームを作ったのに、シート上の文字やセルの上に表示されているので位置を変えたいと思ったことありませんか? 初期設定の画面中央から好きな位置に… -
Excel-VBAタイマー機能で数秒後にユーザーフォームを表示させる方法
エクセルを使って成績などを入力して作成した成績表で、入力漏れがなかったかどうかなどをチェックするのに数秒間だけ指定したページや範囲を表示させたいと思ったこと…
紅葉スポット
-
佐白山麓公園の笠間城跡へバスで友部駅・笠間駅から滞在時間40分
紅葉の名所で茨城県を真っ先に探す人は少ないと思いますし、見つけたとしても花貫渓谷や袋田の滝、そして次に水戸偕楽園のもみじ谷や筑波山が茨城県内の紅葉スポットと… -
埼玉県指定名勝地の中津峡へ奥秩父を代表する紅葉スポット
秩父エリアトップクラスの絶景と言われている奥秩父の中津峡は、約10㎞もの中津川沿いの紅葉が見られて、その長さは約10㎞と言われて、西武秩父駅からのバス車窓からも… -
埼玉県第1号のダム「有間ダム」によりできた名栗湖畔の鏡面紅葉へ
初!と付くものはやっぱり宣伝したい、そして四季折々の景色が見られる自然絶景スポットならばなおさらですよね。 埼玉県飯能市にある名栗湖へ飯能駅からバスで行くこと… -
透明度抜群の丸沼ダムのダム湖に紅葉景色が反射する秋らしい絶景へ
丸沼といえば丸沼高原スキー場が有名で、日光と沼田の中間に位置しているので、日光駅からでも沼田駅からも丸沼ダムへバスで紅葉を見に行くことができます。 特に東武鉄… -
フリーきっぷで行く群馬県内の紅葉名所や穴場スポット21選
渋滞避けて電車とバスでのんびり紅葉を見に行きませんか?群馬県の山間部ならば9月中旬頃から紅葉が見られる名所・スポットがありますので、少し早い秋の訪れを感じに出… -
鶴沼原生花園アッケシソウ群落で地上で見られるサンゴ岬の一面赤い世界
北海道の北東部に位置する湧別町でサロマ湖の西側にサンゴ岬という場所があり、なんと地上にサンゴ草と言われる群生地が広がっています。 毎年9月中旬頃になるとアッケ…