ダイアログ インプットボックス使用例

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Option Explicit

Sub MessageInputBox()
'***************************
'ダイアログボックスInputBox
'***************************

Dim Message, Title, Default, MyValue
Message = "1 から 3 までの値を入力してください。" ' 入力を求めるメッセージを設定します。
Title = "InputBox ﾃﾞﾓ" ' タイトルを設定します。
Default = "1" ' 既定値を設定します。
' メッセージ、タイトル、既定値を表示します。
MyValue = InputBox(Message, Title, Default)

' 状況依存のヘルプを設定します。ヘルプ ボタンが自動的に追加されます。
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' ダイアログ ボックスを位置 100,100 に表示します。
MyValue = InputBox(Message, Title, Default, 100, 100)

End Sub

 

2000年01月01日|[VBサンプルコード]:[ダイアログ]