第４話 最小値と最大値探索マクロ例
を実現するプログラム例
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, max As Integer
max = 0
min = 10
For i = 0 To 4
If min > a(i) Then min = a(i)
Next
Cells(5, 1) = "最小値は"
Cells(5, 2) = min
For i = 0 To 4
If max < a(i) Then max = a(i)
Next
Cells(5, 3) = "最大値は"
Cells(5, 4) = max
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
参考ダウンロード添付ファイル
いよいよ本番です。
参考ダウンロード添付ファイル２
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(200) As Integer, b(200) As Integer, c(200) As Integer
Call f(a(), b(), c()) 'データ発生
Call h(b(), 4) 'データ表示
Call g1(b()) '昇順並び換え
Call h(b(), 5) 'データ表示
Call g2(c()) '昇順並び換え
Call h(c(), 6) 'データ表示
End Sub
Sub f(a() As Integer, b() As Integer, c() As Integer)
Dim i As Integer
For i = 0 To 4
a(i) = Int(10 * Rnd)
b(i) = a(i)
c(i) = a(i)
Next
End Sub
Sub g1(a() As Integer) '配列名はb()である必要はない！
End Sub
Sub g2(a() As Integer) '配列名はc()である必要はない！
End Sub
Sub h(a() As Integer, n As Integer)
Dim i As Integer
For i = 0 To 4
Cells(n, 1 + i) = a(i)
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
空白部分を埋めて、
データを昇順と降順に並び換えるマクロ
を作って下さい。
配列を３つ用意したのは、
元のデータは残しておきたいからです。
発生データは２桁の整数にして下さい。
１桁だとダブル場合が多いからです。
