ユーザーにデータを入力させて処理する

標準モジュールに記述

Sub 日数分後の日時表示()
 a = InputBox("何日後の日時を知りたいですか？")
 MsgBox Now + a
End Sub

(補足)InputBoxの働き

・InputBox関数は引数で指定した文字列をダイヤログボックスに表示し、ユーザーの入力を待つ
⇨ユーザーがデータを入力すると、InputBox関数の戻り値としてそのデータを返す。

「価格」と「割引率（％）」から販売価格を計算する

Sub 価格と割引率を入力すると販売価格が表示される()
 k = InputBox("価格は？")
 w = InputBox(”割引率は何％？”)
 MsgBox k * (100 - w) / 100 & "円になります"
End Sub

（補足）ユーザーが入力した名前に「こんにちは」と「さん」をつけて表示

InputBox関数から受け取ったユーザー入力のデータを、MsgBox関数で表示するとき、次のように1行で書くこともできる

MsgBox "こんにちは" & InputBox("名前を入力してください") & "さん"