第３話 最小値探索マクロ例
を実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(200) As Integer
Call f(a()) 'データ発生
Call h(a()) 'データ表示
Call g(a()) '最小値の探索と表示
End Sub
Sub f(a() As Integer)
Dim i As Integer
For i = 0 To 4
a(i) = Int(10 * Rnd)
Next
End Sub
Sub g(a() As Integer)
Dim i As Integer, min As Integer
min = 10
For i = 0 To 4
If min > a(i) Then min = a(i)
Next
Cells(5, 1) = "最小値は"
Cells(5, 2) = min
End Sub
Sub h(a() As Integer)
Dim i As Integer
For i = 0 To 4
Cells(4, 1 + i) = a(i)
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
これを改良して、最大値も表示させて下さい。
