如何复制Range.Cells在我自己的类中的function？
我想模仿我自己class里的Range.Cells(row, col)属性。 我的.Cells属性确实更新指定的单元格。
然而，问题是，当我inputd.Cells(1, 3) = ，等号后intellisense会build议"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最终参数。
我想我得到了编译错误，因为我已经包含在这一行的Property Get Cells(row As Long, col As Variant) As Range 。 但我需要这些参数来select单元格。
在用户定义的类中定义.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
http://msdn.microsoft.com/en-us/library/gg251357.aspx
除了Property Let有一个额外的参数，其types必须与相应的Property Get的返回types相匹配外，同一属性的Property Get，Property Let和Property Set过程的参数必须完全匹配。
问题是你在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语句来完成什么，但也许你不需要它。 你似乎没有任何模块级别的variables来存储它。
如果我明白你的问题，也许你可以试试：
Public Property Set Cells(row As Long, col As Variant) As Range 'code to set the class End Property
看到这个线程的一些技巧： 设置vba类的属性与对象引用