今日パソコンが新しくなり、office2003から2010になりました。
2003で作成したマクロで、SORTメソッドを書き換え実行したところ、『実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです』とメッセージが… デバッグでみると、Applyのところが黄色になっていました。
何が悪いのか教えてもらえますか?
Worksheets("営業所順位表").Activate
Application.Calculation = xlCalculationAutomatic '再計算自動
With ActiveSheet.Sort.SortFields
.Clear
.Add Key:=Range("E3"), Order:=xlDescending
End With
With ActiveSheet.Sort
.SetRange Range("A3:S68")
.Header = xlYes
.Apply ←ここが黄色に
End With
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
オールドファッションで、、、
Worksheets("営業所順位表").Activate
Application.Calculation = xlCalculationAutomatic '再計算自動
Range("A3:S68").Sort _
Key1:=Range("E3"), Order1:=xlDescending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlPinYin
ご教示いただきありがとうございます。
やってみましたがダメでした(><) 黄色になってしまいました。
調べてみたらVBA SORT は、2003の書き方でも動くようですね。なんでエラーになってしまうのかしら…
いろいろ調べてみます。Thanks Anyway
No.1
- 回答日時:
私の環境( Excel2010 )で適当なデータを作って動かしてみましたが、
質問内容にあるコードで正常に動作しました。
どこか他のところに、問題があるのかも?
試しに、以下のコードを実行してみていただけますか?
--------------------------------------------------
Worksheets("営業所順位表").Activate
Application.Calculation = xlCalculationAutomatic '再計算自動
Range("A3:S68").Sort _
Key1:=Range("E3"), _
Order1:=xlDescending, _
Header:=xlYes
--------------------------------------------------
返事が遅くなり申し訳ありません。
そうなんです。問題ないようなんですがマクロボタンを押すと止まってしまうのです。
教えていただいたコードは以前2003の時に書いたコードで、それが機能せず書き換えたのでダメでした。
ちなみにプロジェクトエクスプローラーを表示して F8 を押していくと問題なく抜けて並び替えができます。とりあえず今朝はそれで乗り切りました(^^;)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel_マクロ_現在開いているシートにマクロを実行したいです 1 2023/02/14 23:54
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excelのマクロでソートがうまく動かない
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
Excel VBAにてソートが上手くいかない
その他(Microsoft Office)
-
-
4
Sub ***( ) と Private Sub ***( ) の違い
Visual Basic(VBA)
-
5
エクセルでエラーが出て困っています。
Excel(エクセル)
-
6
【エクセル】一列中にある文字列の種類をカウントする関数
Excel(エクセル)
-
7
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
8
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
9
結合したセルの並び替え(エクセルVBA)
Excel(エクセル)
-
10
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
11
エクセルVBA 最終行を選んで並び替え
Excel(エクセル)
-
12
VBA実行時エラー1004 ソート失敗
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
デザイン時のVisible=Falseは実...
-
if(1){...}とはどういうことで...
-
jQuery ui Datepicker 明日以降...
-
初心者です。gulpでコンパイル...
-
jspで、javaを呼び出すときの引...
-
Excel VBA にて JavaScript の...
-
VB.netでタイマーがスタートし...
-
オーバーライドについて。
-
リクエスト結果が一瞬しか表示...
-
PowerPointで時計表示
-
javascriptで最初のところに戻...
-
CreateFile、CloseHandleの繰り...
-
VB.netの重複データ数カウント...
-
javascriptでsjisの文字列からu...
-
JSPの処理の途中で、JavaScript...
-
1つのVBAコードをすべてのコア...
-
2回目のSortメソッドが失敗~20...
-
ACCESS(VBA)の検索結果判定に...
-
jquery の書き始めについて
-
既存のwebサイトで、ローカルの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
以下のコードを実行しても、オ...
-
JSPの処理の途中で、JavaScript...
-
if(1){...}とはどういうことで...
-
1つのVBAコードをすべてのコア...
-
VBA ステータスバー DoEvents
-
〔Excel:VBA〕マクロの実行が異...
-
jQuery ui Datepicker 明日以降...
-
デザイン時のVisible=Falseは実...
-
VBA SORT Applyでエラー
-
リクエスト結果が一瞬しか表示...
-
C#でボタン名を変更しても動く
-
PowerPointで時計表示
-
innerHTMLなどの反映タイミング
-
javascriptで最初のところに戻...
-
初心者です。gulpでコンパイル...
-
onbeforeunload と aタグの hre...
-
ラベルの色がかわってくれない
-
エクセル VBA タイマー動作 の...
-
JavaScriptで、実行するたび値...
-
Excel VBA にて JavaScript の...
おすすめ情報