任何帮助将不胜感激
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
最佳答案
一些指示:
.curCell
Worksheet
的方法/属性目的。您在我希望找到 .Range
的地方使用它或 .Cells
. .Cells
时,或者实际上是 .Range
, 行和列引用都不能为 0。Long
而不是 Integer
以避免潜在的溢出。 关于excel - 收到有关应用程序定义或对象定义错误的错误,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/53798344/