Excel VBA 「名前の定義」で参照範囲RefersToR1C1に

質問

Excel VBA 「名前の定義」で参照範囲RefersToR1C1にString型を代入するとダブルクォーテーションが入ってしまう問題を解決するには？

Excel VBAで、次のように「名前の定義」で参照範囲にString型を代入するとダブルクォーテーションが入ってしまいます。

Sub Macro0()

Dim str As String

Range("B162").Select
str = "'" + Range("B162").Value + "'" + "!A1:Z65535"

ActiveWorkbook.Names.Add Name:="name", RefersToR1C1:=str

ActiveWorkbook.Names("tes1").Comment = ""

End Sub

これを実行しますと、「参照範囲」にダブルクォーテーション""が余計に入ってしまい、正しく参照できません。
このダブルクォーテーションをつけない方法はありますか？よろしくお願いします。

回答No.2

keithin · ベストアンサー

変更前：
str = "'" + Range("B162").Value + "'" + "!A1:Z65535"

変更後：
str = "='" & Range("B162").Value & "'" + "!R1C1:R65535C256"
　　　　↑「＝」を追加
などでどうぞ。

＃間違いのその２：
　referstoR1C1に与えるのに，A1型式文字列を記述している
　A1とR1C1どちらでもできるが，混在はしないこと

＃間違いのその３：
　相対参照の文字列を与えているので，間違った範囲が定義される。
　A1とR1C1どちらでもできるが，絶対参照の記述で与えること

お礼

ありがとうございます。
どこが間違っていたのかも教えていただいて、とても助かります。

回答No.1

mt2008

RefersToR1C1にはStringではなく、Rangeを与えます。
次のように変えてください。

ActiveWorkbook.Names.Add Name:="name", RefersToR1C1:=str
↓
ActiveWorkbook.Names.Add Name:="name", RefersToR1C1:=Range(str)

最後の↓は今回の質問と無関係と考えていいですよね？
ActiveWorkbook.Names("tes1").Comment = ""

お礼

こちらの説明が足りず、申し訳ございませんでした。
最後のは関係なかったです。ありがとうございます。