Excel2013 VBAで名前付きセルの利用方法

質問

• ExcelでVBAで設定値を書いたシートを参照する際に、名前付きセルを利用する方法について教えてください。
• 名前付きセル範囲を手動で作成し、それを参照するVBAコードを書いていますがうまくいきません。
• 標準モジュールでは正しく動作するのに、Sheet1モジュールのイベントに同じコードを書くとエラーになります。理由がわかりません。お助けください。

回答No.3

real beatin（@realbeatin）

回答No.1補足欄への返信です。

> 激しくて混乱してますが、
> 試したら何の問題も無く動いてるので正しいんですよねコレ…
ごもっともな感想だと思います。
私の方でも、説明が雑過ぎたなぁと思っていて、
追加補足を書いてはいたのですが、
ちょっと上げ難い雰囲気みたいなので、投稿ボタン押せませんでした。
今回のテーマ自体、Web上でも情報が少ない、ということもあって、
こちらもすべて自分の言葉で説明するよりないのですが、
細かい部分で説明や用語を間違うかもしれませんし、
重ねて下手な説明だったらゴメンナサイ。
概念的な理解への援けに少しでもなれば、と。
さて。

【Range】
例えばVBEでF2キーを押してオブジェクトブラウザーを表示して、
Rangeを検索すると、Range プロパティが
複数のクラスに在ることを確認できます。
つまり、親オブジェクトを省略した形の
　　Range ...
という記述は、
その記述を書いた場所、実行時の状況によって、
どのクラスのRange プロパティを呼び出すか、
予めVBAで定義されたルールに従って変動します。

【Sheet1 モジュール】（Worksheetのシートモジュール）
（この場合の"Sheet1"は、
　シートタブに表示されている名前（Name）ではなくて、
　VBProject内でのオブジェクト（クラス）名（CodeName）
　を指します。）
に、
　　Range ...
親オブジェクトを省略して、Range プロパティを呼び出すと、
　　Me.Range ...
　　Sheet1.Range ...
Sheet1 クラスのRange プロパティを参照します。
コードを記入したモジュールから見て
一番近くにあるクラス=Sheet1のメンバーを参照することになります。

【標準モジュール】
に
　　Range ...
親オブジェクトを省略して、Range プロパティを呼び出すと、
関連付けされたクラス（オブジェクト）が標準モジュールにはないので、
一番近くにあるクラス=Excel.Applicationのメンバーを参照することになり、
　　Excel.Application.Range ...
になるのですが、この場合の動作結果は、通常、
　　Activesheet.Range ...
になりますので、
　「標準モジュールに親オブジェクトを省略した形でRangeプロパティを呼び出すと、
　　アクティブシートのRangeオブジェクトを返します」
という説明をするのが一般的な慣習になっています。

Sheet1 モジュールで
　　Range("起動Path") ...
を指定すると、
Sheet1に（シートレベルで）定義された名前が
あれば、正常にセル範囲を返しますし。
無ければ、実行時エラーを返します。
仮に、ブックレベルで定義された名前として存在している名前であっても、
Sheet1 クラスに無ければエラー、ということです。

【Evaluate メソッド】
元々はVBAが生まれる前の古いマクロに用意されたものだったと記憶していますが、
Excelメニューの
　[名前ボックス]
　[数式バー]
　[名前の定義] > [参照範囲]
等の参照や演算をメモリ上で再現するようなものです。
[名前ボックス]に
　起動Path
を記入（表示）した状態でEnterキーを押せば、
[起動Path]という名前で定義された名前の参照範囲にジャンプしますが、
これをシミュレートした結果として、
　Evaluate("起動Path") ...
は、Range オブジェクトとしてのセル範囲[起動Path]を返します。
意味合いとしては、
　アクティブなシートにシートレベルで定義された名前の参照範囲、
もしシートレベルに該当する名前が無ければ、
　アクティブなブックにブックレベルで定義された名前の参照範囲
もし、どちらにも該当する名前が無ければ
　エラー
といった感じになります。

【Application.Range】
名前の定義を参照する場合にはEvaluate メソッドとまったく同じ結果になります。
何故、Application.を付けるかというと、
Sheet1で親オブジェクトを省略して、Range プロパティを呼び出すと、
一番近くにあるクラス=Sheet1のメンバーを参照する為、
意図に沿うようにする為には、
親オブジェクトをApplication（実際の挙動としてはActiveSheet）として
正しく指定する必要があるからです。

今回は「Sheet1モジュールのダブルクリックイベント」ということでしたから、
アクティブなブックは自ブックである（アクティブなシートは必ずSheet1である）
という（少なくとも今のVBAでは絶対的な）前提を利用した相対的な参照として、
　　MsgBox Evaluate("起動Path").Value
　　MsgBox Application.Range("起動Path").Value
という例を紹介しています。
[起動Path]という名前が定義されていないブックがアクティブな場合には、
どちらも実行時エラーになりますのて、他の場面で扱う際は注意して下さい。

絶対的な参照としては、
　　MsgBox Workbooks("hoge").Names("起動Path").RefersToRange.Value
のように、ブック＞Namesオブジェクト＞セル参照範囲、
階層を辿る形になります。

補足への返信としては以上です。
うまく整理できなくてすみません。
尚不明な点があれば遠慮なくお訊ねください。

、、、迷ったけど、一言、自分が書いておくべきと思うので、書いておきますね。
私は、
貴方の質問は、今回も、よく整理されていて、解り易い、
と感じています（実際、読んですぐ解答に着手できました）。
起動Pathという名前からしてShell関数を使う目的を理解するのも容易なことですし、
質問の趣旨からしてそれ以上説明する必要もなく、
といって全く目的に触れないでいては混乱を招く可能性があることを考えると、
ピッタリ必要十分だと、私は、思っています。
まぁ、人それぞれでいいのですけれどね、でもケチつけるのは違うと思います。

失礼しました、それではまた。