エクセルで指定した文字に自動で置換することは可能ですか？？

質問

Ａ１セルに「バナナ」と表示されると下のマクロの記録で作った”置換するマクロ”の「りんご」の部分を「バナナ」に変更し、さらにこの置換マクロを自動実行することはできますか？？

Sub Macro1()'
Cells.Select
Selection.Replace What:="名前(1)", Replacement:="りんご", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
End Suｂ

このマクロの記録でなくてもいいんですが、あるセルに置換したい文字が表示された時点でシート内の置換が実行されるようにしたいんですけど・・・・・。
よろしくお願いします。

回答No.3

hige_082 · ベストアンサー

こう言う事？
A1～E1までの入力値でそれぞれを置換
名前(1)をA1の入力値で置換
名前(2)をB1の入力値で置換
名前(3)をC1の入力値で置換
名前(4)をD1の入力値で置換
名前(5)をE1の入力値で置換

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:e1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("A2:CZ1000").Replace What:="名前(" & Target.Column & ")", Replacement:=Target.Value, LookAt:=xlPart
Application.EnableEvents = True
End Sub

参考まで

お礼

ありがとうございます！！
思うようにできました。本当に助かりました。

回答No.2

KURUMITO

回答Ｎｏ１です。
次のようにしてはどうでしょう。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
Range("A2:CZ1000").Select
Selection.Replace What:="名前(1)", Replacement:=Range("A1").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ElseIf Target = Range("B1") Then
Range("A2:CZ1000").Select
Selection.Replace What:="名前(2)", Replacement:=Range("B1").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
Range("A1").Select
End Sub

補足

たびたびスミマセン・・・・。
やはり空白も置換されてしまうのですが、
処理も（ずっと点滅したままでなかなか進みません・・・。）
なにかいい方法はありますか？？

回答No.1

KURUMITO

次のようにすることでＡ１セルにバナナと入力することで自動的に名前(1）のセルがバナナに変わりますね。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
Cells.Select
Selection.Replace What:="名前(1)", Replacement:=Range("A1").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
Range("A1").Select
End Sub

補足

さっそくの回答ありがとうございます。
実は、こんな感じのをＡ１だけじゃなく、他のセルにも応用しようと
思うのですが、初心者なりに考えてやってみたのですがうまくいきません・・・・・。
空白も置換？？してしまうし、処理も遅いのですが、改善策はありますか？？
もしよろしければ教えてください。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target = Range("A1")
Range("A2:CZ1000").Select
Selection.Replace What:="名前(1)", Replacement:=Range("A1").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
With Target = Range("B1")
Range("A2:CZ1000").Select
Selection.Replace What:="名前(2)", Replacement:=Range("B1").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Range("A1").Select
End Sub

お手数おかけします・・・。