エクセルVBA 定義名で、なく 値を、渡すと？

質問

エクセルVBA　定義名で、なく　値を、渡すと？

お世話になります。

https://sp.okwave.jp/qa/q9339051.html
にて
Excel.Constants には
(中略)
Excelクラスの.Patternプロパティに使われるものだけ
抜き出すと、以下。
　xlSolid　　　　　　 1
　xlGray75　　　　-4126
　xlGray50　　　　-4125
　xlGray25　　　　-4124
　xlGray16　　　　　 17
　xlGray8　　　　　　18
　xlHorizontal　　-4128
　xlVertical　　　-4166
　xlDown　　　　　-4121
　xlUp　　　　　　-4162
　xlChecker　　　　　 9
　xlSemiGray75　　　 10
　xlLightHorizontal　11
　xlLightVertical　　12
　xlLightDown　　　　13
　xlLightUp　　　　　14
　xlGrid　　　　　　 15
　xlCrissCross　　　 16
（以上[パターンの種類]配置順）
　xlNone　　　 　 -4142
ある
と、教わりました

手元で、此等は
定義名で、なく
値、其のものを
渡しても
動作が、確認
できました

其処で、伺います
此等、定義は、
Constされて、いる
ような、もので

設定時に、渡す
場合、
定義された、名
でも、
値、其のもの
でも、

正式、仕様上では
どちらも
正式に、認められた
やり方、ですか？

MSの
正式、仕様の
内容を

通説や、
今、偶々
できるよ、
では、なく

其れと
確認の、取れる
状態で
探す、方法が
思い、つけなかった
もので

宜しく
お願い、致します。

回答No.1

ddtddtddt · ベストアンサー

例えばxlGray75（＝-4126）を、CellのInteriorオブジェクトのPatternプロパティーの引数として与える、という事で良いでしょうか？。

　Excel.VBAは内部仕様として、Pattern列挙体を持っています。列挙体とは何かというと一種の辞書のようなもので、

　Enum Pattern
　　xlSolid　　　　　　 1
　　xlGray75　　　　-4126
　　xlGray50　　　　-4125
　　　・
　　　・
　　　・
　End Enum

のような形で定義されます。Enumは列挙体の意味でVBの予約語であり、Enumのメンバーは、DefaultでConst属性を持ちます。

　列挙体の使い方ですが、正式には、

　　Dim Pattern_Index As Integer
　　Pattern_Index = App.Pattern("xlGray75")

とやると、整数型変数のPattern_Indexが、-4126という値を持つ訳です。

　ここでAppはExcel本体を表すオブジェクトで、そのPattern列挙体のIndex名"xlGray75"のIndex値を、Pattern_Indexにセットせよが、上記の意味になります。

　ところでAppがExcel本体を表すなら、最初からExcel.VBA内部での出来事なので、Appと書くのは無駄な作業です。またCellのInteriorオブジェクトのPatternプロパティーは最初から、ExcelのPattern列挙体のIndex値でしか正常に動作しないと決まっているので、Pattern("xlGray75")などと書くのも無駄な作業です。

　それでExcel.VBAは、 App.Patternの部分を省略できるような内部仕様になっています。こういうのは他にもありますよね？。

　Cells(*,*)と書いたら、現在前面にある、すなわち現在ActiveなWorksheetのCells(*,*)である、という決まり。それからSelectionオブジェクトなどが、その省略機能の代表です。

　という訳で、

　　Cells(10,　列)).Interior.Pattern = xlGray75

も、

　　Cells(10,　列)).Interior.Pattern = -4126

も、Cells(10,　列)).Interior関数にとっては同じです（じつはプロパティーも、内部仕様としては関数なんです）。

　ただしコードの可読性の容易さから、xlGray75を使用する事をMicrosoftは推奨しています。それはMicrosoftでなくたって、そうするのが常識です。「= -4126」と書いてあるよりは、後で見直した時に「= xlGray75」と書いてある方が、いちおうわかりやすいはずだからです(^^;)。

　ちなみに、厳密に言うとCellsオブジェクトというのはありません。

　Cellsオブジェクトのように扱えるものは、本当はRangeオブジェクトのプロパティーなんですよ。Range.Cells(*,*)がCells(*,*)の正体で、じつはこれは、

　　Range.Items(*,*)

と同じです。さらに上記は、

　　Range(*,*)

と略記できます。Rangeは本当のオブジェクトなので、Range(*,*)も本当のオブジェクトです。つまりCells(*,*)とは、行Indexと列Indexが特定されたRange.Items(*,*)の結果に、別名を付けただけものなんですよ。その方が、若干わかりいやすいからだと思われます(^^;)。

　これもExcelの省略機能です。

お礼

有難うございます