ダイアログ インプットボックス使用例
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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 |