[[20200521122310]]　『列の並び替え　vba』（ゆーちゃん）　ページの最後に飛ぶ

『列の並び替え　vba』（ゆーちゃん）

列の並び替えをvbaで練習しようとコードを書いていたのですが、下記のコードでエラーが出てしまいます。

Sub Macro1()

    Range("A1").CurrentRegion.Select
    Selection.Sort _
        Key1:=Range("A:A"), _
        Header:=xlNo, _
        OrderCustom:=("基準コード,基準名,基準数値,月日"), _
        MatchCase:=False, _
        Orientation:=xlSortRows, _
        SortMethod:=xlPinYin

End Sub

OrderCunstom部分を抜くと実行できるのですが、上記のままでは実行できません。
列の並び方を指定して実行できないでしょうか.....

初歩的な質問かもしれませんが、どなたか教えていただけると助かります。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 今は、Sortオブジェクトを利用するのが一般的になってきているんじゃないですかね。

 今回は敢えて、Sortメソッドを使うんですね？
 その場合、OrderCustomは「番号」で指定です。カンマ区切りの文字は使えません。
 従って、事前に当該リストをカスタムリストに追加して、何番目か知っておかないとならないです。

 なお、Sortオブジェクト→CustomOrder
 　　　Sortメソッド　　→OrederCustm

 綴りが逆転していることに留意

（半平太） 2020/05/21(木) 14:11

半平太さん

返信ありがとうございます。

SortオブジェクトとSortメソッドの違いをよく分かっていなかったようです...

初歩的な質問に答えてくださりありがとうございました！

これからもVBA頑張ります！！！！　　
（ゆーちゃん） 2020/05/21(木) 14:22

コメント返信：

[ 一覧(最新更新順) ]

[[20200521122310]] 『列の並び替え vba』（ゆーちゃん） ページの最後に飛ぶ

[[20200521122310]]　『列の並び替え　vba』（ゆーちゃん）　ページの最後に飛ぶ