IShts
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | Option Explicit '******* ワークシートコレクション用インターフェース ******* Private mWShts As Collection '親インスタンス用変数宣言 Private mParent As Wbk '●親クラス設定 Property Set Parent(ByRef vParent As Wbk) End Property '●親クラス取得 Property Get Parent() As Wbk End Property '■Addメソッド Sub Add(ByRef vSht As Worksheet) End Sub '■Removeメソッド Sub Remove(ByVal vID As String) End Sub '■Itemメソッド Function Item(ByVal vID As Variant) As WSht End Function '■Countプロパティ Function Count() As Long End Function |