こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押してコードを眺める段階を卒業し、「いよいよ本格的なツールを作りたい！」と思っている頃ではないでしょうか。
今回は、業務自動化の現場で差がつく「UserForm（カスタムダイアログ）のバリデーション強化」についてお話しします。
「ユーザーが変な値を入力してエラー落ちする」「OKボタンを押すまで入力ミスに気づかない」――そんな不親切なマクロとは、今日でお別れです。コントロールのイベントを巧みに操り、リアルタイムでユーザー入力をガードする洗練されたUIの作り方を、一緒にマスターしていきましょう！
ここをクリアすれば、Word VBAの基本はバッチリですよ。優しく、そして本質的なところまでしっかりと解説していきますね。
—
1. なぜ「リアルタイム・バリデーション」が必要なのか？
私たちがよく見かける古いVBAのフォームは、だいたいこんな作りをしています。
1. ユーザーがテキストボックスに適当な文字を入力する
2. 最後に「実行」ボタンを押す
3. そこで初めてプログラムが「あ、この値じゃダメだ！」と気づき、メッセージボックスを出して強制終了する
これでは、ユーザーにとってストレスフルですし、プログラム側も無駄な処理を走らせることになります。
プロのエンジニアが作るダイアログは、「間違った入力ができない（あるいは、入力した瞬間に優しく教えてくれる）」ように設計されています。Word VBAのUserFormでは、各コントロールが持つ「イベント（Event）」をキャッチすることで、このリアルタイム制御が驚くほど簡単に実現できるのです。
—
2. 実装の全体像とデザイン
今回は例として、「社内文書の作成ダイアログ」を想定しましょう。
UserForm上に以下のパーツを配置してください。（VBAのVBEエディタを開き、[挿入] ＞ [ユーザーフォーム] から作成できます）
- UserForm1 （フォーム本体）
- TextBox1 （文書番号入力用：半角数字のみを受け付けたい）
- TextBox2 （タイトル入力用：必須項目）
- CommandButton1 （OKボタン：最初は無効化しておく）
- Label1 （エラーメッセージやガイドを表示用）
オブジェクトの配置イメージ
+—————————————+
| 文書発行ダイアログ |
| |
| 文書番号 (半角数字): |
| [ TextBox1 ] |
| |
| タイトル (必須): |
| [ TextBox2 ] |
| |
| [!] 文書番号は半角数字で入力してください| <- Label1 (エラー表示)
| |
| [ 処理を実行 (OK) ] | <- CommandButton1
+---------------------------------------+
---
3. 魂を込めた実装コード
それでは、UserFormのコードモジュールに記述する実際のコードを見ていきましょう。
「なぜこのコードを書くのか」の意味を、コメントにたっぷりと込めておきました。
Option Explicit
‘ =================================================================
‘ ユーザーフォームのモジュール
‘ =================================================================
‘ フォームが読み込まれたときの初期化処理
Private Sub UserForm_Initialize()
‘ 最初は入力値が不完全なので、実行ボタンは押せないようにロックする
CommandButton1.Enabled = False
Label1.Caption = “※すべての項目を正しく入力してください。”
Label1.ForeColor = RGB(100, 100, 100) ‘ グレーの文字
End Sub
‘ 文書番号（TextBox1）の入力内容が変更されるたびに発火するイベント
Private Sub TextBox1_Change()
Call ValidateForm
End Sub
‘ タイトル（TextBox2）の入力内容が変更されるたびに発火するイベント
Private Sub TextBox2_Change()
Call ValidateForm
End Sub
‘ —————————————————————–
‘ 肝となるバリデーション（妥当性チェック）の統合関数
‘ —————————————————————–
Private Sub ValidateForm()
Dim isNumberValid As Boolean
Dim isTextValid As Boolean
‘ 1. 文書番号のチェック：空ではなく、かつ「すべて半角数字か？」を判定
If TextBox1.Text = “” Then
isNumberValid = False
Else
isNumberValid = IsNumeric(TextBox1.Text)
End If
‘ 2. タイトルのチェック：単に空欄でないか？
If Trim(TextBox2.Text) <> “” Then
isTextValid = True
Else
isTextValid = False
End If
‘ 3. 総合判定とUIの制御
If isNumberValid And isTextValid Then
‘ 両方クリアした場合
CommandButton1.Enabled = True
Label1.Caption = “準備完了です。「処理を実行」を押してください。”
Label1.ForeColor = RGB(0, 128, 0) ‘ 緑色の文字
Else
‘ どちらかに不備がある場合
CommandButton1.Enabled = False
‘ エラーメッセージを親切に切り替える
If Not isNumberValid And TextBox1.Text <> “” Then
Label1.Caption = “【エラー】文書番号は半角数字で入力してください。”
Label1.ForeColor = RGB(200, 0, 0) ‘ 赤色の文字
Else
Label1.Caption = “※すべての項目を正しく入力してください。”
Label1.ForeColor = RGB(100, 100, 100)
End If
End If
End Sub
‘ 実行ボタンが押されたときの処理
Private Sub CommandButton1_Click()
‘念のためここでも最終防衛ラインとしてチェック
If CommandButton1.Enabled = False Then Exit Sub
‘ Word文書への値の書き込み処理（例として先頭に段落を追加）
With ActiveDocument
.Content.Paragraphs.Add.Range.Text = “文書番号: ” & TextBox1.Text & vbCrLf & “タイトル: ” & TextBox2.Text
End With
MsgBox “文書の作成が完了しました！”, vbInformation, “成功”
‘ フォームを閉じる
Unload Me
End Sub
—
4. コードの深掘り解説：ここがエンジニアのこだわり
初心者から一歩抜け出すために、このコードの重要なポイントを3つ解説します。
① `_Change` イベントの活用
`TextBox1_Change` は、ユーザーが一文字入力するたびに実行されます。「リアルタイム入力制御」の正体はこれです。文字を消したり、記号を混ぜたりした瞬間に関数が走り、現在のフォームの状態を監視し続けます。
② バリデーションロジックの「部品化」 (`ValidateForm` サブルーチン)
もし、`TextBox1` と `TextBox2` の中にそれぞれ同じような判定ロジックをベタ書きしてしまうと、コードがスパゲッティのように複雑化してしまいます。
今回は `ValidateForm` というプライベートサブルーチンを1つ用意し、「どちらのテキストボックスが変更されたときも、必ず両方の項目をまとめて再チェックする」設計にしています。これが保守性の高いコードを書くための極意です。
③ 状態に応じたUIの動的変化（グレーアウトとカラーリング）
条件が揃うまで `CommandButton1.Enabled = False` にしてボタン自体を押せなくするアプローチは、モダンなGUIアプリ（WindowsアプリやWebサイト）の標準仕様です。さらに、ラベルの文字色を赤や緑に変えることで、視覚的にもユーザーを優しく誘導できていますよね。
—
5. 陥りやすい罠とエラー回避の知見
Word VBAでUserFormを扱う際、初心者が必ずと言っていいほど踏む「地雷」があります。最後にそれを共有しておきますね。
- エラーの罠：コードから値を書き換えたときの無限ループ
今回のコードでは `TextBox1.Text = “”` のように空にすることは初期化時だけですが、もしバリデーションの過程でコードから `TextBox.Text = …` と値を書き換えると、再び `_Change` イベントが発火して無限ループ（あるいはスタックオーバーフロー）を起こすことがあります。
複雑な入力を強制・整形（フォーマット）したい場合は、`_Change` ではなくフォーカスが外れたタイミングで発火する `_Exit` イベントを使うのがプロの技です。
—
まとめ
今回は、Word VBAのUserFormにおける「カスタムダイアログのバリデーション強化」について解説しました。
- イベント（`_Change`）を捉えてリアルタイムに監視する
- 判定ロジックを1つのプロシージャ（`ValidateForm`）に集約する
- `Enabled` プロパティを制御して、不正な状態での実行を物理的に防ぐ
この設計思想を取り入れるだけで、あなたが作るWordマクロのクオリティは、自作の域を超えて「プロ仕様の業務システム」へと劇的に進化します。
ぜひ次の開発案件で試してみてくださいね。それでは、また次回の極限の知見でお会いしましょう！
