Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56577 / 76736 ←次へ | 前へ→

【24909】ブック全体に対しての置換
質問  K E-MAIL  - 05/5/13(金) 14:15 -

引用なし
パスワード
   実際のコードの中ではFileNameの代わりにCopyFromFileNameを使っていたのですが、投稿する際に省略してしまいました。
Jakaさん、ご心配頂きありがとうございました。

ところで自分が「うまくいきません。」と思った理由がわかりました。
そのときアクティブになっているシートに対してのみ
Cells.Replace What:="[" & CopyFromFileName & "]", Replacement:="" _
    , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
    :=False, ReplaceFormat:=False
が実行されるのですね。
違うシートを見て、「あれ、うまくいかないなぁ。」と思っていたのです。
上のコードは「検索場所」として「ブック」を指定した状態で行った検索を「新しいマクロの記録」で記録し、それを利用して作ったのものなので、ブック全体のシートに対して実行されると思ったのです。

ブック全体のシートに対して実行させるには
Dim Fund(10) As String
Fund(0) = "A"
Fund(1) =...とかって、配列を宣言してから

Dim i As Integer
  For i = 0 To 10
  Sheets(Fund(i)).Select
  Cells.Replace What:="[" & CopyFromFileName & "]", Replacement:="" _
    , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
    :=False, ReplaceFormat:=False
  Next i

というふうにするしかないのでしょうか?

0 hits

【24863】変数として宣言したシート名やファイル名を使って計算 K 05/5/11(水) 23:25 質問
【24864】Re:変数として宣言したシート名やファイル... ichinose 05/5/12(木) 7:43 発言
【24869】Re:変数として宣言したシート名やファイル... K 05/5/12(木) 10:08 お礼
【24886】Re:変数として宣言したシート名やファイル... K 05/5/12(木) 15:33 質問
【24888】Re:変数として宣言したシート名やファイル... Jaka 05/5/12(木) 16:04 発言
【24909】ブック全体に対しての置換 K 05/5/13(金) 14:15 質問
【24913】Re:ブック全体に対しての置換 Jaka 05/5/13(金) 15:08 回答
【24870】複数の選択範囲に対して値の貼り付けをした... K 05/5/12(木) 10:38 質問
【24898】Re:複数の選択範囲に対して値の貼り付けを... ichinose 05/5/12(木) 21:19 発言

56577 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free