19/12/03 16:53:00 HVSFa5J10.net
>>4
Cells(i, j).Borders(xlDiagonalDown).LineStyle = xlInsideHorizontal
↑色々省略されている。
↓なるべく略さずに書き直してみる。
Let Excel.Application.ActiveSheet.Cells(i,
j).Borders(xlDiagonalDown).LineStyle = xlInsideHorizontal
先頭の「Let」はステートメント(命令)で、「この行のコードの右辺の値を左辺に
代入してね」という命令になっている。
また、このコード例の場合、ピリオドの右に続く単語はすべて(たまたま)「プロパ
ティ」になっている。
だが、「ApplicationプロパティのActiveSheetプロパティ」だとか「Cellsプロパ
ティのBordersプロパティ」だとかいう語は成り立たない。
ExcelオブジェクトライブラリのApplicationプロパティにより、Applicationクラス
のインスタンス(Applicationオブジェクト)を参照(Get)
→ApplicationオブジェクトのActiveSheetプロパティにより、Worksheetクラスのイ
ンスタンス(WorkSheetオブジェクト)を参照(Get)
→WorkSheetオブジェクトのCellsプロパティにより、Rangeクラスのインスタンス
(Rangeオブジェクト)を参照(Get)
(Rangeオブジェクトのデフォルトプロパティの引数にi・jを指定し、Rangeクラ
スの別のインスタンス=Rangeオブジェクトを参照)
→RangeオブジェクトのBordersプロパティにより、Bordersクラスのインスタン
ス(Bordersオブジェクト)を参照(Get)
(Bordersオブジェクトのデフォルトプロパティの引数にxlDiagonalDownを指
定し、Borderクラスのインスタンス=Borderオブジェクトを参照)
→BorderオブジェクトのLineStyleプロパティにxlInsideHorizontalを代入
(Let)してね(=LineStyleプロパティプロシージャの引数にxlInsideHorizontalを指
定して、LineStyleプロパティプロシージャを実行してね)。