VBAを使用してWord文書に入力ボックスとメッセージボックスを作成するにはどうすればよいですか？

最終更新：2020年7月。適用範囲：Office 365、2019、2016、2013。

Word文書をよりインタラクティブにし、ユーザー入力をキャプチャしたい場合もあります。メッセージと入力ボックスを入力します。

名前が示すように、メッセージボックスはドキュメントユーザーに表示される情報の一部です。入力ボックスは、ユーザーからの情報を取得するために役立ちます。

この投稿には、Visual Basic for Applications（VBA）メッセージとMicrosoftWordの入力ボックスを使用して完全に機能するドキュメントを作成するために必要なすべての情報とコードサンプルが含まれています。

VBAコードをWordに追加する方法は？

メッセージと入力ボックスを追加する方法を説明する前に、カスタムVBAコードをWord文書に追加する方法について簡単に復習します。

まず、先に進んで[開発者]タブを有効にします。
次に、 [開発者 ]タブから[ VisualBasic ]ボタンを押します。これにより、Visual BasicEditorが開きます。

ドキュメントを強調表示します。
[ 挿入] をクリックして、[モジュール]を選択します。

以下に提供するコードを、モジュールに作成したモジュールにコピーします。
[保存]をクリックします。プロンプトが表示されたら、ドキュメントに名前を付けます。
Visual BasicEditorを閉じます。

メッセージボックスVBAコード

構文：

MsgBox（プロンプト、ボタン、タイトル、ヘルプファイル、コンテキスト）

構文の説明：

促す：

必須。ユーザーに提供できる情報です。二重引用符の中に挿入する必要があります。

ボタン：

オプション。ボタンは、ユーザー情報に提供される種類のボタンです。MsgBox（）で使用できるさまざまなボタンがあり、それらは下の写真にあります。

タイトル：

オプション。これは、ユーザーに提供される情報のタイトルです。指定しない場合、 MicrosoftWord がデフォルトのタイトルになります。

ヘルプファイルとコンテキスト：

オプション。ヘルプファイルは、ダイアログボックスでヘルプとして提供できるローカルディスクで利用可能なヘルプファイルを識別します
オプション。コンテキストは、一意の番号でヘルプトピックを識別するために使用される数式です。

サンプルメッセージボックスコード

'VBA
Sub messagebox()

'Variables assigned

Dim buttonclick As VbMsgBoxResult

'Message box to display information to user

MsgBox "Hi, Visual Basic is easy to work with", vbExclamation, "VBA"

'Message box to ask question to user with yes or no question
buttonclick = MsgBox("Do you like VBA?", vbQuestion + vbYesNo, "VBA")
If buttonclick = vbYes Then
MsgBox "Yes, they are great!", vbExclamation, "VBA"
Else
MsgBox "Why not? They are great!", vbCritical, "VBA"
End If

End Sub

出力：

ダイアログと入力ボックスVBAコード

入力ボックスは、ユーザーに情報の入力を求めることができるシンプルなダイアログです。例を使用して、VBAコードについて理解しましょう。

構文：

InputBox（プロンプト、タイトル、デフォルト、XPos、YPos、HelpFile、HelpContextId、Type）

構文の説明：

促す：

必須。ユーザーに提供できる情報です。二重引用符の中に挿入する必要があります。

タイトル：

オプション。これは、ユーザーに提供される情報のタイトルです。指定しない場合、 MicrosoftWord がデフォルトのタイトルになります。

ディフォルト：

オプション。ユーザーが値を入力する前に、テキストボックス内にデフォルト値が表示されます。指定しない場合、テキストボックスは空になります。

XPos：

オプション。X軸上の位置として使用されます。左から右へ

YPos：

オプション。Y軸上の位置として使用されます。上から下まで

ヘルプファイルとヘルプコンテキストID：

オプション。ヘルプファイルは、ダイアログボックスでヘルプとして提供できるローカルディスクで利用可能なヘルプファイルを識別します
オプション。HelpContext IDは、ヘルプファイルのID番号です。

入力ボックスコード：

'VBA
Sub macro()

'Variables assigned
Dim a As Long
Dim b As Long

'Input box to get value from user

a = InputBox("Enter a value for a", "Question 1")
b = InputBox("Enter a value for b", "Question 2")

'Answer displayed in a message box
MsgBox ("Answer is " & Val(a) + Val(b))
End Sub

出力：