Excel VBA質問箱 IV

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

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


45778 / 76732 ←次へ | 前へ→

【35940】Re:検索文字列の置換方法
回答  ちくたく WEB  - 06/3/16(木) 15:49 -

引用なし
パスワード
   Jack さん
こんにちは。

ひとまず、こんな感じかと思います。
面倒なのでFindを使いました。他にもやり方はあると思います。

Sub test()
  
  Dim fStr As String, rStr As String
  Dim r As Range, f As Integer, fAdd As String
  
  fStr = InputBox("検索文字列")
  rStr = InputBox("置換文字列")
  
  With ActiveSheet.Cells
    Set r = .Find("Book::" & fStr)
    fAdd = r.Address
    Do
      If Not r Is Nothing Then f = MsgBox(r.Address & "置き換えますか?", vbOKCancel)
      If f = vbOK Then r.Value = "Book::" & rStr
      Set r = .FindNext(r)
      If r Is Nothing Then Exit Do
    Loop While Not r Is Nothing And r.Address <> fAdd
  End With
End Sub

>素人考えですが、
>
>Const S As String = """MOM::"   ←検索する文字列
>
>の部分に"""MOM:: &○○○"として "MOM:: を含んだ文字列(1行)を1つづつ検索して置換するというような引数を書く事は可能ですか???

すいません、上記文章の意味がわかりませんでしたので、お答えできません。
2 hits

【35931】検索文字列の置換方法 Jack 06/3/16(木) 11:59 質問
【35932】Re:検索文字列の置換方法 ちくたく 06/3/16(木) 12:25 回答
【35937】Re:検索文字列の置換方法 Jack 06/3/16(木) 14:41 質問
【35940】Re:検索文字列の置換方法 ちくたく 06/3/16(木) 15:49 回答
【35941】Re:検索文字列の置換方法 ちくたく 06/3/16(木) 16:04 発言
【35942】Re:検索文字列の置換方法 Jack 06/3/16(木) 16:12 質問
【35943】Re:検索文字列の置換方法 Blue 06/3/16(木) 16:29 発言
【35951】Re:検索文字列の置換方法 ちくたく 06/3/16(木) 17:10 発言

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