如何在自己的类中复制Range.Cells的功能？

Question

我试图在我自己的类中模拟Range.Cells(row, col)属性。 我的.Cells属性确实正确更新了指定的单元格。

但是问题是，当我键入d.Cells(1, 3) = ，等号后intellisense将建议"Cells(row As Long, col) as Range" 。 我不确定这是否会给我带来麻烦。

Cells属性的定义如下：

Property Get Cells(row As Long, col As Variant) As Range

    ' Get the column number for the requested cell
        Dim c As Long
        If IsNumeric(col) Then
            ' ensure it is an int
                c = CInt(col)
        ElseIf VarType(col) = vbString Then
            ' Get column number from the header name
                c = Me.Column(CStr(col))
        Else
            ' Otherwise, variant type is not supported
                Exit Property
        End If

    ' Return the requested Cell if column number is valid
        If c > 0 And c <= pHeaderRange.Columns.Count Then
            Set Cells = pHeaderRange.CurrentRegion.Cells(1 + row, c)
            ' the row is +1 because pHeaderRange.CurrentRegion also returns 
            ' the header row
        End If

End Property

我也尝试过这个：

Public Property Get Cells(row As Long, col As Variant) As Range
    ' same code as above
End Property
Public Property Set Cells(v As Variant)
    ' some code here
End Property

但是我收到消息：“编译错误：同一属性的属性过程定义不一致，或者属性过程具有可选参数ParamArray或无效的Set final参数。”

我想我由于该行中包含的参数而收到编译错误Property Get Cells(row As Long, col As Variant) As Range 。 但是我需要这些参数来选择单元格。

在用户定义的类中定义.Cells属性的正确方法是什么，以使其与Range.Cells相同的工作方式？

完整的代码是：

Option Explicit

Private pHeaderRange As Range

'
' Sets the Range of the header row.
'
' -r   Range   The header row is expected to the in the CurrentRegion of r.
'
Property Let Header(location As Range)

    ' if range is empty, only the top, left cell will be selected
        Dim r As Range
        Set r = location.CurrentRegion

    ' if top row is blank, then remove top row from the range
        If WorksheetFunction.CountA(r.Rows(1)) = 0 Then
            ' dont (and cant) resize unless there are multiple rows in the range
                If r.Rows.Count > 1 Then
                    Set r = r.Resize(r.Rows.Count - 1, r.Columns.Count).Offset(1, 0) ' resizes and repositions range
                Else
                    ' the is no header, only a blank cell
                        Set pHeaderRange = r
                        Exit Property
                End If
        End If

    ' find the starting column of the header row
        Dim startCell As Range
        Dim endCell As Range
        Set startCell = r.Cells(1, 1)

        If IsEmpty(startCell) Then
            ' if startCell is empty, look for header to the right
                Set startCell = r.End(xlToRight)
        ElseIf IsEmpty(startCell.Offset(0, -1)) Then
            ' if cell to the left is empty, we have already found the start of the header
        Else
            ' otherwise move to left to find the start
                Set startCell = startCell.End(xlToLeft)
        End If

        ' find the last column of the header row
            If IsEmpty(startCell.Cells(1, 2)) Then
                ' if cell to the right is empty, header row only contains one cell
                    Set endCell = startCell
            Else
                ' otherwise move to right to find the end
                    Set endCell = startCell.End(xlToRight)
            End If

    ' store the header range
        Set pHeaderRange = Range(startCell, endCell)

    ' debug
        pHeaderRange.Select

End Property


'
'
Public Property Get Cells(row As Long, col As Variant) As Range

    ' Get the column number for the requested cell
        Dim c As Long
        If IsNumeric(col) Then
            ' change to int
                c = CInt(col)
        ElseIf VarType(col) = vbString Then
            ' Get column by header name
                c = Me.Column(CStr(col))
        Else
            ' Otherwise, variant type is not supported
                Exit Property
        End If

    ' Return the requested Cell if column number is valid
        If c > 0 And c <= pHeaderRange.Columns.Count Then
            Set Cells = pHeaderRange.CurrentRegion.Cells(1 + row, c) ' the row is +1 because CurrentRegion also returns the header row
        End If

End Property
Public Property Set Cells(v As Range)
    ' some code here
End Property

'
' Returns the entire column range of the header that matches the index.
'
' -name String  The header name to find
'
Public Property Get Column(name As String) As Long

    ' Find header
        On Error Resume Next ' continue even if name is not found (ie Find returns an error)
        Dim r As Range
        Set r = pHeaderRange.Find(name)

    ' return column number
        Column = r.Column - pHeaderRange.Column + 1

End Property

Answer 1

http://msdn.microsoft.com/en-us/library/gg251357.aspx

相同属性的Property Get，Property Let和Property Set过程的参数必须完全匹配，除了Property Let具有一个额外的参数，其类型必须与相应的Property Get的返回类型匹配。

问题是您的Get中有参数不在Set中。 所以这会工作

Public Property Get Cells(lrow As Long, vcol As Variant) As Range


End Property
Public Property Set Cells(lrow As Long, vcol As Variant, v As Range)


End Property

除非这没有任何意义（您已经知道）。 单元格在Excel对象模型中工作的原因是它是一个只读属性（有一个Get，但没有Let或Set）。 Cells属性返回一个Range对象，但是您不能设置Cells。 我不确定您要使用Set语句完成什么，但也许您不需要它。 您似乎没有任何模块级变量来存储它。

Answer 2

如果我了解您的问题，也许您可​​以尝试：

Public Property Set Cells(row As Long, col As Variant) As Range
    'code to set the class
End Property

请参见此线程的一些技巧： 使用对象引用设置vba类的属性