1 偶数・奇数
【学習課題】任意の整数をセルＢ３に入力して、偶数か奇数のどちらであるか判別するマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「偶数奇数」を開始する。
整数、余りの２つの変数を用意する。
セルB３の値を変数（整数）に代入する。
整数を２で割ったときのあまりを余りに代入する。
余りが０の時は
偶数という文字をセルC３に代入する。
それ以外の値の場合は
奇数という文字をセルC３に代入する。
条件処理を終了する。
マクロ「偶数奇数」を終了する。 -
コード化（マクロ）
Sub 偶数奇数()
Dim 整数, 余り As Integer
整数 = Range("B３").Value
余り = 整数 Mod 2
If 余り = 0 Then
Range("C３").Value = "偶数"
Else
Range("C３").Value = "奇数"
End If
End Sub
2 自然数の和
【学習課題】自然数１からN（セルＣ３）までの和を求めるマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「自然数の和」を開始する。
変数（個数）を準備する。
変数（カウント）を準備する。
変数（和）を準備する。
セルB３の値を個数に代入する。
次をカウントの値１から個数の値まで繰り返す。
和の値にカウントの値を加えた値を和に代入する。
カウントの値を１増やして繰り返しの始めに戻る。
和の値をセルC３に代入する。
マクロ「自然数の和」を終了する。 -
コード化（マクロ）
Sub 自然数の和()
Dim 個数 As Integer
Dim カウント As Integer
Dim 和 As Integer
個数 = Range("B３").Value
For カウント = 1 To 個数
和 = 和 + カウント
Next カウント
Range("B２").Value = 和
End Sub
3 数列計算1
【学習課題】最初の数（セルＣ２）と個数（セルＣ３）を入力して、例のように数列の合計をセルＣ４に表すマクロを作成しましょう。
例 最初の数１ 個数１０ １＋２＋３＋４＋５＋６＋７＋８＋９＋１０＝５５
-
基本技術と解決手順（日本語）
マクロ「数列計算１」を開始する。
変数（最初,個数）を準備する。
変数（カウント）を準備する。
変数（合計）を準備する。
セルC２の値を最初に代入する。
セルC３の値を個数に代入する。
合計に０を代入する。
カウントの値１から個数の値まで繰り返す。
合計の値に１を加えた値を合計に代入する。
カウントの値を１増やして繰り返しの始めに戻る。
合計の値をセルC４に代入する。
マクロ「数列処理２」を終了する。 -
コード化（マクロ）
Sub 数列計算1()
Dim 個数 As Integer
Dim カウント As Integer
Dim 合計 As Integer
最初 = Range("C２")
個数 = Range("C３")
合計 = 0
For カウント = 1 To 個数
合計 = 合計 + 1
Next
Range("C４") = 合計
End Sub
4 数列計算2
【学習課題】入力された最初の数（セルＣ２）・等差（セルＣ３）・個数（セルＣ４）をもとに数列の合計をセルＣ５に表すマクロを作成しましょう。
例 最初の数１ 等差３ 個数１０ １＋４＋７＋１０＋１３＋１６＋１９＋２２＋２５＋２８＝１４５
-
基本技術と解決手順（日本語）
マクロ「数列計算２」を開始する。
変数（最初, 個数, 等差）を準備する。
変数（カウント）を準備する。
変数（合計）を準備する。
セルC２の値を最初に代入する。
セルC３の値を等差に代入する。
セルC４の値を個数に代入する。
合計に０を代入する。
カウントの値１から個数の値まで繰り返す。
合計の値に最初を加えた値とカウントから１引
いた値に等差かけた値を合計に代入する。
カウントの値を１増やして繰り返しの始めに戻る。
合計の値をセルC５に代入する。
マクロ「数列処理２」を終了する。 -
コード化（マクロ）
Sub 数列計算2()
Dim 最初, 個数, 等差 As Integer
Dim カウント As Integer
Dim 合計 As Integer
最初 = Range("C２")
等差 = Range("C３")
個数 = Range("C４")
合計 = 0
For カウント = 1 To 個数
合計 = 合計 + 最初 + (カウント - 1) * 等差
Next カウント
Range("C５") = 合計
End Sub
5 素数
【学習課題】セルＢ３に入力した数について、素数かどうか判定してセルＣ３に表すマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「素数判定」を開始する。
変数（ある数,I）を準備する。
変数（判定）を準備する。
セルB３の値を変数（ある数）に代入する。
変数（判定）に０を代入する。
Iが２からある数から１引いた数まで繰り返す。
もし、ある数をIで割ったあまりが０の時、判定に１を 代入する。
Iから１引いて戻る。
もし、判定が０の時は
セルC３に素数という文字を代入する。
このこと以外の場合には
セルC３に合成数という文字を代入する。
条件処理を終わります。
マクロ「素数判定」を終了する。 -
コード化（マクロ）
Sub 素数判定()
Dim ある数 As Long
Dim 判定 As Integer
ある数 = Range("B３")
判定 = 0
For I = 2 To ある数 - 1
If ある数 Mod I = 0 Then 判定 = 1
Next I
If 判定 = 0 Then
Range("C３") = "素数"
Else
Range("C３") = "合成数"
End If
End Sub
6 最大公約数
【学習課題】セルＣ２とセルＣ３の２数の最大公約数をセルＣ４に表すマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「最大公約数」を開始する。
変数（数１, 数２）を準備する。
変数（余り）を準備する。
セルB１の値を数１に代入する。
セルB２の値を数２に代入する。
以下の式の実行を繰り返する。
数１を数２で割ったときのあまりを余りに代入する
数２を数１に代入する。
余りを数２に代入する。
余りが０でない場合は繰り返す。
セルB３に数１を代入する。
マクロ「最大公約数」を終了する。 -
コード化（マクロ）
Sub 最大公約数()
Dim 数1, 数2 As Long
Dim 余り As Long
数1 = Range("B１")
数2 = Range("B２")
Do
余り = 数1 Mod 数2
数1 = 数2
数2 = 余り
Loop While 余り <> 0
Range("B３") = 数1
End Sub
7 最小公倍数
【学習課題】セルＣ２とセルＣ３の２数の最小公倍数をセルＣ４に表すマクロを作成しましょう。
-
基本技術と解決手順（日本語）
マクロ「最大公約数」を開始する。
変数（数１, 数２）を準備する。
変数（余り）を準備する。
変数（余り）を準備する。
セルC２の値を数１に代入する。
セルC３の値を数２に代入する。
以下の式の実行を繰り返す。
数１を数２で割ったときのあまりを余りに代入する
数２を数１に代入する。
余りを数２に代入する。
余りが０でない場合は繰り返す。
セルC２を数１で割った値にセルC３をかけた値をセルC４に代入する。
マクロ「最大公約数」を終了する。 -
コード化（マクロ）
Sub 最小公倍数()
Dim 数1, 数2 As Long
Dim 余り As Long
数1 = Range("C２")
数2 = Range("C３")
Do
余り = 数1 Mod 数2
数1 = 数2
数2 = 余り
Loop While 余り <> 0
Range("C４") = Range("C２") / 数1 *
Range("C３")
End Sub