IRng
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 mParent As WSht '●親クラス設定 Property Set Parent(ByRef vParent As WSht) End Property '●親クラス取得 Property Get Parent() As WSht End Property '■データ範囲(ヘッダ無し)取得 Function rngDataWithNoHdr() As Range End Function '■データ範囲(ヘッダ付き)取得 Function rngDataWithHdr() End Function '■データ範囲(行列指定)取得 Function rngDataLimitted(ByVal vR1 As Long, ByVal vC1 As Long, ByVal vR2 As Long, ByVal vC2 As Long) As Range End Function '■レコード範囲をクリア Sub ClearRcrd(ByVal vSRow As Long) End Sub |