![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e6f04cf)
お世話になります。
下記マクロを実行したら
実行時エラー'1004':
'Range' メソッドは失敗しました:'_Global'オブジェクト
と出て、色々検索してもどう編集したらいいか分からず状態です。
Sub 数式更新()
'
' 数式更新 Macro
'
'
Range( _
"E631:E849,K631:K849,Q631:Q849,W631:W849,AC631:AC849,AI631:AI849,AO631:AO849,AU631:AU849,BA631:BA849,BG631:BG849,BM631:BM849,BS631:BS849,BY631:BY849,CE631:CE849,CK631:CK849,CQ631:CQ849,CW631:CW849,DC631:DC849,DI631:DI849,DO631:DO849,DU631:DU849,EA631:EA849,EG631:EG849,EM631:EM849,ES631:ES849,EY631:EY849,FE631:FE849,FK631:FK849,FQ631:FQ849,FW631:FW849,GC631:GC849" _
).Select
Range("GC849").Activate
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
もし分かる方いたらどこがどういけないのか教えてください。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
どうやら「Range("E631:E849,…,GC631:GC849").Select」が長すぎるようです。
次のようにみたらいかがでしょうか?
---------------------------------------------------------------------------
Sub 数式更新()
Range( _
"E631:E849,K631:K849,Q631:Q849,W631:W849,AC631:AC849,AI631:AI849,AO631:AO849,AU631:AU849,BA631:BA849,BG631:BG849,BM631:BM849,BS631:BS849,BY631:BY849,CE631:CE849" _
).Select
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range( _
"CK631:CK849,CQ631:CQ849,CW631:CW849,DC631:DC849,DI631:DI849,DO631:DO849,DU631:DU849,EA631:EA849,EG631:EG849,EM631:EM849,ES631:ES849,EY631:EY849,FE631:FE849,FK631:FK849,FQ631:FQ849,FW631:FW849,GC631:GC849" _
).Select
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
---------------------------------------------------------------------------
ちなみに「Range("GC849").Activate」は完全に不要です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) Worksheets メソッドは失敗しました。のエラー処理のやり方 4 2022/05/29 21:29
- Visual Basic(VBA) Excel_マクロ_現在開いているシートにマクロを実行したいです 1 2023/02/14 23:54
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
-
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
sheetsメソッドの失敗
Excel(エクセル)
-
-
4
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
5
実行時エラー1004「Select メソッドが失敗しました。」エラーの回避方法
Visual Basic(VBA)
-
6
VBA 実行時エラー1004 rangeメソッドは失敗しました。globalオブジェクトのエラー
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Eclipse(JAVA)のデバッグで他...
-
Javascriptの値をJava(JSP)へ渡...
-
split関数で区切り文字がない場合
-
コミット前の更新データをチェ...
-
JAVAにのeclipseに関する質問で...
-
jasper.exceptionとは?
-
Worksheet_Changeが動かない
-
eclipseでスタックサイズを変更...
-
「ワークスペースをビルド中」...
-
javaでプログラムを途中から始める
-
eclipse実行ができない
-
Javaで年月の取得(YYYYMM形式で)
-
Spyder上のPythonでinputが実行...
-
eclipseのjavaを実行できない
-
AccessVBAで、ホームページの内...
-
C++ wstringのreplace()が上手...
-
ExcelVBA グラフの軸ラベル ユ...
-
Microsoft Visual C# Express E...
-
NoClassDefFoundError: javax/m...
-
Javascriptのパーミッション
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Eclipse(JAVA)のデバッグで他...
-
split関数で区切り文字がない場合
-
JAVAにのeclipseに関する質問で...
-
Javascriptの値をJava(JSP)へ渡...
-
jasper.exceptionとは?
-
「ワークスペースをビルド中」...
-
eclipseでスタックサイズを変更...
-
eclipseのjavaを実行できない
-
Javaで年月の取得(YYYYMM形式で)
-
コミット前の更新データをチェ...
-
eclipse実行ができない
-
Eclipseで実行>Javaアプリケー...
-
エクリプスで実行時、最新クラ...
-
Eclipse 実行→Javaアプリケー...
-
eclipseで「サーバーで実行」表...
-
Google Colabでimport soxが出...
-
環境変数設定で
-
Javascriptのパーミッション
-
Spyder上のPythonでinputが実行...
-
NoClassDefFoundError: javax/m...
おすすめ情報