パーツ化とは
ExcelVBAマクロ初級者からの脱却が、処理のパーツ化(プロシージャの分割)と考えています。
マクロを作る上で基本機能をパーツ化する事で、開発時間の削減に繋がります。
処理はパーツ単位で分ける事を心掛けましょう。
分かりやすく説明すると、エクセルの「関数」と同様です。
SUM関数であれば セル内に「=SUM(1+2+3)」と記載すれば、セルには「6」と表示されますよね。
値を渡せば正しい値で返ってくる動きです。
このコードをコピペでOK
Option Base 1
'■注意点■
'■2次元配列を任意の列をキーに「昇順(小さい順)」「降順(大きい順)」入替ソートします。
Public Function ArraySort(arr As Variant, OrderCol As Long, AscendingOrder As Boolean)
'■Option Base 1で実行する必要があります
'■OrderCol は ソートの基準の列です
Dim i As Long, j As Long
Dim finFlg As Boolean
Dim temp() As Variant
ReDim temp(1, UBound(arr, 2))
Do
finFlg = True
For i = 1 To UBound(arr, 1) - 1
'■並び替えの方法
Select Case AscendingOrder
Case True '■■昇順で並び替え
If arr(i, OrderCol) > arr(i + 1, OrderCol) Then
finFlg = False
For j = 1 To UBound(arr, 2)
temp(1, j) = arr(i, j)
Next j
For j = 1 To UBound(arr, 2)
arr(i, j) = arr(i + 1, j)
Next j
For j = 1 To UBound(arr, 2)
arr(i + 1, j) = temp(1, j)
Next j
End If
Case False '■■降順で並び替え
If arr(i, OrderCol) < arr(i + 1, OrderCol) Then
finFlg = False
For j = 1 To UBound(arr, 2)
temp(1, j) = arr(i, j)
Next j
For j = 1 To UBound(arr, 2)
arr(i, j) = arr(i + 1, j)
Next j
For j = 1 To UBound(arr, 2)
arr(i + 1, j) = temp(1, j)
Next j
End If
End Select
Next i
Loop While Not (finFlg)
End Function
使い方
上記をコピペでお好きなモジュール内に記載してください。
Public Sub test()
Dim ExArray As Variant
ExArray = Range("A1:C10")
Call ArraySort(ExArray, 1, True) '「1列目」を基準に「昇順(小さい順)」で並び替え
Call ArraySort(ExArray, 2, False) '「2列目」を基準に「降順(大きい順)」で並び替え
Call ArraySort(ExArray, 3, True) '「3列目」を基準に「昇順(小さい順)」で並び替え
End Sub
注意点
- Option Base 1を設定しないと動作しません
- ソート方法は「バブルソート」です。
クイックソートに比べて遅いですが数千件のデータならバブルソートでも許容されるでしょう。
コメント