ソーティングエラー | |
---|---|
[196264] ソーティングエラー- ■親トピック/記事引用/メール受信=ON■ □投稿者/ ロッキー -(2024/06/30(10:58)) □U R L/ 下記の通りのプログラムです。 最上段は、見出しとなっております。 With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Key:=Range("E2"), SortOn:=xlSortOnValues, Order:=xlDescending ' .SetRange Range("A2").CurrentRegion .Header = xlNo .Apply End With 「実行時エラー 1004: アプリケーション定義またはオブジェクト定義のエラー」 と表示されてしまいます。 改善方法をご教示お願い致します。 CurrentRegionに替えて、 .SetRange Range("A2:AZ10000") など色々試しておりますが、上手くいきません。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[196265] Re[1]: ソーティングエラー- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2024/06/30(11:54)) □U R L/ と言われましても、どんなデータの状況なのか分からないので、 再現テストも出来ないです。 一体、どのモジュールに書いているんですか?(標準? シート?) |
[196267] Re[2]: ソーティングエラー- ■ ![]() □投稿者/ ロッキー -(2024/07/01(09:36)) □U R L/ ご検討ありがとうございました。 質問の仕方がよくなかったようですみません。 データが大きいままのコードを書いてしまいました。 A列B列だけの20行くらいのデーターに作り替えて質問すれば良かったのでしょうね。 現在の大きな表は、A列が数値(YYYYMMDD)、E列が数値で、行数約10万行、そのうちゼロの行が8割、最終列はACのデータです。1行目はHeaderです。 質問のコーディングを削除して、次のように変更したら解決しました。 Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row Range(Cells(1, 1), Cells(LR, 40)).Sort Key1:=Range("E1"), order1:=xlDescending, Header:=xlYes 最初のコードのどこが悪いかは理解していませんが、一件落着とさせていただきます。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒Windows 11 Version⇒Excel 2019 ++++++++++++++++++++ |
このトピックに書きこむ |
---|