本時の目標 「簡単なプログラム言語の意味を理解し、マクロ機能を使って簡単なプログラムを作ることができる。」 プログラムの基本２ 本時の目標 「簡単なプログラム言語の意味を理解し、マクロ機能を使って簡単なプログラムを作ることができる。」
エクセルのマクロ機能を使おう Sub かけ算() Dim a As Integer Dim b As Integer Dim c As Integer a =10 b = 6 c = a * b MsgBox c End Sub プログラム名（開始） 変数aを宣言 変数bを宣言 変数cを宣言 10を変数aに代入 6を変数bに代入 「a*b」の結果を変数cに代入 メッセージボックスに変数cの値を表示
エクセルのマクロ機能を使おう Sub かけ算自動計算プログラム() Dim a As Integer Dim b As Integer Dim c As Integer a = InputBox("数は") b = InputBox("数は") c = a * b MsgBox c End Sub 変数aを宣言 変数bを宣言 変数cを宣言 変数aに自由に数を代入 変数bに自由に数を代入 「a*b」の結果を変数cに代入 メッセージボックスに変数cの値を表示
数あてゲームのプログラム Sub 数あてゲーム() Dim a As Integer Dim b As Integer Dim c As Integer a = 5 For c = 1 To 3 b = InputBox("数は") If b = a Then MsgBox ("正解"): Exit For End If If b < a Then MsgBox ("もっと大きい") Else MsgBox ("もっと小さい") Next c End Sub プログラム名（プログラム開始） 変数aを宣言 変数bを宣言 変数cを宣言 変数aの値を固定 プログラムの繰り返し回数 解答をbに入力 もしbとaが等しければ 正解を表示し、繰り返しをやめる この「もしも」はここまで もしbがaより小さければ 「もっと大きい」を表示 そうじゃなければ(bがaより大きければ) 「もっと小さい」 3回繰り返せば 終了