|
分類:[Microsoft Office 全般]
VB2008上でExcelをコントロールしております。
下記の様なソースコードでExcelのソートを行いましたが、それぞれのシートでキーになる列が違ってしまいます。
（xlsRangeCountはC列がキーとなるが、xlsRangeTimeはD列がキーとなる）
xlsRangeTimeのキーをB列にすれば同じ結果が得られるのですが、原因が分からないままにするわけにはいきません。
どなたかご教示頂ければ幸いです。
'' ソート
xlsRangeKeyC = xlsSheetCount.Range("C4")
xlsRangeCount = xlsSheetCount.Range(xlsSheetCount.Cells(g_tLocateData.Row, g_tLocateData.Col), xlsSheetCount.Cells(g_tLocateData.Row + Summary(0).No.Length, g_tLocateData.Col + 1 + Summary.Length))
'セル範囲をキー(列単位)に降順の並べ替え
xlsRangeCount.Sort(Key1:=xlsRangeKeyC, _
Order1:=Excel.XlSortOrder.xlDescending, _
Orientation:=Excel.XlSortOrientation.xlSortColumns _
)
xlsRangeKeyT = xlsRangeTime.Range("C4")
xlsRangeTime = xlsSheetTime.Range(xlsSheetTime.Cells(g_tLocateData.Row, g_tLocateData.Col), xlsSheetTime.Cells(g_tLocateData.Row + Summary(0).No.Length, g_tLocateData.Col + 1 + Summary.Length))
'セル範囲をキー(列単位)に降順の並べ替え
xlsRangeTime.Sort(Key1:=xlsRangeKeyT, _
Order1:=Excel.XlSortOrder.xlDescending, _
Orientation:=Excel.XlSortOrientation.xlSortColumns _
)
|