□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| ソーティングエラー | |
|---|---|
[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]: ソーティングエラー- ■  / 記事引用/メール受信=OFF■
□投稿者/ ロッキー -(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 ++++++++++++++++++++ | |