を実現するプログラム例
Private Sub CommandButton1_Click()
Dim i As Integer, w As Integer
CommandButton2_Click
f1
f2
f3
f4
f5
f6
f7
f8
f9
Cells(1, 1).Select
End Sub
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
Sub f2()
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
End Sub
Sub f3()
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
End Sub
Sub f4()
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
End Sub
Sub f5()
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
End Sub
Sub f6()
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
End Sub
Sub f7()
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
End Sub
Sub f8()
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
End Sub
Sub f9()
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
End Sub
Private Sub CommandButton2_Click()
Range(Cells(5, 3), Cells(13, 8)).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
ダウンロード添付ファイル
CommandButton1_Clickが１人でいろいろな仕事をしていたのですが、
CommandButton1_Clickが
CommandButton2_Click,f1,f2,f3,f4,f5,f6,f7,f8,f9
で合計10人の人に仕事を依頼しました。
CommandButton1_Clickの空行をカットすると、
Private Sub CommandButton1_Click()
Dim i As Integer, w As Integer
CommandButton2_Click
f1
f2
f3
f4
f5
f6
f7
f8
f9
Cells(1, 1).Select
End Sub
となり、大分すっきりしましたが、
それでもそれぞれの人が何の仕事をしているのかは、
CommandButton1_Clickを見ただけでは分かりません。
そこで、次話で注釈文を学び、
それぞれに人
CommandButton2_Click,f1,f2,f3,f4,f5,f6,f7,f8,f9
の任務が何であるのか、分かるようにしましょう。
1つだけ大事な注意があります。
今回のソースで確かに問題なく動いています。
ですが、Ｃ言語やＪａｖａなら間違いなくエラーしています。
動くのに何が問題?
それは、ＶＢＡやＶＢだから動くだけであって、
基本的には他の言語では、今回のコードだと動きません。
部品を組み立ててプログラミングすることを構造化プログラミングというのですが、
構造化プログラミングになるためには、
実は大変重要な条件があるのです。
それは、独立ということです。
？？？ですよね。
第６話で詳しく説明します。
第３話へ 第５話へ
