Excel VBA質問箱 IV

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

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


8162 / 13646 ツリー ←次へ | 前へ→

【34751】検索と置換の応用 Cuore=Tane 06/2/10(金) 23:26 質問[未読]
【34753】Re:検索と置換の応用 やっちん 06/2/11(土) 3:38 発言[未読]
【34756】実際に改良してみたのですが… Cuore=Tane 06/2/11(土) 15:11 質問[未読]
【34758】Re:実際に改良してみたのですが… やっちん 06/2/11(土) 16:37 発言[未読]
【34767】Re:実際に改良してみたのですが… Ko 06/2/11(土) 18:29 発言[未読]
【34769】Re:実際に改良してみたのですが… やっちん 06/2/11(土) 19:02 発言[未読]
【34824】Re:実際に改良してみたのですが… Cuore=Tane 06/2/13(月) 22:15 質問[未読]
【34825】Re:実際に改良してみたのですが… やっちん 06/2/13(月) 22:29 発言[未読]
【34866】Re:実際に改良してみたのですが… Cuore=Tane 06/2/14(火) 23:09 お礼[未読]

【34751】検索と置換の応用
質問  Cuore=Tane  - 06/2/10(金) 23:26 -

引用なし
パスワード
   普通にVBAで検索と置換するのは、問題ないのですが、

例えば、検索する文字列と置換する文字列をセルに入力している場合、
そのセルの値を「検索と置換」で指定して使用することができるのでしょうか?

データ内容は

検索するセルには、合併前の住所
置換するセルには、合併後の住所が入力されている状態です。

検索と置換したいデータは別シートにあります。

すでに検索と置換するデータを入力している状態で、別シートにおける検索と置換するデータを置換するにはどうしたらいいのでしょうか?

というより、こんなことが出来るのかどうかがわかりませんが(・_・;)

【34753】Re:検索と置換の応用
発言  やっちん  - 06/2/11(土) 3:38 -

引用なし
パスワード
   ▼Cuore=Tane さん:
こんばんは。

>普通にVBAで検索と置換するのは、問題ないのですが、
>
>例えば、検索する文字列と置換する文字列をセルに入力している場合、
>そのセルの値を「検索と置換」で指定して使用することができるのでしょうか?
>
>データ内容は
>
>検索するセルには、合併前の住所
>置換するセルには、合併後の住所が入力されている状態です。
>
>検索と置換したいデータは別シートにあります。
>
>すでに検索と置換するデータを入力している状態で、別シートにおける検索と置換するデータを置換するにはどうしたらいいのでしょうか?
>
>というより、こんなことが出来るのかどうかがわかりませんが(・_・;)
できます。
セルの値の取得やシートの指定の方法がわからないのでしょうか?

【34756】実際に改良してみたのですが…
質問  Cuore=Tane  - 06/2/11(土) 15:11 -

引用なし
パスワード
   ご解答ありがとうございます。

実際に

  Selection.Replace What:=Range("J1:J41").Select, Replacement:=Range("K1:K41").Select, LookAt:=xlPart _
    , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
と直してみましたが、動きませんでした(T_T)

変換するシートに関してはちゃんと指定していますが…。

なお、このVBAはアドインとして使用しています。
もしかしたら、アドインとして使用しているのがいけないのでしょうか?

それとも指定している 検索と置換のシート(セル)の取得のやり方が違うのでしょうか?

【34758】Re:実際に改良してみたのですが…
発言  やっちん  - 06/2/11(土) 16:37 -

引用なし
パスワード
   ▼Cuore=Tane さん:
>  Selection.Replace What:=Range("J1:J41").Select, Replacement:=Range("K1:K41").Select, LookAt:=xlPart _
>    , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
>    ReplaceFormat:=False
>と直してみましたが、動きませんでした(T_T)
こんにちは。
ぐちゃぐちゃになってますね。
Sheet2を対象にSheet1のJ1の文字列をSheet1のK1の文字列で置き換えます。
  Sheets("Sheet2").Cells.Replace What:=Sheets("Sheet1").Range("J1").Value, _
    Replacement:=Sheets("Sheet1").Range("K1").Value, LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

【34767】Re:実際に改良してみたのですが…
発言  Ko  - 06/2/11(土) 18:29 -

引用なし
パスワード
   ▼Cuore=Tane さん:

質問に合っていなかったらごめんなさい

シート1のA1〜A7にシート4のB1からB7に置き換える
Range("A1:A7").Replace What:=Range("A1:A7"), Replacement:=Sheets(4).Range("B1:B7")


10〜15の数字を1にするは…
For i = 10 To 15
Range("A1:A65536").Replace What:=i, Replacement:="1"
Next

【34769】Re:実際に改良してみたのですが…
発言  やっちん  - 06/2/11(土) 19:02 -

引用なし
パスワード
   ▼やっちん さん:
元のコードから読み解くとこういうことなのかな。
For i=1 To 41
  Selection.Replace What:=Cells(i,"J").Value, _
    Replacement:=Cells(i,"K").Value, LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i

【34824】Re:実際に改良してみたのですが…
質問  Cuore=Tane  - 06/2/13(月) 22:15 -

引用なし
パスワード
   ▼やっちん さん:
▼Ko さん:

本当にありがとうございます。
ほぼ、出来るようになりました。

ただ、もうひとつどうにかならないかな?と思っていることが…。

どう組めばいいのかが、分からないので…(T_T)

やっていることは今までと変わりませんが、

「検索した文字列に該当するすべてのセルを選択する」→「その状態からさらにある条件に関する検索と置換を行う」

後ろの「その状態から〜」は教えていただいたVBAで何とかなるのですが、その前の「検索した文字列に該当するすべてのセルを選択する」やり方がわかりません。

「検索」は通常ひとつひとつであれば、そのセルへとジャンプしてくれますが、すべて検索を行った場合も結局ひとつひとつしか選択できません。

「すべて検索を行ってその検索した文字列に該当するすべてのセルを選択する」方法がどうしてもわかりませんので教えていただけますでしょうか??m(_ _)m

【34825】Re:実際に改良してみたのですが…
発言  やっちん  - 06/2/13(月) 22:29 -

引用なし
パスワード
   ▼Cuore=Tane さん:
こんばんは。
>「検索した文字列に該当するすべてのセルを選択する」
FindとUnionをヘルプまたは過去ログで調べてみてください。
組み合わせればできそうです。
でも、「その状態からさらにある条件に関する検索と置換を行う」だけでは
不都合があるのですか?
余計なものまで条件に引っかかってくるのでしょうか?

【34866】Re:実際に改良してみたのですが…
お礼  Cuore=Tane  - 06/2/14(火) 23:09 -

引用なし
パスワード
   ▼やっちん さん:
>▼Cuore=Tane さん:
>こんばんは。
>>「検索した文字列に該当するすべてのセルを選択する」
>FindとUnionをヘルプまたは過去ログで調べてみてください。
>組み合わせればできそうです。
>でも、「その状態からさらにある条件に関する検索と置換を行う」だけでは
>不都合があるのですか?
>余計なものまで条件に引っかかってくるのでしょうか?

やっちんさんへ
お蔭様ですべての作業ができるようになりました。
「その状態からさらにある条件に関する検索と置換を行う」だけで良かったみたいです。本当にありがとうございました。m(__)m

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