第5講 サブプロシージャを理解しよう

第3話 サブプロシージャはどうやってつくるの?
第4講の第7話のプログラムは、
部品を小さくするの原則に反しています。
vc
を実現するプログラム例
Private Sub CommandButton1_Click()
      
  Dim i As Integer, w As Integer
  Range(Cells(5, 7), Cells(5, 12)).Select
  Selection.ClearContents


  For i = 3 To 5
   Cells(5, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(6, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(7, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(8, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(9, i) = Int(101 * Rnd)
  Next
    For i = 3 To 5
   Cells(10, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(11, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(12, i) = Int(101 * Rnd)
  Next

  
  w = 0
  For i = 3 To 5
    w = w + Cells(5, i)
  Next
  Cells(5, 6) = w
  If w >= 150 Then Cells(5, 7) = "合格" Else Cells(5, 7) = "不合格"
  If w >= 210 Then
    Cells(5, 8) = "あなたは超天才級です。"
  Else
    If w >= 170 Then
      Cells(5, 8) = "あなたは天才級です。"
    Else
      If w >= 130 Then
        Cells(5, 8) = "まあいいんじゃないでしょうか。"
      Else
        If w >= 90 Then
          Cells(5, 8) = "もう少し頑張りましょう。"
        Else
          Cells(5, 8) = "早く人間になりたい。"
        End If
      End If
    End If
  End If

  
  w = 0
  For i = 3 To 5
    w = w + Cells(6, i)
  Next
  Cells(6, 6) = w
  If w >= 150 Then Cells(6, 7) = "合格" Else Cells(6, 7) = "不合格"
  If w >= 210 Then
    Cells(6, 8) = "あなたは超天才級です。"
  Else
    If w >= 170 Then
      Cells(6, 8) = "あなたは天才級です。"
    Else
      If w >= 130 Then
        Cells(6, 8) = "まあいいんじゃないでしょうか。"
      Else
        If w >= 90 Then
          Cells(6, 8) = "もう少し頑張りましょう。"
        Else
          Cells(6, 8) = "早く人間になりたい。"
        End If
      End If
    End If
  End If

  
  w = 0
  For i = 3 To 5
    w = w + Cells(7, i)
  Next
  Cells(7, 6) = w
  If w >= 150 Then Cells(7, 7) = "合格" Else Cells(7, 7) = "不合格"
  If w >= 210 Then
    Cells(7, 8) = "あなたは超天才級です。"
  Else
    If w >= 170 Then
      Cells(7, 8) = "あなたは天才級です。"
    Else
      If w >= 130 Then
        Cells(7, 8) = "まあいいんじゃないでしょうか。"
      Else
        If w >= 90 Then
          Cells(7, 8) = "もう少し頑張りましょう。"
        Else
          Cells(7, 8) = "早く人間になりたい。"
        End If
      End If
    End If
  End If

  
  w = 0
  For i = 3 To 5
    w = w + Cells(8, i)
  Next
  Cells(8, 6) = w
  If w >= 150 Then Cells(8, 7) = "合格" Else Cells(8, 7) = "不合格"
  If w >= 210 Then
    Cells(8, 8) = "あなたは超天才級です。"
  Else
    If w >= 170 Then
      Cells(8, 8) = "あなたは天才級です。"
    Else
      If w >= 130 Then
        Cells(8, 8) = "まあいいんじゃないでしょうか。"
      Else
        If w >= 90 Then
          Cells(8, 8) = "もう少し頑張りましょう。"
        Else
          Cells(8, 8) = "早く人間になりたい。"
        End If
      End If
    End If
  End If

  
  w = 0
  For i = 3 To 5
    w = w + Cells(9, i)
  Next
  Cells(9, 6) = w
  If w >= 150 Then Cells(9, 7) = "合格" Else Cells(9, 7) = "不合格"
  If w >= 210 Then
    Cells(9, 8) = "あなたは超天才級です。"
  Else
    If w >= 170 Then
      Cells(9, 8) = "あなたは天才級です。"
    Else
      If w >= 130 Then
        Cells(9, 8) = "まあいいんじゃないでしょうか。"
      Else
        If w >= 90 Then
          Cells(9, 8) = "もう少し頑張りましょう。"
        Else
          Cells(9, 8) = "早く人間になりたい。"
        End If
      End If
    End If
  End If

  
  w = 0
  For i = 3 To 5
    w = w + Cells(10, i)
  Next
  Cells(10, 6) = w
  If w >= 150 Then Cells(10, 7) = "合格" Else Cells(10, 7) = "不合格"
  If w >= 210 Then
    Cells(10, 8) = "あなたは超天才級です。"
  Else
    If w >= 170 Then
      Cells(10, 8) = "あなたは天才級です。"
    Else
      If w >= 130 Then
        Cells(10, 8) = "まあいいんじゃないでしょうか。"
      Else
        If w >= 90 Then
          Cells(10, 8) = "もう少し頑張りましょう。"
        Else
          Cells(10, 8) = "早く人間になりたい。"
        End If
      End If
    End If
  End If

  
  w = 0
  For i = 3 To 5
    w = w + Cells(11, i)
  Next
  Cells(11, 6) = w
  If w >= 150 Then Cells(11, 7) = "合格" Else Cells(11, 7) = "不合格"
  If w >= 210 Then
    Cells(11, 8) = "あなたは超天才級です。"
  Else
    If w >= 170 Then
      Cells(11, 8) = "あなたは天才級です。"
    Else
      If w >= 130 Then
        Cells(11, 8) = "まあいいんじゃないでしょうか。"
      Else
        If w >= 90 Then
          Cells(11, 8) = "もう少し頑張りましょう。"
        Else
          Cells(11, 8) = "早く人間になりたい。"
        End If
      End If
    End If
  End If

  
  w = 0
  For i = 3 To 5
    w = w + Cells(12, i)
  Next
  Cells(12, 6) = w
  If w >= 150 Then Cells(12, 7) = "合格" Else Cells(12, 7) = "不合格"
  If w >= 210 Then
    Cells(12, 8) = "あなたは超天才級です。"
  Else
    If w >= 170 Then
      Cells(12, 8) = "あなたは天才級です。"
    Else
      If w >= 130 Then
        Cells(12, 8) = "まあいいんじゃないでしょうか。"
      Else
        If w >= 90 Then
          Cells(12, 8) = "もう少し頑張りましょう。"
        Else
          Cells(12, 8) = "早く人間になりたい。"
        End If
      End If
    End If
  End If

  
  Cells(1, 1).Select
  
End Sub

Private Sub CommandButton2_Click()
  
  Range(Cells(5, 3), Cells(13, 8)).Select
  Selection.ClearContents
  Cells(1, 1).Select
  
End Sub
参考ダウンロード添付ファイル


そこで、色を付けたところをサブプロシージャに仕事を依頼して
Private Sub CommandButton1_Click()
  
  Dim i As Integer, w As Integer

  Sub CommandButton1_Click

  f1
  
  f2
  
  f3
  
  f4
  
  f5
  
  f6
  
  f7
  
  f8
  
  f9
  
  Cells(1, 1).Select
  
End Sub
としたいわけです。
では、
  For i = 3 To 5
   Cells(5, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(6, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(7, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(8, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(9, i) = Int(101 * Rnd)
  Next
    For i = 3 To 5
   Cells(10, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(11, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(12, i) = Int(101 * Rnd)
  Next

の仕事内容をもつサブプロシージャはどのようにしたら出来るのでしょうか。
実はとても簡単です。
Private Sub CommandButton1_Click()
      
   ・・・
  
End Sub
のEnd Subの右側のところでエンターして
空白行を作ります。

そして、Sub f1と打ってエンターすると、

とサブプロシージャf1が出来るのです。
カント&ペーストでCommandButton1_Clickの該当箇所を移動します。
Sub f1()

  For i = 3 To 5
   Cells(5, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(6, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(7, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(8, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(9, i) = Int(101 * Rnd)
  Next
    For i = 3 To 5
   Cells(10, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(11, i) = Int(101 * Rnd)
  Next
  For i = 3 To 5
   Cells(12, i) = Int(101 * Rnd)
  Next

End Sub
同様にして、
色のついているところをすべてサブプロシージャとして独立させて下さい。




第2話へ 第4話へ

004

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門(Visual C++ 2010で学ぶ C言語 C++ 入門)
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ第2部へ
小学生からエンジニアまでのRuby入門へ
小学生からエンジニアまでのC言語入門 基礎から応用まで
本サイトトップへ