ステートメント制御文の使用例1
基本的な使い方
-----------------------------------------
Sub 和()
Dim S As Integer
S = 0
For i = 1 To 10
S = S + i
Next i
Cells(1, 4).Value = S
End Sub
-----------------------------------------
Sub 判定()
Dim K As Integer
K = Cells(1, 5)
If K < 10 Then
MsgBox "10 より小さい"
Else
MsgBox "10 より大きい"
End If
End Sub
-----------------------------------------
Sub ビープA()
Dim J As Integer
J = 1
Do
Beep
MsgBox J & " 回"
J = J + 1
Loop While J <= 3
End Sub
-----------------------------------------
Sub ビープB()
Dim J As Integer
J = 1
Do
Beep
MsgBox J & " 回"
J = J + 1
Loop Until J = 4
End Sub
-----------------------------------------
Sub 多分岐()
Select Case Range("A3").Value
Case Is <= 20
Range("B3").Value = "小さい数"
Case 21 To 99
Range("B3").Value = "中くらいの数"
Case Is >= 100
Range("B3").Value = "大きい数"
End Select
End Sub
-----------------------------------------
演習例
演習:Visual Basic Editor を用いて次の二つのマクロを手書きし、マクロを実行せよ。
ツール → マクロ → Visual Basic Editor → コードの表示
ツール → マクロ → マクロ → マクロ選択 → 実行
Sub Macro1() '和
Dim S As Integer
S = 0
For i = 1 To 10
S = S + i
Next i
Cells(1, 4).Value = S
Cells(1, 5).Value = " <--- 1 から 10 までの和"
End Sub
Sub Macro2() '判定
Dim K As Integer
Dim M As String
M = "適当な数値を入れよ。"
K = Val(InputBox(Prompt:=M))
If K < 10 Then
MsgBox "数値 " & K & " は 10 より小さい"
Else
MsgBox "数値 " & K & " は 10 より大きい"
End If
End Sub
演習:次の [For〜Next] および [If〜Then] の構文を参考に、それぞれのマクロを
適当に自作せよ。
[For〜Next] [If〜Then]
For i = 1 To 10 If 条件式 Then
処理 真の場合の処理
Next i Else
偽の場合の処理
End If
back top