VBAクラスから返すセル参照

Question

データテーブルを作成するExcel VBAプロシージャがあります。コードを簡略化するために、BreakDownTableクラスを作成します。

とき私は実行時エラーを取得するコードを実行しようとしている：

424 – Object required.

クラスからセル参照を取得する方法任意のアイデアを？

Private sub CreateTable() 
Dim bdTable As New BreakDownTable 
bdTable.StartingPosition = Range(refEditTabel.value) 
bdTable.Cell(0, 0) = "Key" 
bdTable.Cell(0, 1) = "Summary” 

Dim dateRange as Range 
Set dateRange = Range(bdTable.Cell(2, 3), bdTable.Cell(7, 6) 
… 
End sub 

BreakDownTable CLASS：

Private pStartingPosition As Range 

Public Property Get StartingPosition() As Range 
    StartingPosition = pStartingPosition 
End Property 

Public Property Let StartingPosition(value As Range) 
    Set pStartingPosition = value 
End Property 

Public Function Cell(row As Integer, col As Integer) 
    Cell = Cells(pStartingPosition.row + row, pStartingPosition.Column + col) 
End Function 

Answer 1

あなたのあなたがオブジェクト参照にCellを割り当てるときsetの欠落：

Set Cell = Cells(pStartingPosition.row + row, pStartingPosition.Column + col)