VBA如何将整数传递给范围值

Question

我正在尝试通过以下方式简化此功能

Public Sub freezeRow(sheetAct, sheetType As String, sheetRow As Integer)

sheetAct.Activate    'Activate sheet
ActiveWindow.FreezePanes = False 'Unfreeze all rows

Select Case sheetType
    Case "Sum"
        'Freeze the Summary spread sheet after row 9
        sheetAct.Range("10:10").Select

    Case "Data"
        'Freeze the Summary spread sheet after row 2
        sheetAct.Range("3:3").Select
End Select

ActiveWindow.FreezePanes = True 'Freeze selected rows

End Sub

像这样

Public Sub freezeRow(sheetAct, sheetType As String, sheetRow As Integer)

sheetAct.Activate    'Activate sheet
ActiveWindow.FreezePanes = False 'Unfreeze all rows

sheetAct.Range("sheetRow:sheetRow").Select


ActiveWindow.FreezePanes = True 'Freeze selected rows

End Sub

我似乎无法删除范围中的引号，当我运行它时，它会抛出一些模糊的错误

Answer 1

我喜欢一直使用 Cells()，因为它更明确(无论如何对我来说)

sheetAct.Range("sheetRow:sheetRow").Select

与

With sheetAct
    .Range(.Cells(sheetRow,1),.Cells(sheetrow,1)).EntireRow.Select
End with

或者，只需使用 sheetAct.Range(sheetRow & ":"& SheetRow).Select

但是为什么要使用.Select？您可以work around using .Select这是最佳实践。 (当然，如果您使用它来仔细检查是否具有正确的范围，那就没问题。只是在处理数据时要小心)。