excel - 收到有关应用程序定义或对象定义错误的错误

Question

任何帮助将不胜感激

Sub changeRange(startRange As Integer, endRange As Integer, rowNum As Integer, col As Integer)

    Select Case col
        Case 5
            ThisWorkbook.Sheets("Campus Summary #").Cells(rowNum, col).Formula = "=COUNTIF('TCP Export'!L" & startRange & ":L" & endRange & ", '>0')"
        Case 7
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!MstartRange:MendRange, '>0')"
        Case 9
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!NstartRange:NendRange, '>0')"
        Case 11
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!OstartRange:OendRange, '>0')"
        Case 13
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!PstartRange:PendRange, '>0')"
        Case 15
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!QstartRange:QendRange, '>0')"
        Case 17
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!RstartRange:RendRange, '>0')"
        Case 19
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!SstartRange:SendRange, '>0')"
        Case 21
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!TstartRange:TendRange, '>0')"
        Case 23
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!UstartRange:UendRange, '>0')"
        Case 25
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!VstartRange:VendRange, '>0')"
        Case 27
            Worksheets("Campus Summary #").curCell.Formula = "COUNTCase('TCP Export'!WstartRange:WendRange, '>0')"
    End Select

End Sub

Answer 1

一些指示:

我发现您的错误最初令人困惑，因为没有 .curCell Worksheet 的方法/属性目的。您在我希望找到 .Range 的地方使用它或 .Cells .

使用 .Cells 时，或者实际上是 .Range , 行和列引用都不能为 0。

在作为整数传递的变量名称中包含范围是一种误导。

最后，你想要 Long而不是 Integer以避免潜在的溢出。