第6講 ファンクションプロシージャを理解しよう

第10話 ファンクションプロシージャとサブプロシージャをつかって成績一覧表のコードをすっきりさせるその3
05
                  〜
09
を実現するプログラム例
Private Sub CommandButton1_Click()
      
  CommandButton2_Click
  f1 'データ作成
  Dim i As Integer
  For i = 5 To 44
    f (i) '出席番号iの生徒の処理と表示
  Next
  For i = 3 To 8
    Cells(45, i) = g1(i)
  Next
  Cells(1, 1).Select
  
End Sub
Function g1(a As Integer)

  Dim i As Integer, w As Integer
  w = 0
  For i = 5 To 44
    w = w + Cells(i, a)
  Next
  g1 = w


End Function

Sub dh(a As Integer)

  Dim i As Integer
  For i = 3 To 9
   Cells(a, i) = Int(101 * Rnd)
  Next
  
End Sub
Function g(a As Integer) '合計を求めるファンクションプロシージャ
  
  Dim i As Integer, w As Integer
  w = 0
  For i = 3 To 5
    w = w + Cells(a, i)
  Next
  g = w
  
End Function
Sub gh(w As Integer, a As Integer) '合否判定を行うサブプロシージャ

  If w >= 150 Then Cells(a, 9) = "合格" Else Cells(a, 9) = "不合格"
  
End Sub
Sub k(w As Integer, a As Integer) '講評を行うサブプロシージャ

  If w >= 210 Then
    Cells(a, 10) = "あなたは超天才級です。"
  Else
    If w >= 170 Then
      Cells(a, 10) = "あなたは天才級です。"
    Else
      If w >= 130 Then
        Cells(a, 10) = "まあいいんじゃないでしょうか。"
      Else
        If w >= 90 Then
          Cells(a, 10) = "もう少し頑張りましょう。"
        Else
          Cells(a, 10) = "早く人間になりたい。"
        End If
      End If
    End If
  End If

End Sub
Sub f1()
  
  Dim i As Integer
  For i = 5 To 44
    dh (i)
  Next
  
End Sub
Sub f(a As Integer)

  Dim w As Integer
  w = g(a)
  Cells(a, 6) = w
  Call gh(w, a)
  Call k(w, a)
  
End Sub
Private Sub CommandButton2_Click()
  
  Range(Cells(5, 3), Cells(45, 10)).Select
  Selection.ClearContents
  Cells(1, 1).Select
  
End Sub


参考ダウンロード添付ファイル

ほんの少しいじっただけで、
40人and5教科用の成績一覧表に変身しました。

サブプロシージャとファンクションプロシージャを利用すると、
まだまだおもろいプログラムが組めますが、
配列・多次元ループ・関数の再帰的使用という手法を勉強すると、
さらに、世界が広がりますので、
そのときに様々なプログラムに挑戦することにしましょう。


第9話へ 第7講第1話へ

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言語入門 基礎から応用まで
本サイトトップへ