質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

87.48%

マスタシートに登録した順に配列内のデータをソートしたい

受付中

回答 1

投稿

  • 評価
  • クリップ 1
  • VIEW 599

score 4

マスタシートに登録した順に配列内のデータをソートしたい

~質問内容~
VBAを用いてシートのデータを、配列に入れ、マスタシートの内容に沿ってソートし、出力するというマクロを作りたいと思っています。

具体例

|人名|月|商品|値段|  
|A| |1 | |I| |120|  
|B| |12| |J| |130|       
|C| |3 | |K| |140|   
|D| |4 | |L| |150|        

1、上記のようなExcelシートの情報を1行ずつ配列に入れる。
2、「月」の情報で配列をソートする(マスタシートの情報に沿って)
3、別ブックに出力する

私が今実装したいと考えているのは、「2」の配列の中身をソートする(マスタシートに沿って)という部分です。

~マスタシートについて~
マスタシートは4月~9月を上期、10月から3月までを下期としています。

なので、上期の中で月の若いデータから順に並べ
下期の中からも同様にソートしたいと考えております。

理想

ソート前       ソート後
|人名|月|商品|値段|      |人名|月|商品|値段|
|A| |1 | |I| |120|    |D| |4 | |L| |150|
|B| |12| |J| |130|   →   |B| |12 | |J| |130|    
|C| |3 | |K| |140|    |A| |1 | |I| |120|
|D| |4 | |L| |150|         |C| |3 | |K| |140|

表を作ってみましたが、見辛いかもしれません。
申し訳ございません。

~ソースコード~
言語:VBA

Dim tempFile As Object
Dim propertyData() As Variant
ReDim propertyData(1, 0)
Dim k As Long
k = 0
Dim j As Long
j = 11

For Each tempFile In filesForInput
Dim wb As Object
Set wb = Workbooks.Open(tempFile)
Dim ws As Worksheet
Set ws = ActiveSheet
Dim endRow As Long
Dim xlEndRow As Long
xlEndRow = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 1).Row
endRow = ActiveWorkbook.ActiveSheet.Cells(xlEndRow, 4).End(xlUp).Row
Dim endCol As Long
endCol = 14
For j = 11 To endRow
If ActiveWorkbook.ActiveSheet.Cells(j, 4) = "" Then
propertyData(k - 1, 9) = propertyData(k - 1, 9) & "," & Worksheets(1).Cells(j, 20).Value
Else
propertyData = Expand2DimArr(propertyData, UBound(propertyData) + 2, endCol)
propertyData(k, 0) = Worksheets(1).Cells(j, 3).Value 'k = 0 → 手法
propertyData(k, 1) = Worksheets(1).Cells(j, 4).Value 'k = 1 → 物件名(事業名称)
propertyData(k, 2) = Worksheets(1).Cells(j, 7).Value 'k = 2 → 4月時点
propertyData(k, 3) = Worksheets(1).Cells(j, 8).Value 'k = 3 → 期初状態(上期)
propertyData(k, 4) = Worksheets(1).Cells(j, 9).Value 'k = 4 → 10月時点
propertyData(k, 5) = Worksheets(1).Cells(j, 10).Value 'k = 5 → 期初状態(下期)
propertyData(k, 6) = Worksheets(1).Cells(j, 11).Value 'k = 6 → 月
propertyData(k, 7) = Worksheets(1).Cells(j, 13).Value 'k = 7 → 修正前(年度)
propertyData(k, 8) = Worksheets(1).Cells(j, 14).Value 'k = 8 → 修正前(月)
propertyData(k, 9) = Worksheets(1).Cells(j, 20).Value  'k = 9 → 担当
propertyData(k, 10) = Worksheets(1).Cells(j, 22).Value 'k = 10 → 売り上げ
propertyData(k, 11) = Worksheets(1).Cells(j, 27).Value 'k = 11 → 進捗率
propertyData(k, 12) = Worksheets(1).Cells(j, 28).Value 'k = 12 → 計上金額
k = k + 1                   
End If
Next j   
ActiveWorkbook.Close
Next tempFile
Call DecideHowSort(propertyData)

Private Function DecideHowSort(propertyDataForSorting As Variant)
'ソートの基準を決めるプロシージャ
Dim k As Long
Dim j As Long
k = 0
j = 0

'配列内の月でソートをかける
For k = 0 To UBound(propertyDataForSorting, 1)
If propertyDataForSorting(k, 6) <> "-" Then
For j = k To UBound(propertyDataForSorting, 1)
If propertyDataForSorting(k, 6) <> "-" And propertyDataForSorting(j, 6) <> "-" And propertyDataForSorting(k, 6) > propertyDataForSorting(j, 6) Then
Call SortPropertyData(propertyDataForSorting, k, j)
ElseIf propertyDataForSorting(k, 6) <> "-" And propertyDataForSorting(j, 6) <> "-" And propertyDataForSorting(k, 6) = propertyDataForSorting(j, 6) Then
If propertyDataForSorting(k, 1) > propertyDataForSorting(j, 1) Then
Call SortPropertyData(propertyDataForSorting, k, j)
End If
End If
Next j
End If
Next k

End Function

’実際のソート関数
Private Function SortPropertyData(ByVal propertyData As Variant, ByVal lngI As Long, ByVal lngJ As Long)

Dim i As Long
Dim varTmp As Variant

For i = 1 To UBound(propertyData, 2)
varTmp = propertyData(lngI, i)
propertyData(lngI, i) = propertyData(lngJ, i)
propertyData(lngJ, i) = varTmp
Next i

End Function

試したこと

現在、記述済みのソート関数を用いて動作を確認致しましたが、配列内部のソートが行われていませんでした。

以上です。
大変初歩的な質問かもしれませんが、自分の力では上手くソートが扱えませんでした。
お力添えを頂けると助かります。
よろしくお願い致します。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • kaputaros

    2020/02/28 13:31

    ソースコードなど、Markdownを利用してあげると、見やすいです。
    https://teratail.com/help#about-markdown

    キャンセル

  • a___VBA

    2020/02/28 15:56

    ご回答ありがとうございます。

    >ソースコードなど、Markdownを利用してあげると、見やすいです。
    ご指摘ありがとうございます。
    後ほど記入したものを編集させていただきたいと思います。

    キャンセル

回答 1

0

SortPropertyData関数の引数にByValがついているからでは。
ByValを付けると値渡しになり、関数内の変更が呼び出し元に返りません。

ソート自体の確認はしていませんのであしからず。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/02/28 16:01

    ご回答ありがとうございます。

    >ByValを付けると値渡しになり、関数内の変更が呼び出し元に返りません。

    そうだったんですね。
    ByValとByRefの違いをよく理解せず、とりあえずByValで引数を渡していました。
    今すぐ確認することが出来ないのですが、また後程書き換えて確認してみたいと思います。
    お力添えに感謝致します。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 87.48%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る