VBA初心者です。
文字列を置換しようと思い、マクロを記録したところ下記ソースになりました。
Sub Macro1()
Columns("D:D").Select
Selection.Replace What:="エリア:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
このマクロを単体で動かすと問題なく動作するのですが、他シートにおいてあるボタンに登録して一番最初に実行すると「実行時エラー '1004'」が出てしまいます。
ネットで色々調べましたが、解決方法が分かりません。
宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
#2です
#2の回答は間違いです、すいません
書式に関する引数は、EXCEL2002から追加されていました
私は、EXCEL2000を使用しているため#2でうまく行ったのですが
お詫びに、ちょっと調べてみました
下記のように括弧をつけたら、うまく行く可能性があります
自分のところで、テストできないのであくまで可能性があるだけですが
試してみてください
Sub Macro1()
Columns("D:D").Select
Selection.Replace(What:="エリア:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False)
End Sub
括弧をつけてボタンに登録してみてください
うまく行かない場合は、ボタンに登録したマクロを提示していただければ
解決しやすいと思います
回答ありがとうございます。
>書式に関する引数は、EXCEL2002から追加されていました
こちらは私も把握しておりました。
ご教授頂いたマクロで無事に動作しました。
書式の指定に関して、もう少し調べてみようと思います。
ありがとうございました。
No.2
- 回答日時:
Sub Macro1()
Columns("D:D").Replace What:="エリア:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
に変更してみて
回答ありがとうございます。
無事にマクロが動きました。
なぜ検索・置換に書式に関する引数を入れるとエラーが出るのでしょうか?
宜しければ教えて頂けないでしょうか。
宜しくお願いします。
No.1
- 回答日時:
1)お使いのアプリケーションとバージョンは何でしょうか?
2)「単体で動かすと問題なく動作する」マクロは本当に上記の通りですか?
3)
>ネットで色々調べましたが、解決方法が分かりません。
ネットで調べられたのでしたらご存じでしょうが、「実行時エラー '1004'」と一口に申してもいろいろとあると存じます。
そのエラーに続く
アプリケーション定義またはオブジェクト定義のエラーです
とか
RangeクラスのSelectメソッドが失敗しました
とか。。。どんなメッセージが出ているのでしょうか?
回答ありがとうございます。
>1)お使いのアプリケーションとバージョンは何でしょうか?
エクセル2003 SP3です。
>2)「単体で動かすと問題なく動作する」マクロは本当に上記の通りですか?
はい、動作するソースからコピペしましたので間違いありません。
>ネットで調べられたのでしたらご存じでしょうが、「実行時エラー '1004'」と一口に申してもいろいろとあると存じます。
それが「実行時エラー '1004'」としか表示されなかったのです。
デバッグでどの箇所に問題があるのかは分かりましたが、解決方法が分かりませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
誕生日にもらった意外なもの
みなさんがもらった誕生日プレゼントで面白いものがあったらぜひ教えてください!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
cellsで特定の離れた範囲を選択...
-
エクセルでツールバーに「縮小...
-
ピボットグラフの書式の固定に...
-
別ブックからユーザーフォーム...
-
ファイル名を今日の日付、時刻...
-
Powerpointでランダムな数字の...
-
Excelのラジオボタンにチェック...
-
VBA[Private Sub]のコードをシ...
-
エクセル2007 テキストボ...
-
VBAを使ってエクセルシート...
-
エクセルVBAで、画像の倍率を知...
-
エクセルVBAで新規シートにマク...
-
EXCELにクリップボードにある画...
-
エクセルマクロのグラフ操作
-
どのドキュメントは暗号化され...
-
Accessのマクロの最適化
-
htmlまたはJavascriptからファ...
-
Excelの中でオートシェイ...
-
VBA ChartWizardで円グラフが書...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
VBA[Private Sub]のコードをシ...
-
cellsで特定の離れた範囲を選択...
-
Powerpointでランダムな数字の...
-
最初の1回のみにボタンクリッ...
-
エクセル2007 テキストボ...
-
エクセルシートをまとめて印刷...
-
ピボットグラフの書式の固定に...
-
【ExcelVBA】クエリの更新とピ...
-
別ブックからユーザーフォーム...
-
どのドキュメントは暗号化され...
-
Pictures.Insertメソッド⇒Shape...
-
VBAを使ってエクセルシート...
-
ユーザフォームをどの画面から...
-
エクセルで「ODBC Microsoft Ac...
-
Excelのラジオボタンにチェック...
-
wordのマクロで縮小して貼り付...
-
エクセルワークシート上に印刷...
おすすめ情報