|
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つづつ検索して置換するというような引数を書く事は可能ですか???
すいません、上記文章の意味がわかりませんでしたので、お答えできません。
|
|