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

質問

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

回答No.4

Wendy02

#1です。

#3さんの内容で、お話は分かりましたが、私が詳しく書かなかったのがいけなかったかもしれませんが、前の書き込みの意味を取り違えていらっしゃるようです。前回の内容は、あくまでも、変更した理由のこちらの推測なのです。別に変えなくても済むものだったかもしれないのです。

>ActiveWorkbook.Test.Range("A1").Value = 5555

>親オブジェクトはbookでは無いと言うことでいいのでしょうか？

このような質問が出てくるというのでは、実際に、コンテナ（上位オブジェクトから）の概念とか、オブジェクトの構造が分かっていらっしゃらないように思えます。これらは、基本的なことですから、ローカルウィンドウで、まず、シート・オブジェクトや、その上のParent やオブジェクト名で表されているものは、どういうものか、とか、ご自身で見て研究してください。そうすれば分かります。

ただ、あくまでも、既存のオブジェクト名にすると、シート名と混乱させられるから、ユニークな名前で混乱しないようにしているわけで、シート名"Sheet1"を、"Sheet4"に換えられたからといっても、元のオブジェクト名のSheet1 は替えられてはいないのです。これは、そのブックの中のシートの固有（ユニーク）なオブジェクトの名称です。

実際に、オブジェクトを、そのままSheet1 にしても問題はありません。シート名は、任意で変えられますが、オブジェクト名は、明示的に替えなければ、替えられないということです。それを押さえておいてください。

ThisWorkbook.Sheet1.Range("A1").Value でも、Workbooks("Test1.xls").Sheet1.Range("A1").Value でも、良いわけです。つまり、オブジェクト名(CodeName)自体に気づけば、それはそれで用件は済んでいるわけで、あえて名前を変更する必要などはありません。

最終的には、今度は、プロジェクト名自体をユニークなものにするというのが、システム設計のひとつになっていくのです。これらは、開発の実践のテクニックで、別に、一般的には必要のないのです。

なお、マクロとしては、#2のzap35さんご指摘の、VBComponentsのコレクションに属しているという考え方で操作するほうが、今度は、シートオブジェクト全体(シートモジュールとシート両方）として捉えるには適していると思います。

お礼

wendy02様いつもご返答ありがとうございます。
ご指摘の通り、まだまだ理解しないままVBAコードを記述している事
が多々あります。こういったご意見をお伺いでき、更にスキルアップ
に繋げていきたく思います。
今回ご指摘いただいた、コンテナの概念やオブジェクトの構造について
も、最近やっと少しづつ理解できるようになって来たところです。
ご回答で
VBComponents
と言う言葉がありますが、このこと自体、？？？であり、ご回答いただ
いた内容がつかみきれていないというのが素直な感想であります。
しかしながら、キーワードとして今後自分の勉強に活かしていきたいと
思います。
今後もいろいろご質問することが在ると思いますが宜しくお願い
いたします。