ステートメント制御文の使用例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