〜
を実現するプログラム例
Private Sub CommandButton1_Click()
Dim a As Integer
For a = 1 To 10000
h = f(a)
Cells(3 + a, 1) = a
If h = 1 Then Cells(3 + a, 2) = "素数" Else Cells(3 + a, 2) = "非素数"
Next
End Sub
Function f(a As Integer)
Dim i As Integer, o As Integer
If a = 1 Then
f = 0
Exit Function
End If
If a = 2 Then
f = 1
Exit Function
End If
If a Mod 2 = 0 Then
f = 0
Exit Function
End If
o = Int(Sqr(a))
For i = 3 To o Step 2
If a Mod i = 0 Then
f = 0
Exit Function
End If
Next
f = 1
End Function
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
さて、次の課題です。
次の
参考ダウンロード添付ファイルを開いてAlt+F11によって
VBAのコードをご覧下さい。
サブプロシージャの導入によって、
かなりシンプルになったとはいえ、
まだまだ無駄があります。
Sub f2()
Dim i As Integer, w As Integer
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()
Dim i As Integer, w As Integer
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
・・・
同じような記述が８回も繰り返されています。
色を付けたところをプロシージャとして独立させれば、
記述は１回で済みます。
表示位置については引数で送れば済みます。
For i = 3 To 5
w = w + Cells(5, i)
Next
の部分はファンクションプロシージャにして、
それ以外はサブプロシージャにして独立させて、
コードをよりシンプルにしましょう。
さらに、後に２次元For文を学ぶとよりコードはすっきりします。
第４話へ 第６話へ
