エクセル2003VBA ワークシートオブジェクト名でオブジェクトを取得する記述について

質問

いつも勉強させていただいております。
こちらの掲示版に以下の質問の回答がとても興味を引いたので
その件について、更にご質問させていただきたいと思います。
http://oshiete1.goo.ne.jp/qa3595532.html
ご回答では、シートのオブジェクト名の変更のやり方等が
回答されておられました。
で、シートオブジェクト名の変更については理解できたのですが、
このオブジェクト名を用いてそのオブジェクトをどのように取得すれ
ばいよのか、コードの記述の仕方がわかりません。
VBE画面でシートの表示名が
Test(Sheet1)とした場合、シートオブジェクトを取得するコードは
どのように記述するのでしょうか。
宜しくお願いいたします。

回答No.5

KenKen_SP

> ThisWorkbook.Sheet1.Range("A1").Value
> Workbooks("Test1.xls").Sheet1.Range("A1").Value

説明のため...とは思いますが、このような書き方はできません。

> シートオブジェクト名を用いる場合、親オブジェクトはbookでは無い
> と言うことでいいのでしょうか？

違います。どのような場合も

　　Book -- Sheet というツリー構造が崩れることはありません。

下記コードでイメージし易いと思います。

　　Dim Sh As Worksheet
　　Set Sh = ThisWorkbook.Worksheets("Sheet1") ' ※
　　MsgBox Sh.Parent.Name　　　　　　　 ' // <-- OK
　　MsgBox ThisWorkbook.Sh.Parent.Name　' // <-- NG

この例でオブジェクト（変数) Sh は、 ※部分で既に親オブジェクト
である BOOK を含めてシートを参照しています。※部で親オブジェクトを
明示的に装飾していないコード、

　　Set Sh = Worksheets("Sheet1")

であっても、単に ActiveWorkbook が省略された形に過ぎませんから、
やはり BOOK を親オブジェクトとしてシートを参照しています。

以上を踏まえ、NG コードを考えますが

　　ThisWorkbook.Sh.Parent.Name

は親オブジェクトを２重装飾していることになり、過装飾でエラーです。
身近な例で言えば、

　　東京都 -- 新宿区
　　東京都 -- 東京都 -- 新宿区

のような違いですね。人間には２番目に市町村名がくることがわかり
ますので、多少イレギュラーな書き方でも理解はできますが、VBA は
この原則が崩されると理解不能に陥ります。

コードネームを使うということは、これと考え方は同一です。つまり、

　　コードネームで呼びだす場合、親オブジェクトである BOOK を
　　改めて装飾する必要はない。

ということです。

お礼

KenKen_SP様、ご返答ありがとうございます。
今回ご説明いただいた内容で、自分のコードの記述の
エーラーの原因がはっきり理解できました。
このように判り易い例までだしていただき誠に感謝です。
いままで、気づかなかった事などいろいろな事がこの事に
より理解できました。
今後ともいろいろご質問させていただく事があるかと思います
が宜しくお願いいたします。