重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

【終了しました】教えて!goo新規会員登録

ＶＢＡ カスタムオーダーのあとの他の列の並び替え

解決済

  • 質問者：ぶとうと
  • 質問日時：
  • 回答数：1件

いつもお世話になっております。
やりたいこと

Ｂ列　　Ｃ列　　　Ｄ列　　Ｅ列
商品 　売上日　　　単価 数量

があります。
商品でカスタムオーダーした後
"メロン,りんご,グレープフルーツ,ぶどう,なし,みかん"
数量を昇順することはできますでしょうか。

With ActiveSheet.Sort
.SortFields.Clear

.SortFields.Add2 Key:=Range("B1"), CustomOrder:="メロン,りんご,グレープフルーツ,ぶどう,なし,みかん"
.SortField.Add2 Key:=Range("E1"), Order:=xlAscending　'追加したらエラーになりました。
.SetRange Range("B1").CurrentRegion
.Header = xlYes
.Apply
End With

「ＶＢＡ カスタムオーダーのあとの他の列の」の質問画像

質問者からの補足コメント

  • うーん・・・

    カスタムオーダーしたあとに
    商品ごとの数量のみ昇順したいです
    商品の順番はそのままで、
    できますでしょうか

      補足日時：2021/06/11 17:58
    通報する
通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

＞.SortField.Add2 Key:=Range("E1"), Order:=xlAscending　'追加したらエラーになりました。



どの様に追加されたのか不明ですが、

.SortField では s が抜けてます。

.SortFields.Add2 Key:=Range("E1"), Order:=xlAscending
    • good
    • 0
    • 件
通報する
この回答へのお礼

いつもお世話になっております。
Ｓいれたら上手くいきました。
ありがとうございました。

通報する
お礼日時：2021/06/12 20:53

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

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

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

おすすめ情報