4、VBAによるマクロの作成(基礎編)

4−4、インプットボックス


インプットボックス

これまでセルに入力してきた文字や値は、あらかじめ決まったものでしたが、例えばテストの点数などはあらかじめ何点になるかわかりませんよね。このように、場合によって入力する値が変わる時に便利なのがインプットボックスで、ユーザーに入力を求め、その値をマクロに取り込み処理をします。

例4)

※「Example1」〜「Example3」の続きです。


2人目の生徒「佐藤」君の、各教科の点数をインプットボックスによって入力します。

Sub Example4()
  
Dim Jap As Integer
  Dim
Math As Integer
  Dim
Eng As Integer
  Worksheets("Sheet1").Select
  Range("A3") = "佐藤"
  Jap = InputBox("国語の点数は?","国語")
  Range("B3") = Jap
  Math = InputBox("数学の点数は?","数学")
  Range("C3") = Math
  Eng = InputBox("英語の点数は?","英語")
  Range("D3") = Eng
End Sub

記述後、「マクロの実行」から「Example4」を実行してください。

【このコードの解説】

Dim Jap As Integer
Dim
Math As Integer
Dim
Eng As Integer

Worksheets("Sheet1").Select
Range("A3") = "佐藤"

InputBox("国語の点数は?","国語")

これを実行するとタイトルが「国語」、入力メッセージが「国語の点数は?」というインプットボックスが表示されます。

Jap = InputBox("国語の点数は?","国語")

Range("B3") = Jap