【学習課題】セルＣ２とセルＣ３に入力された数１と数２について、数１＋数２の値をセルＤ４に、数１－数２の値をセルＤ５に、数１×数２の値をセルＤ６に、数１÷数２の値をセルＤ７に表すマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「四則計算」を開始する。
数１, 数２の２つの変数を用意する。
和 , 差 , 積 ,商の４つの変数を用意する。
セルC１を変数（数１）に代入する。
セルC2を変数（数２）に代入する。
数１と数２の和を変数（和）に代入する。
数１と数２の差を変数（差）に代入する。
数１と数２の積を変数（積）に代入する。
数１と数２の商を変数（商）に代入する。
変数（和）をセルC３に代入する。
変数（差）をセルC４に代入する。
変数（積）をセルC５に代入する。
変数（商）をセルC６に代入する。
マクロ「四則計算」を終了する。 -
コード化（マクロ）
Sub 四則計算()
Dim 数1, 数2 As Integer
Dim 和, 差, 積, 商 As Integer
数1 = Range("C１").Value
数2= Range("C２").Value
和 = 数1 + 数2
差 = 数1 - 数2
積 = 数1 * 数2
商 = 数1 / 数2
Range("C３").Value = 和
Range("C４").Value = 差
Range("C５").Value = 積
Range("C６").Value = 商
End Sub
【学習課題】セルＢ２に時間を、セルＢ３に分を、セルＢ４に秒を入力して、〇時間△分□秒をすべて秒に変換してセルＢ５に表すマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「何秒」を開始する。
時間,分,秒の３つの変数を用意する。
何秒の変数を用意する。
セルC２の数を変数（時間）に入力する。
セルC３の数を変数（分）に入力する。
セルC４の数を変数（秒）に入力する。
時間を３６００倍 , 分を６０倍して , 時間*
３６００＋分* ６０＋秒 を何秒に代入する。
セルC５に何秒を代入する。
マクロ「何秒」を終了する。 -
コード化（マクロ）
Sub 秒に変換()
Dim 時間, 分, 秒 As Long
Dim 何秒 As Long
時間 = Range("C２")
分 = Range("C３")
秒 = Range("C４")
何秒 = 時間 * 3600 + 分 * 60 + 秒
Range("C５") = 何秒
End Sub
3 速さの問題
【学習課題】速さ（セルＢ３）・時間（セルＣ３）・距離（セル）の3つの数量のうちの2つの数量が入力されたとき、残りの数量を計算するマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「速さの学習」を開始する。
速さ,時間,距離の３つの変数を用意する。
セルB３の数を変数（速さ）に代入する。
セルC３の数を変数（時間）に代入する。
セルD３の数を変数（距離）に代入する。
セルB３の数が入力されていないならば、
距離÷時間を速さに代入する。
セルC３の数が入力されていないならば、
距離÷速さを時間に代入する。
セルD３の数が入力されていないならば、
速さ×時間を距離に代入する。
セルB３に速さを代入する。
セルC３に速さを代入する。
セルD３に速さを代入する。
マクロ「速さの学習」を終了する。 -
コード化（マクロ）
Sub 速さの学習()
Dim 速さ, 時間, 距離 As Variant
速さ = Range("B３").Value
時間 = Range("C３").Value
距離 = Range("D３").Value
If Range("B３").Value = "" Then
速さ = 距離 / 時間
If Range("C３").Value = "" Then
時間 = 距離 / 速さ
If Range("D３").Value = "" Then
距離 = 速さ * 時間
Range("B３").Value = 速さ
Range("C３").Value = 時間
Range("D３").Value = 距離
End Sub
【学習課題】セルＢ３に任意の整数を入力して、絶対値を求めるマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「絶対値」を開始する。
数という変数を準備する。
絶対値という変数を準備する。
セルB３の値を数に代入する。
もし、数が０より小さいならば
数を負にしたものを絶対値に代入する。
それ以外の値の場合は
数を絶対値に代入する。
条件処理を終了する。
絶対値をセルC３に代入する。
マクロ「絶対値」を終了する。 -
コード化（マクロ）
Sub 絶対値()
Dim 数 As Integer
Dim 絶対値 As Integer
数 = Range("B３").Value
If 数 < 0 Then
絶対値 = -数
Else
絶対値 = 数
End If
Range("C３").Value = 絶対値
End Sub
5 九九表
【学習課題】セルＣ２～セルＫ２に１～９の数を、セルＢ３～セルＢ１１に１～９の数を表す九九表（問題）のマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「九九表問題」を開始する。
変数（縦）を準備する。
変数（横）を準備する。
次の式を縦の値１から９まで繰り返す。
縦の値をセル(２, 縦 + ２)に代入する。
縦の値を１増やして繰り返しの始めに戻る。
次の式を横の値１から９まで繰り返する。
縦の値をセル(横＋２, ２)に代入する。
横の値を１増やして繰り返しの始めに戻る。
マクロ「九九表問題」を終了する。 -
コード化（マクロ）
Sub 九九表問題()
Dim 縦 As Integer
Dim 横 As Integer
For 縦 = 1 To 9
Cells(2, 縦 + 2) = 縦
Next 縦
For 横 = 1 To 9
Cells(横 + 2, 2) = 横
Next 横
End Sub
6 九九計算表
【学習課題】九九一覧表を表すマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「九九表解答」を開始する。
変数（縦 , 横）を準備する。
変数 表(１ TO ９, １ TO ９)の８１を準備する。
次の式を縦の値１から９まで繰り返す。
縦の値をセル(２, 縦 + ２)に代入する。
縦の値を１増やして繰り返しの始めに戻る。
次の式を横の値１から９まで繰り返す。
縦の値をセル(横＋２, ２)に代入する。
横の値を１増やして繰り返しの始めに戻る。
まず、縦の値１から９まで繰り返す。
その中で次の式を横の値１から９まで繰り返す。
表(縦, 横)に縦+横を代入する。
横の値を１増やして戻る。
縦の値を１増やして繰り返しの始めに戻る。
まず、縦の値１から９まで繰り返す。
その中で次の式を横の値１から９まで繰り返す。
表(縦, 横)の値をセル(縦+３, 横+３)に代入する。
横の値を１増やして戻る。
縦の値を１増やして繰り返しの始めに戻る。
マクロ「九九表解答」を終了する。 -
コード化（マクロ）
Sub 九九表解答()
Dim 縦, 横 As Integer
Dim 表(1 To 9, 1 To 9) As Integer
For 縦 = 1 To 9
Cells(2, 縦 + 2) = 縦
Next 縦
For 横 = 1 To 9
Cells(横 + 2, 2) = 横
Next 横
For 縦 = 1 To 9
For 横 = 1 To 9
表(縦, 横) = 縦 * 横
Next 横
Next 縦
For 縦 = 1 To 9
For 横 = 1 To 9
Cells(縦 + 3, 横 + 3) = 表(縦, 横)
Next 横
Next 縦
End Sub
7 最大値
【学習課題】８名のボール投げの結果について、一番遠くに投げた児童の出席番号と距離を求めるセルＥ４に出席番号を、セルＦ４に距離を表すマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「最大値」を開始する。
変数「位置」を準備する。
変数「最大値」を準備する。
変数「行」を準備する。
セルE４の値を最大値に代入する。
位置に１を代入する。
行に２を代入する。
セル(行, ３)の値が空でないまで繰り返す。
もし、最大値がセル(行, ３)より小さいときは
最大値にセル(行, ３)を代入する。
位置に行の値を代入する。
条件処理を終了する。
行に行たす１を代入する。
繰り返しを続けます。
セルE４に位置引く１を代入する。
セルF４に最大値を代入する。
マクロ「最大値」を終了する。 -
コード化（マクロ）
Sub 最大値()
Dim 位置 As Integer
Dim 最大値 As Variant
Dim 行 As Integer
最大値 = Range("E４")
位置 = 1
行 = 2
Do While Cells(行, 3) <> ""
If 最大値 < Cells(行, 3) Then
最大値 = Cells(行, 3)
位置 = 行
End If
行 = 行 + 1
Loop
Range("E４") = 位置 - 1
Range("F４") = 最大値
End Sub