Q&A
とりあえずスワップされていないようですが。
説明を書くのが苦手です、なので箇条書きで書かせていただきます。
１．VBAで構造体内の一項目を使用して構造体全体をソートさせるのはどうすればいいでしょうか？
構造体のコード
VBA
1 Public Const ranking_table_y_max = 4000 2 Public Const ranking_table_x_max = 10 3 4 Type ranking_table 5 officename As String '事業所名 6 sei_corporationname As String '法人正式名 7 corporationname As String '法人名 8 corporationno As Long '法人番号 9 zen_salesamount As Currency '前年売上高 10 kon_salesamount As Currency '当年売上高 11 12 End Type 13 Public ranking(0 To ranking_table_x_max, 0 To ranking_table_y_max) As ranking_table '地区と法人 14 'rankingの部分が配列名 15
２．下記のようにソートのプログラムを書いてみたのですが、値は動きましたが、ソートされませんでした。
※https://excel-ubara.com/excelvba5/EXCELVBA229.html こちらのサイトを参考しました。
VBA
1 Public Function zyun_csvimport_Sort() As Boolean 2 On Error GoTo Sort_ERROR 3 4 5 Dim vSwap As ranking_table 6 Dim i As Long 7 Dim j As Long 8 Dim k As Integer 9 Dim keyPos As Long: keyPos = 1 10 11 12 13 For i = LBound(ranking, 1) To UBound(ranking, 1) 14 For j = LBound(ranking) To UBound(ranking) - 1 15 If ranking(j, keyPos).kon_salesamount < ranking(j + 1, keyPos).kon_salesamount Then 16 For k = LBound(ranking, 2) To UBound(ranking, 2) 17 vSwap = ranking(j, k) 18 ranking(j, k) = ranking(j + 1, k) 19 ranking(j, k) = vSwap 20 Next 21 End If 22 Next j 23 Next i 24 25 zyun_csvimport_Sort = True 26 Exit Function 27Sort_ERROR: 28 zyun_csvimport_Sort = False 29 MsgBox "zyun_csvimport_Sort(ソート部分)でエラー" 30 End Function 31
ソートに入る前の部分のコード
VBA
1 Close #filenumber 2 'ソート部分-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-**-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 3'ここまでは動きます。 *********************************↓ 4 If zyun_csvimport_Sort() = False Then 5 Else 6 End If 7 8 Debug.Print "zyun_csvimport_Sort" 9 10 '出力部分-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-**-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 11 zyun_csvimport = True 12 MsgBox "正常終了しました" 13 Exit Function 14csvimport_ERROR: 15 zyun_csvimport = False 16 MsgBox "zyun_csvimportでエラー" 17End Function 18コード
２次元配列の図
タイトルの（基本のソートは担当から教えてもらっておりません）とはどういう意味でしょうか？
VBAについては全く詳しくないので、担当の人に教えてくれております。急にこのプログラムを作れと言われたのですが、担当の人は「一人で作れ」と言ってソートについて教えてくれなくで
当たり前。
回答3件
0
ベストアンサー
こんな感じでどうでしょうか。
VBA
1Public Function zyun_csvimport_Sort() As Boolean 2 On Error GoTo Sort_ERROR 3 4 Dim vSwap As ranking_table 5 Dim i As Long 6 Dim j As Long 7 Dim r As Long 8 9 For r = 0 To UBound(ranking, 1) '地区ごとに処理 10 11 'バブルソート start 12 For i = UBound(ranking, 2) To LBound(ranking, 2) Step -1 13 For j = LBound(ranking, 2) To i - 1 14 If ranking(r, j).kon_salesamount < ranking(r, j + 1).kon_salesamount Then 15 vSwap = ranking(r, j) 16 ranking(r, j) = ranking(r, j + 1) 17 ranking(r, j + 1) = vSwap 18 End If 19 Next j 20 Next i 21 'バブルソート end 22 23 Next r 24 25 'ここは関係ない 26 zyun_csvimport_Sort = True '正常終了の場合は Trueを返す 27 Exit Function 28Sort_ERROR: 29 zyun_csvimport_Sort = False 30 MsgBox "zyun_csvimport_Sort(ソート部分)でエラー" 31 End Function
投稿2021/08/21 14:45
編集2021/08/22 14:18
総合スコア4585
すいません。
それは、
For k = LBound(ranking, 2) To UBound(ranking, 2)
vSwap = ranking(j, k).kon_salesamount ←ここの部分のことでしょうか？
ranking(j, k) = ranking(j + 1, k)
ranking(j, k).kon_salesamount = vSwap
Next
For k = LBound(ranking, 2) To UBound(ranking, 2)
vSwap = ranking(j, k)
ranking(j, k) = ranking(j + 1, k)
ranking(j, k) = vSwap
Next
このように書き換えたときに
パブリックオブジェクトモジュールで定義されたユーザー定義型に限り、変数に割り当てることができ、実行時バインディングの関数を渡すことができます
というコンパイルエラーが発生いたします。
Dim vSwap As ranking_table としたらどうでしょう。
返事ありがとうございます。
Dim vSwap As ranking_table に変えました。
パブリックオブジェクトモジュールで定義されたユーザー定義型に限り、変数に割り当てることができ、実行時バインディングの関数を渡すことができます
は発生しなくなりましたが ソートされませんでした
すいません。
ranking(officena, ko_kx) の officenaは事業所ごとに分けています。
なので一次元では表現ができないです
一次元には事業所 ２次元目が法人名 になります
遅れましたすいません。
２次元配列の仕組み図を追加しました
並び替えは、 Type ranking_table の kon_salesamount を使用して type丸ごとを大きい順にソートするです
各事業所ごとに、売上の一番大きいところが一番左に来るかたちで横方向に並べ替えるということですね？
はい。地区ごとに降順です
例えば 1，１に200 1，2に300 1，3に100 が来てたら。
１，１を300 １，２を200 １，３ を100 にするということです。
１の大阪が並び替え終わったら、2の四国の並び替えを行う
コードを再追記しました。
出来ました。ありがとうございます
0
そもそも
構造体の配列を２次元で宣言しているのが、間違いだと思います。
vb
1Public ranking(0 To ranking_table_x_max, 0 To ranking_table_y_max) As ranking_table '地区と法人
参考にされたサイトが２次元配列に対してソートしているのは
vb
1myAry1 = ws1.Range("A1:B10000").Value
によってセルの値を2次元配列に格納しているためです。
構造体の配列に対してソートする場合は、構造体の各メンバがEXCELのセルの列に該当するため、1次元配列として宣言するべきです。
参考にされているサイトの中でも以下のページを参考にする方が良いでしょう。
https://excel-ubara.com/excelvba5/EXCELVBA228.html
参考にするサイトのコードを
vb
1Dim vSwap As Variant 2↓ 3Dim vSwap As ranking_table 4'テーブルの行を交換するための退避用の変数
となるように変更することを前提に考えればよいでしょう。
投稿2021/08/22 01:36
編集2021/08/22 02:00
総合スコア358
Public Function zyun_csvimport_Sort() As Boolean
On Error GoTo Sort_ERROR
Dim vSwap As ranking_table
Dim i As Long
Dim j As Long
Dim k As Integer
Dim keyPos As Long: keyPos = 1
For i = LBound(ranking, 1) To UBound(ranking, 1)
For j = LBound(ranking) To UBound(ranking) - 1
If ranking(j, keyPos).kon_salesamount < ranking(j + 1, keyPos).kon_salesamount Then
For k = LBound(ranking, 2) To UBound(ranking, 2)
vSwap = ranking(j, k)
ranking(j, k) = ranking(j + 1, k)
ranking(j, k) = vSwap
Next
End If
Next j
Next i
Dim vSwap As ranking_tableに書き換えました。
が並び変えられませんでした。
0
※ 私の回答はバブルソートのアルゴリズム云々とは別です
構造体のソートといっても
実際は、同着の順位付け・先にグループ項目の指定
といった条件が付与されるのでしょうから
多次元、つまり構造体の複数メンバに対する条件付きソートになると
柔軟な対応が出来ません。
私なら、構造体をデータベースのテーブルに見立て、
構造体の配列をADODB.Recordsetに格納しておいてSortプロパティを使う
といった手段を取ります。
VBA
1Option Explicit 2 3Type ranking_table 4 officename As String '事業所名 5 sei_corporationname As String '法人正式名 6 corporationname As String '法人名 7 corporationno As Long '法人番号 8 zen_salesamount As Currency '前年売上高 9 kon_salesamount As Currency '当年売上高 10End Type 11 12Private ranking() As ranking_table 13 14Private Sub setStruct(ByRef arrayLength As Long) 15 With ThisWorkbook.Worksheets(1) 16 Dim lngLastRow As Long 17 lngLastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row 18 If (lngLastRow <= 1) Then 19 arrayLength = -1 20 Exit Sub 21 End If 22 arrayLength = lngLastRow - 2 '見出し行を除く 23 ReDim ranking(arrayLength) As ranking_table 24 Dim i As Long 25 26 For i = 2 To lngLastRow 27 ranking(i - 2).officename = .Cells(i, 1).Value 28 ranking(i - 2).sei_corporationname = .Cells(i, 2).Value 29 ranking(i - 2).corporationname = .Cells(i, 3).Value 30 ranking(i - 2).corporationno = CLng(.Cells(i, 4).Value) 31 ranking(i - 2).zen_salesamount = CCur(Cells(i, 5).Value) 32 ranking(i - 2).kon_salesamount = CCur(.Cells(i, 6).Value) 33 Next i 34 End With 35End Sub 36 37Public Sub main() 38 Dim max_index As Long 39 Call setStruct(max_index) 40 If (max_index < 0) Then Exit Sub 41 42 Dim rs As Object 43 Set rs = CreateObject("ADODB.Recordset") 44 rs.CursorLocation = 3 'adUseClient 45 rs.CursorType = 3 'adOpenStatic 46 rs.Fields.Append "officename", 200, 100 'adVarChar = 200 47 rs.Fields.Append "sei_corporationname", 200, 120 'adVarChar = 200 48 rs.Fields.Append "corporationname", 200, 100 'adVarChar = 200 49 rs.Fields.Append "corporationno", 3 'adInteger = 3 50 rs.Fields.Append "zen_salesamount", 6 'adCurrency = 6 51 rs.Fields.Append "kon_salesamount", 6 'adCurrency = 6 52 rs.Open 53 54 Dim i As Long 55 For i = 0 To max_index 56 rs.AddNew 57 rs.Collect("officename") = ranking(i).officename 58 rs.Collect("sei_corporationname") = ranking(i).sei_corporationname 59 rs.Collect("corporationname") = ranking(i).corporationname 60 rs.Collect("corporationno") = ranking(i).corporationno 61 rs.Collect("zen_salesamount") = ranking(i).zen_salesamount 62 rs.Collect("kon_salesamount") = ranking(i).kon_salesamount 63 rs.Update 64 Next i 65 66 '【 複数列をキーとしてソートを実施 】 67 '1. 当年売上高 -- 降順 68 '2. 前年売上高 -- 降順 69 '3. 法人番号 -- 昇順 70 '4. 事業所名 -- 昇順 71 rs.Sort = "kon_salesamount DESC, " _ 72 & "zen_salesamount DESC, " _ 73 & "corporationno ASC, " _ 74 & "officename ASC" 75 76 Rem Debug.Print rs.GetString 77 Dim rank As Long 78 Dim msg As String 79 While (Not rs.EOF) 80 rank = rank + 1 81 msg = "順位: " & CStr(rank) _ 82 & ", 法人: " & rs.Collect("corporationname") _ 83 & ", 当年売上高: " & CStr(rs.Collect("kon_salesamount")) _ 84 & ", 前年売上高:" & CStr(rs.Collect("zen_salesamount")) 85 Debug.Print msg 86 'ソートの結果を構造体へ反映させるなら ここに代入処理を記述すればいいでしょう 87 rs.MoveNext 88 Wend 89 rs.Close 90 Set rs = Nothing 91End Sub
投稿2021/08/21 16:31
総合スコア335
教えていただいてありがとうございます。
すいません。シートに一度書き出しするのはできないです、データ件数が６４万件ありまして書き出すと処理が遅くなります。
私が投稿したコードでは
シートへ書き出しを実施するロジックは一切組み込んでおらず
単に、構造体の配列に値をセットする手段として
ワークシート上のセルから値を読み取ったにすぎません。
構造体も一応使ってはいますけど、要・不要という観点で申し上げると「不要」ですし、
ADODB.Recordset のソートが、構造体のバブルソートより処理が遅くなるとも思えません。
64万行程度なら特に問題ないでしょう。
読み込みするデータはCSVになっておりまして。CSVのリードはPrivate ranking() As ranking_tableより前にすればいいですか？
いえ。変数の宣言よりは後になりますね。
CSVの各列を構造体に格納なさりたいのでしたら
setStructプロシージャの中で実施している
【 ワークシートから値を読み取って構造体のメンバにセットする 】
という処理を
↓
【 CSVの行を読み、必要な列の値を構造体のメンバにセットする 】
ように変更なさればいいでしょう。
もう少しアドバイスすると
構造体のメンバにCSVの列をセットするのではなく
構造体を使わず、CSVからデータを読み取る処理において
直接、ADODB.Recordset に各列の値を格納してしまえばいいでしょう。
rs.AddNew
rs.Collect("officename") = 事業所名 の値(CSV)
rs.Collect("sei_corporationname") = 法人正式名 の値(CSV)
rs.Collect("corporationname") = 法人名 の値(CSV)
rs.Collect("corporationno") = 法人番号 の値(CSV)
rs.Collect("zen_salesamount") = 前年売上高 の値(CSV)
rs.Collect("kon_salesamount") = 当年売上高 の値(CSV)
rs.Update
こんな感じで。
どうしてもうまくいかないようでしたら
CSVのデータを読み取って構造体に格納している部分のコードを
提示いただけますか。
横からすみません。自分も ADO を使う方法、良いと思います。（ソートアルゴリズムを勉強したいという目的でなければ）
ADOを使うことで CSV ファイルを SQL のテーブルのように操作できますし CopyFromRecordset メソッドを使うとレコードセットを高速にシートに出力することが出来たかと思います。
＜参考情報＞
■ ADOでCSVの読み込み（SQL）
https://excel-ubara.com/excelvba5/EXCEL118.html
ADO を使う場合、OLEDB プロバイダを別途インストールしなければならない場合があります。
https://morimorigameblogg.blogspot.com/2019/01/64bit-ms-access-2019sql.html
> ADO を使う場合、OLEDB プロバイダを別途インストールしなければならない場合があります。
おっと。そうでした。Zuishin さん ご指摘ありがとうございます。
Excel が 32bit 版であれば、OS に付属の OLE DB プロバイダ「Microsoft.Jet.OLEDB.4.0」が使えるかもしれないですが、64bit 版ということであれば、別途、OLE DB プロバイダの導入が必要そうですね。。
■ Microsoft.ACE.OLEDBについてまとめてみた
https://qiita.com/yaju/items/7b0aa9e9f30005f60388
あなたの回答
tips
プレビュー
