エクセルマクロで検索

質問

エクセル初心者です。
エクセルで表を作ったのですがその中の計算式で月が変わるたびに参照するワークシートが変わるのでマクロの検索をつかいたいと考えています。
表の横に検索するワークシート名と置き換えするワークシート名をいれるセルをつくりマクロを組んで実行すると置き換えが完了するというようなマクロはできませんか？セル自体を検索置き換えはできるのですがセルの中の文字を指定の仕方がわかりません。
説明がヘタなのでわかりにくいかと思いますがよろしくおねがいします。

回答No.1

qualheart · ベストアンサー

検索するワークシート名=E1
置き換えするワークシート名=E2
として

a=Cells(1,5)
b=Cells(2,5)
Cells.Replace What:=a, Replacement:=b, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False

でできませんか？

お礼

早速の回答ありがとうございます。
できました！
ＮＯ.１さんとＮＯ.３さんの回答で理想どうりにできて感激です!！

回答No.3

kigoshi

#1さんのご回答で良いように思いますが、最後に
Cells(1, 5) = a
を付け加えた方が良いと思います。
ご参考まで。

お礼

早速の回答ありがとうございます。
ＮＯ.１さんの回答でできたのですが、検索するワークシート名が消えてしまうのでどうしようと思っていたらＮＯ.３さんの回答で理想的なものになりました。
感激です!!

回答No.2

pbforce

Sh1 = Cells(1, 1)
Sh2 = Cells(1, 2)
Sheets(Sh1).Name = Sh2

お礼

早速の回答ありがとうございます。
私にはむずかしかったです。
勉強不足ですみません。