1 年平均気温
【学習課題】セルC3～N3ni入力された毎月の平均気温から年平均気温を求め、セルO3に表示するプログラムを作成しましょう。
-
解決手順（日本語）
マクロ「年平均気温」を開始します。
月平均気温（１～１２）の変数を準備します。
月数, 月平均気温合計の変数を準備します。
月数を１から１２まで繰り返します。
Cells(3, 月数 + 2)を月平均気温(月数)に代入
します。
平均気温合計に月平均気温(月数)を加えた値
を平均気温合計に代入します。
月数に1を加えて戻ります。
平均気温合計を12で割った値をセル（3,15）に
代入します。
マクロ「年平均気温」を終了します。 -
コード化（マクロ）
Sub 年平均気温()
Dim 月平均気温(12) As Integer
Dim 月数，月平均気温合計As Integer
For 月数 = 1 To 12
月平均気温(月数) = Cells(3, 月数 + 2).Value
平均気温合計 = 平均気温合計 +
月平均気温(月数)
Next 月数
Cells(3, 15).Value = 平均気温合計 / 12
End Sub
【学習課題】セルC2に体重を、セルＣ３に身長を入力して、ＢＭＩ指数と評価を求めるプログラムを作成しましょう。
-
解決手順（日本語）
マクロ「BMI評価」を開始します。
指数,体重,身長の3つの変数を用意します。
セルＣ２の値を体重に代入します。
セルＣ３の値を身長に代入します。
体重を身長の２乗で割った値を指数に代入します
指数をセルＣ４に代入します。
もし、指数が１７．６以下ならば
セルＣ５に“やせすぎ”という文字を代入します。
上記以外で、もし、指数が１９．８より小さいなら
ばセルＣ５に“やせぎみ”という文字を代入します。
上記以外で、もし、指数が２４．２より小さいなら
ば セルＣ５に“平均”という文字を代入します。
上記以外で、もし、指数が２６．４より小さいなら
ばセルＣ５に“太りぎみ”という文字を代入します。
上記以外は
セルＣ５に“太りすぎ”という文字を代入します。
条件処理を終了します。
マクロ「BMI評価」を終了します。 -
コード化（マクロ）
Sub BMI評価 ()
Dim 指数, 体重, 身長 As Double
体重 = Range("C2")
身長 = Range("C3")
指数 = 体重 / 身長 ^ 2
Range("C4") = 指数
If 指数 <= 17.6 Then
Range("C5") = "やせすぎ"
ElseIf 指数 < 19.8 Then
Range("C5") = "やせぎみ"
ElseIf 指数 < 24.2 Then
Range("C5") = "平均"
ElseIf 指数 < 26.4 Then
Range("C5") = "太りぎみ"
Else
Range("C5") = "太りすぎ"
End If
End Sub
3 ローレル指数評価
【学習課題】セルC2に体重を、セルＣ３に身長を入力して、ローレル指数と評価を求めるプログラムを作成しましょう。
-
解決手順（日本語）
マクロ「ローレル指数」を開始します。
指数,体重,身長の３つの変数を用意します。
セルＣ２の値を体重に代入します。
セルＣ３の値を身長に代入します。
体重を身長の３乗で割って１０倍した値を指数に
代入します。
指数をセルＣ４に代入します。
もし、指数が１００より小さいならば
セルＣ５に“やせすぎ”という文字を代入します。
上記以外で、もし、指数が１１５より小さいならば
セルＣ５に“やせぎみ”という文字を代入します。
上記以外で、もし、指数が１４５より小さいならば
セルＣ５に“平均”という文字を代入します。
上記以外で、もし、指数が１６０より小さいならば
セルＣ５に“太りぎみ”という文字を代入します。
上記以外は
セルＣ５に“太りすぎ”という文字を代入します。
条件処理を終了します。
マクロ「ローレル指数」を終了します。 -
コード化（マクロ）
Sub ローレル指数()
Dim 指数, 体重, 身長 As Double
体重 = Range("C2")
身長 = Range("C3")
指数 = 体重 / 身長 ^ 3 * 10
Range("C4") = 指数
If 指数 < 100 Then
Range("C5") = "やせすぎ"
ElseIf 指数 < 115 Then
Range("C5") = "やせぎみ"
ElseIf 指数 < 145 Then
Range("C5") = "平均"
ElseIf 指数 < 160 Then
Range("C5") = "太りぎみ"
Else
Range("C5") = "太りすぎ"
End If
End Sub
4 成績判定1
【学習課題】セルB3に英語、セルC3に数学の点数を入力して、いずれも60点以上であれば合格、どちらかが60点未満であれば不合格と判定し、その結果をD3にひょうじする成績判定プログラムを作成しましょう。
-
解決手順（日本語）
マクロ「成績判定１」を開始します。
変数（英語、数学）を準備します。
セルＢ３の値を英語に代入します。
セルＣ３の値を数学に代入します。
英語が６０以上で、数学が６０以上ならば
セルＤ３に“合格”という文字を代入します
上記以外の特は。
セルＤ３に“不合格”という文字を代入します
条件処理を終了します。
マクロを終了します。 -
コード化（マクロ）
Sub 成績判定１()
Dim 英語, 数学 As Integer
英語 = Range("B3").Value
数学 = Range("C3").Value
If 英語 >= 60 And 数学 >= 60 Then
Range("D3").Value = "合格"
Else
Range("D3").Value = "不合格"
End If
End Sub
5 成績判定2
【学習課題】英語と数学の合計点が160点以上であればA、120点以上160点未満であればB、120点未満であればCという条件で成績結果を判定するプログラムです。下線を埋めましょう。
-
解決手順（日本語）
マクロ「成績判定２」を開始します。
変数（英語、数学）を準備します。
セルＢ３の値を英語に代入します。
セルＣ３の値を数学に代入します。
英語に数学を足した値を合計に代入します。
セルＤ３に合計の値を代入します。
もし、合計が１６０以上ならば
セルＥ３に“Ａ”を代入します。
上記以外で、合計が１２０以上ならば
セルＥ３に“Ｂ”を代入します。
そして、上記以外ならば
セルＥ３に“Ｃ”を代入します。
条件処理を終了します。
マクロを終了します。 -
コード化（マクロ）
Sub 成績判定2()
Dim 英語, 数学, 合計 As Integer
英語 = Range("B3").Value
数学 = Range("C3").Value
合計 = 英語 + 数学
Range("D3").Value = 合計
If 合計 >= 160 Then
Range("E3").Value = "Ａ"
ElseIf 合計 >= 120 Then
Range("E3").Value = "Ｂ"
Else
Range("E3").Value = "Ｃ"
End If
End Sub
6 成績判定3
【学習課題】国語、数学、英語の合計点を下記の基準点をもとに5段階評価するプログラムを作成しましょう。
-
解決手順（日本語）
マクロ「成績判定３」を開始します。
変数（国語、数学、英語、合計）を準備します。
Ｂ３の値を国語に代入します。
Ｃ３の値を数学に代入します。
Ｄ３の値を英語に代入します。
国語と数学と英語を足した値を合計に代入します
セルＥ３に合計を代入します。
合計について
２５０以上３００以下の場合
セルＦ３に“Ａ”を代入します。
２００以上２５０未満の場合
セルＦ３に“Ｂ”を代入します。
１５０以上２００未満の場合
セルＦ３に“Ｃ”を代入します。
１００以上１５０未満の場合
セルＦ３に“Ｄ”を代入します。
０以上１００未満の場合
セルＦ３に“Ｅ”を代入します。
分岐処理を終了します。
マクロ「成績判定３」を終了します。 -
コード化（マクロ）
Sub 成績判定3()
Dim 国語, 数学, 英語, 合計 As Integer
国語 = Range("B3")
数学 = Range("C3")
英語 = Range("D3")
合計 = 国語 + 数学 + 英語
Range("E3").Value = 合計
Select Case 合計
Case 250 To 300
Range("F3").Value = "Ａ"
Case 200 To 2４９
Range("F3").Value = "Ｂ"
Case 150 To 200
Range("F3").Value = "Ｃ"
Case 100 To 150
Range("F3").Value = "Ｄ"
Case 0 To 100
Range("F3").Value = "Ｅ"
End Select
End Sub
7 成績判定4
【学習課題】１０人の平均点と平均点以上の人数を示すプログラムを作成しましょう。
-
解決手順
マクロ「成績処理」を開始します。
変数（NO, 点数, 合計, 平均点, 人数）を準備
します。
合計に０を代入します。
ＮＯが１から１０まで繰り返します。
セル(NO + 2, 3)に点数を代入します。
合計に点数を足した値を合計に代入します。
ＮＯに１加えて戻ります。
合計を１０で割った値を平均点に代入します。
人数に０を代入します。
ＮＯが１から１０まで繰り返します。
もし、セル(NO + 2, 3)が平均点以上のとき、
人数に１足した値を人数に代入します。
ＮＯに１加えて戻ります。
セルＣ１３に平均点を代入します。
セルｃ１４に人数を代入します。
マクロを終了します。 -
コード化（マクロ）
Sub 成績処理()
Dim NO, 点数, 合計, 平均点, 人数 As Integer
合計 = 0
For NO = 1 To 10
点数 = Cells(NO + 2, 3).Value
合計 = 合計 + 点数
Next NO
平均点 = 合計 / 10
人数 = 0
For NO = 1 To 10
If Cells(NO + 2, 3).Value
>= 平均点 Then 人数 = 人数 + 1
Next NO
Range("C13").Value = 平均点
Range("C14").Value = 人数
End Sub
8 おみくじ
【学習課題】乱数を使って、大吉・中吉・小吉・吉・大凶・凶のおみくじを表示するプログラムを作成しましょう。
-
解決手順（日本語）
マクロ「おみくじ」を開始します。
変数（おみくじ）を準備します。
変数（結果）を準備します。
乱数
１乱数×６＋１の値を結果に代入します。
結果について
１の場合には“大吉”をおみくじに代入します。
２の場合には“中吉”をおみくじに代入します。
３の場合には“小吉”をおみくじに代入します。
４の場合には“吉”をおみくじに代入します。
５の場合には“大凶”をおみくじに代入します。
６の場合には“凶”をおみくじに代入します。
分岐処理を終了します。
今日の運勢は“ ”をボックスに表示します。
マクロを終了します。 -
コード化（マクロ）
Sub おみくじ()
Dim おみくじ As String
Dim 結果 As String
Randomize
結果 = Int((Rnd) * 6 + 1)
Select Case 結果
Case 1: おみくじ = "大吉"
Case 2: おみくじ = "中吉"
Case 3: おみくじ = "小吉"
Case 4: おみくじ = "吉"
Case 5: おみくじ = "大凶"
Case 6: おみくじ = "凶"
End Select
MsgBox "今日の運勢：" & おみくじ & ""
End Sub
9 10年後の預金
【学習課題】F3に元金、Ｆ４に金利を入力して、このときの１０年間の複利預金の変化の様子をセルＣ３：Ｃ１２に表すプログラムを作成しましょう。
-
解決手順
マクロ「預金」を開始します。
変数（預金・金利・年数）を準備します。
セル（３，６）の値を預金に代入します。
セル（４，６）の値を金利に代入します。
年数を１から１０まで繰り返します。
預金×（金利＋１）の値を預金に代入します。
セル(年数 + 2, 2)に年数を代入します。
セル(年数 + 2,３)に預金を代入します。
年数に１加えて戻ります。
マクロを終了します。 -
コード化（マクロ）
Sub 預金()
Dim 預金・金利・年数As Long
預金 = Cells(3, 6).Value
金利 = Cells(4, 6).Value
For 年数 = 1 To 10
預金 = 預金 * (金利 + 1)
Cells(年数 + 2, 2).Value = 年数
Cells(年数 + 2, 3).Value = 預金
Next 年数
End Sub
10 パスワード
【学習課題】事前にアカウントABＣ77DＥＦ、パスワード９９９９をプログラムに書き込み、Ｃ２にアカウント、Ｃ３にパスワードを入力したときのログイン可能かどうかをＢ５に表すプログラムを作成しましょう。
-
解決手順（日本語）
マクロ「ログイン」を開始します。
変数（アカウント ，パスワード）を準備します。
Ａに１００９を代入します。
ｐに３５を代入します。
セル（２，３）の値をアカウントに代入します。
セル（３，３）の値をパスワードに代入します。
もし、アカウント＝Ａでかつパスワード＝ｐのとき
セル（５，２）に“ようこそ”を代入します。
上記以外のときは
セル（５，２）に“アカウント、パスワードが間違っ
ています｡”を代入します。
条件分岐を終了します。
マクロを終了します。 -
コード化（マクロ）
Sub ログイン()
Dim アカウント ，パスワード As Integer
A = 1009
p = 35
アカウント = Cells(2, 3).Value
パスワード = Cells(3, 3).Value
If (アカウント=A) And (パスワード=p) Then
Cells(5, 2).Value = "ようこそ"
Else
Cells(5, 2).Value = "アカウント、パスワードが
間違っています｡ "
End If
End Sub