セルのデータをマクロで置換するには？

質問

よろしくお願いします。エクセル２０１０でマクロを勉強しています。
日本語で表現している部分をマクロではどう書いたらいいのでしょうか

ネットで調べたらreplaceStrを使うようですが、ここから前に進めません
どなたか教えてください

単に式で書いてもいいようですが、式で書くと、リンクするソフト側でエラーになるので
マクロで書く必要があります

例としてセルＭ７には　=RSS|'3000.t'!更新済　という式が書いてあります

　Private Sub Worksheet_Change(ByVal Target As Range)

'セルＢ７に数値が入力されたら
　　　　'セルＭ７の数値をＢ７の数値で置き換える
　　　'数値は常に４桁です

End Sub

以上です。よろしくお願いします

回答No.1

tom04 · ベストアンサー

こんばんは！

M7セルに
=RSS|'3000.t'!更新済
という数式が入っていて、B7セルに4桁数値が入力された場合
仮に「2500」の場合はM7セルの数式が
=RSS|'2500.t'!更新済
のようになればよい！というコトでしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String, buf As String
If Target.Address = "$B$7" Then
If IsNumeric(Target) Then
If Target > 999 And Target < 10000 Then
buf = Range("M7").Formula
str = Mid(buf, InStr(buf, "'") + 1, 4)
Range("M7").Formula = Replace(buf, str, Target)
End If
End If
End If
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

早速教えていただきましてありがとうございます
おかげさまですぐにできました

世間には優秀な方がいるんですね
この一ヶ月ほど、ずっとネットで調べていたのですがだめでした

本当にありがとうございました
この型を組み合わせて完成させたいと思います

完璧に教えてもらっておきながら簡単なお礼で申し訳ありません
ありがとうございました