ExcelVBA：列方向の並び替え　Orientation

Question

いつも大変お世話になります。初心者です。
長文で申し訳ありませんが、私の間違いについてご指導をお願いします。(Excel2003）

並び替えについて訳が分からなくなってしまいました。現状は、

・A2セル＝1月、A3＝2月、A4＝3月、A5＝合計
・B1セル＝札幌、C1=東京、D1＝名古屋、E1＝大阪
・B2:E4　は売上金額です。
・B5 は、SUM(B2:B4)　です。C5～E5も同様です。
※売上合計は多い順に、東京、大阪、名古屋、札幌です。


この表の合計金額を並び替えをしたいと思い、以下を書いてみました。
左から順に、売上合計の多い支社順に、並ばせようとしました。

Cells(1, 1).CurrentRegion.Sort _
    key1:=Cells(5, 1), order1:=xlDescending, Orientation:=xlSortColumns, header:=xlYes

【甲】  すると全く意図した形ではない並び替えが実行されてしまいました。
（なぜか行が入れ替わり、列は変わらず。）

【乙】  しかし、上のOrientationを、xlSortRows　に変えてやってみると、意図した通りに並び替えられました。

【丙】　また、Order1:=xlAscending,　Orientation:=xlSortRows でやってみると、列の並び替えは実施されますが、
月の見出し列（A1～A5)が一番右に移動してしまいます。

--------------------------------------------------------------------------
その後いろいろ調べたり、試行したりしたのですが疑問が山積してしまいました。
基礎的な話かもしれませんが、上記の例で、「列方向に、合計金額を基準に、正しく降順・昇順並び替え」をしたいと思っています。

【質問1】Sortメソッドのヘルプで見ると、Orientation の説明に、xlSortRows,xlSortColumnsの説明がありますが、
行方向、列方向、どうしても実際の動きと逆な気がしてなりません。
私の勘違いでしょうか。

【質問2】マクロの自動記録時に気づいたのですが、Orientation の設定に、xlLeftToRight や、xlTopToBottom　というのが使われていました。
これらと xlSortRows, xlSortColumns の違いはありますか。

【質問3】列方向への並び替えの際には、Headerの設定をするのは無意味ですか？
上記（丙）のパターンで、xlGuess でも、xlYes 、xlNo でも全く動きは変わらず、月の見出し列が最右に移動しました。


【質問4】上の（丙）のパターンで正しく動かす為には、Sort　の対象となる範囲を、B列以降にする必要があるのでしょうか。
----------------------------------------------------------------------------

分かりにくい箇所もあったかと思いますが、ご指摘いただければ補足させていただきます。
なお、「そんな簡単な表だったら、手で作業したら？」ということではなく、後学のために知っておきたいので質問させていただきました。
なにぶん勉強中なため見当外れの質問もあるかもしれませんが、なにとぞご教示よろしくお願いいたします。

Wendy02 · Accepted Answer

こんにちは。

今、追って調べてみました。

英文も調べてみましたが、英文の元も同様になっているようで、列挙型で指定してみましたが、それでも違うようです。どうやら、Helpの内容自体が間違っているようですね。

#4で
# 違う言語範囲の中に、別の組み込み定数があるから、このように出るのだと思います。
と、書いたように、データ型を列挙型で指定してみますと、

このように指定します。
Dim xlSortOrder1 As XlSortOrder
Dim xlSortOrientation1 As XlSortOrientation

xlSortOrder1 = xlAscending
xlSortOrientation1 = xlSortRows

これでマクロを実行してみると、違っています。

VS 2005のヘルプの英文側に、
名前空間: Microsoft.Office.Tools.Excel
アセンブリ: Microsoft.Office.Tools.Excel (microsoft.office.tools.excel.dll 内)

Member name Description 
xlSortColumns Sorts by column. 
xlSortRows default. Sorts by row. 

となっています。この列挙型の定数は　C++,C#, J# とは、整合性は合うようですが、どうやら、Excel内部で縦横が入れ違うようです。

私は、Excel 2002 を持ちませんが、他は、以下のようになっていました。
オブジェクト・ブラウザ で見ると、xlSortRows, xlSortColumns は、単に　Constant になっていましたから、Excel独自に存在しているようです。

Help の内容です。

Excel 2003
: Orientation    省略可能です。バリアント型 ( Variant ) の値を使用します。 
: xlSortRows (既定値) 行単位で並べ替えます。
: xlSortColumns 列単位で並べ替えます。

Excel2000
: Orientation    省略可能です。バリアント型 ( Variant ) の値を使用します。
xlSortRows を指定すると、上から下に並べ替えます (行の並べ替え)。 
xlSortColumn を指定すると、左から右に並べ替えます (列の並べ替え)。
-------------------------------
Excel 97
Orientation   省略可能です。バリアント型 (Variant) の値を指定します。
xlTopToBottom を指定すると、上から下へ並べ替えます (行の並べ替え)。
xlLeftToRight  を指定すると、左から右へ並べ替えます (列の並べ替え)。

Excel 5
orientation 省略可能です。
xlTopToBottom を指定するか指定を省略すると、上から下に並べ替えます (行の並べ替え)。xlLeftToRight を指定すると、左から右へ並べ替えます (列の並べ替え)。

ただ、実際に、行と列を両方行うようなコードの場合は、以下のように、数値で行うか、定数を改めて作るかのほうが安全かもしれません。
可読性ではなく、誤読性になってしまいますからね。（^^;
Dim flg As Integer
flg = 2　'降順 =2 '昇順 =1

okormazd · Answer

#3です。

ヘルプの説明はあっていませんね。
下記のようになるべきですね。

xlSortRows  列単位で並べ替えます。
xlSortColumns (既定値) 行単位で並べ替えます。

>xlSortRows は、xlLeftToRight に。　xlSortColumns　は、xlTopToBottom　に対応するようなのです。

xlSortColumns=1,xlTopToBottom=1
xlSortRows=2,xlLeftToRight=2
だから、ご指摘のとおりです。

すみませんでした。

Wendy02 · Answer

こんにちは。
#2の回答者です。

>【質問2】マクロの自動記録時に気づいたのですが、Orientation の設定に、>xlLeftToRight や、xlTopToBottom　というのが使われていました。
>これらと xlSortRows, xlSortColumns の違いはありますか。

今、調べてみましたが、記録マクロに出てくるその組み込み定数は、定数の内部の数値は変わりませんが、たぶん、この食い違いは、開発途中か、違う言語範囲の中に、別の組み込み定数があるから、このように出るのだと思います。今の段階では、Sort メソッドではなく、SortSpecial メソッド側の組み込み定数のものようです。こういう入れ違いはいくつかあるようです。

なお、前言の

# XL2000と共有しない部分のみです。
ということで調べると、以下が共有しない部分でした。
　DataOption1:=xlSortNormal

ただ、理屈はともかくとして、こういうものは、記録マクロを越えることはないと思いますね。単に、並べ替えの範囲を取る技術さえ押さえておけばよろしいかと思います。

okormazd · Answer

まず、行単位の並べ替えと列単位の並べ替えではいくらか操作が違います。Excelでは行単位の並べ替えが基準のようになっています。列単位の並べ替えで指定できるのは、手動で並べ替えるときと同じで、header行などは決めてくれませんから、データ範囲だけを指定することになります。

わたしは混乱したことがないのですが・・・。
【質問1】
ヘルプの説明です。
xlSortRows (既定値) 行単位で並べ替えます。 
xlSortColumns 列単位で並べ替えます。

「行単位」ということは、行でまとまってということで、1つの行の中のセルはばらばらにならないということです。それで並べ替えるのだから、行単位で入れ替わって上から下に並び変わるのです。
「列単位」も同様です。
【質問2】
特にいうことはありませんが、違いはないと思います。
【質問3】
無意味のようです。列単位の並べ替えのとき、headerの指定はできません。データ範囲を選択します。
もし、行単位の並べ替えのようにしたいなら、1度行列を入れ替えて並べ替え、もう1度行列を入れ替えるしかないようです。
【質問4】
【質問3】が答えです。

Wendy02 · Answer

こんばんは。

基本的なことですが、記録マクロで取ったにしろ、そういう自分流はダメなのです。もっとも入門者から初心者に入った段階で、省略したらよいとか書かれてあるので、そういうように書いて、うまく行かなくなるケースが多いのです。省略する意味を良く理解してください。Sort メソッドで省略してよいのは、XL2000と共有しない部分のみです。これは、Findメソッドも同様です。

質問1と質問2 の場合は、コードのオプションが抜けてしまっています。
質問3と質問4は、コードを参照してください。直接範囲を指定しますので、タイトル行は　xlNo です。

Sample　は、標準モジュールが良いです。

Sub TestMacro1()
'列の合計欄で並べ替える
Dim rng As Range
Dim flg As Integer
flg = 2　'降順 =2 '昇順 =1
　'左端上のセルを指定する　--A1
　With Range("A1").CurrentRegion
　　Set rng = .Offset(, 1).Resize(, .Columns.Count - 1)
　End With
　With rng
　　　　　.Sort Key1:=.Range("A5"), _
　　　　　　　Order1:=flg, _
　　　　　　　Header:=xlNo, _
　　　　　　　OrderCustom:=1, _
　　　　　　　MatchCase:=False, _
　　　　　　　Orientation:=xlLeftToRight, _
　　　　　　　SortMethod:=xlPinYin, _
　　　　　　　DataOption1:=xlSortNormal
　End With
　Set rng = Nothing
End Sub

fumufumu_2006 · Answer

Orientation:=xlSortColumns
を
Orientation:=xlLeftToRight
にしたらどうでしょうか？

これはマクロの記録で、手動で列方向に並べ替えた場合の値です。
なぜxlSortColumnsとxlSortRowsでおかしくなるのか？
探したら、「バグだ」という話がありました。
http://www.keep-on.com/excelyou/2000lng4/200007/00070351.txt

ExcelVBA：列方向の並び替え Orientation

こんにちは。

#3です。

こんにちは。

まず、行単位の並べ替えと列単位の並べ替えではいくらか操作が違います。

こんばんは。

Orientation:=xlSortColumns

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

ExcelVBA：列方向の並び替え　Orientation