2016-06-23 9 views
0

標準データテーブルを含むシートと計算用シートを含むスプレッドシートがあります。私は、マクロが計算で現在使用されているデータテーブルシートの名前を検索し、別のデータテーブルシートの名前で置き換えるように設定する必要があります。データテーブルが同じレイアウトになっているので、式内の他のものは変更する必要はありませんが、私は苦労しています!これは私がこれまで持っているものです。Excelの数式内のテキストを置換する

Sub Replace_Text() 

    Dim Findtext As String 
    Dim Replacetext As String 
    Findtext = "Front Sheet!B2" 
    Replacetext = "Front Sheet!C2" 
    Worksheets("Sheet 2").Range("K11:Z91").Replace what:=Findtext, replacement:=Replacetext, lookat:=xlPart, MatchCase:=False 

あなたは私が誰にも変更する必要があるだろう唯一のことは、それらのセル(B2で書かれているものであるように、テキストのセル参照を持つようにしようとしている見ることができるように、 C2)を使用して、新しいデータテーブルの計算を取得します。

エラーが検索範囲を参照していると思いますか?私はExcelを使い慣れていないので、他に何を試していいのか分かりません。

答えて

0

あなただけのB2とC2の内容を取得する必要があり、値ではなく、値の入手先の文字列を渡すことになりますが、 -

Sub Replace_Text() 
Dim Findtext As String 
Dim Replacetext As String 
Findtext = Worksheets("Front Sheet").Range("B2").Value 
Replacetext = Worksheets("Front Sheet").Range("c2").Value 
Worksheets("Sheet2").Range("K11:Z91").Replace what:=Findtext, replacement:=Replacetext, lookat:=xlPart, MatchCase:=False 
End Sub 
1

あなたは(実際には.VALUEを残すことができますので、findtext=worksheets("Front Sheet").range("b2").value

+0

おかげさまで、ありがとうございました!範囲: "K11:Z91")置き換え:= Findtext、replacement:= Replacetext、lookat:= xlPart、MatchCase:= False –

+0

エラーがありますか?メッセージ? –

+0

それは私のために働く、あなたは "Sheet2"を意味していますか? –

関連する問題