パーツ化とは
ExcelVBAマクロ初級者からの脱却が、処理のパーツ化(プロシージャの分割)と考えています。
マクロを作る上で基本機能をパーツ化する事で、開発時間の削減に繋がります。
処理はパーツ単位で分ける事を心掛けましょう。
分かりやすく説明すると、エクセルの「関数」と同様です。
SUM関数であれば セル内に「=SUM(1+2+3)」と記載すれば、セルには「6」と表示されますよね。
値を渡せば正しい値で返ってくる動きです。
このコードをコピペでOK
Option Base 1
'■2次元配列を任意の列をキーに「昇順(小さい順)」で複数条件にて入替ソートします。
Public Function Call_arraySort2(arr As Variant, OrderCol1 As Long, OrderCol2 As Long)
Dim cnt1 As Long, cnt2 As Long
Dim tmp As Variant
Dim i As Long, j As Long, k As Long
cnt1 = UBound(arr, 1) 'データ数
cnt2 = UBound(arr, 2) 'フィールド数
'■複数キーソート
For i = 1 To cnt1
For j = cnt1 To i Step -1
'■1つ目のソート条件（OrderCol1）
If arr(i, OrderCol1) > arr(j, OrderCol1) Then
For k = 1 To cnt2
tmp = arr(i, k)
arr(i, k) = arr(j, k)
arr(j, k) = tmp
Next k
ElseIf arr(i, OrderCol1) = arr(j, OrderCol1) Then
'■2つ目のソート条件（OrderCol2）
If arr(i, OrderCol2) > arr(j, OrderCol2) Then
For k = 1 To cnt2
tmp = arr(i, k)
arr(i, k) = arr(j, k)
arr(j, k) = tmp
Next k
End If
End If
Next j
Next i
Call_arraySort2 = arr
End Function
使い方
上記をコピペでお好きなモジュール内に記載してください。
Public Sub test()
Dim ExArray As Variant
ExArray = Range("A1:E10")
Call Call_arraySort2(ExArray, 1, 2) '「1列目」→「2列目」を基準に「昇順(小さい順)」で並び替え
Call Call_arraySort2(ExArray, 4, 3) '「4列目」→「3列目」を基準に「昇順(小さい順)」で並び替え
End Sub
注意点
- Option Base 1を設定しないと動作しません
- ソート方法は「クイックソート」です。
コメント