为什么 Application.Worksheetfunction.Countifs 没有 return 值？

Question

Dim SJtempARTIST, SJtempSTATION, SJtempADD, SJtempSPINS, targetCELL As Range
Dim stationARTIST, stationSTATION As String

Sheets("STATIONS").Select
For RARTSTAT = 2 To lrARTSTAT1

stationARTIST = Worksheets("STATIONS").Cells(1, cARTIST)
stationSTATION = Worksheets("STATIONS").Cells(RARTSTAT, 2)
Set SJtempARTIST = Worksheets("TEMPDB").Range("A1:A" & lrSJIMPORT2)
Set SJtempSTATION = Worksheets("TEMPDB").Range("C1:C" & lrSJIMPORT2)
Set SJtempADD = Worksheets("TEMPDB").Range("F1:F" & lrSJIMPORT2)
Set SJtempSPINS = Worksheets("TEMPDB").Range("E1:E" & lrSJIMPORT2)
Set targetCELL = Sheets("STATIONS").Cells(RARTSTAT, cARTIST)

checkRECORD = Application.WorksheetFunction.CountIfs(SJtempSTATION, _
stationSTATION, SJtempARTIST, stationARTIST)
checkADD = Application.WorksheetFunction.CountIfs(SJtempSTATION, _
stationSTATION, SJtempARTIST, stationARTIST, SJtempADD, 1)
checkSPINS = Application.WorksheetFunction.SumIfs(SJtempSPINS, _
SJtempSTATION, stationSTATION, SJtempARTIST, stationARTIST)
checkX = InStr(1, LCase(targetCELL), "x")
checkADD = InStr(1, LCase(targetCELL), "add")

大家好。那么这里是代码的一部分。变量 checkADD returns 值 0 虽然显然它不应该，因为其余变量正确返回值。不管怎样，这里有更多信息：

checkRECORD 找到并正确计数 1 条记录。 checkADD 也应该如此，因为它使用相同的方法和一个标准并且范围更多（因为 F1:F 列值可以是 0 或 1，我想计算 1`s）。

我试过用 SUMIFS 来做，但还是算不了什么。我检查了范围，检查了标准，一切都很好！我试过没有变量（全范围）但没有运气。

所以问题是...为什么 COUNTIFS 在这里不起作用？

提前致谢

Answer 1

抱歉大家耽误了时间，错误是我的错....

checkADD = Application.WorksheetFunction.CountIfs(SJtempSTATION, _
stationSTATION, SJtempARTIST, stationARTIST, SJtempADD, 1)
checkSPINS = Application.WorksheetFunction.SumIfs(SJtempSPINS, _
SJtempSTATION, stationSTATION, SJtempARTIST, stationARTIST)
checkX = InStr(1, LCase(targetCELL), "x")
checkADD = InStr(1, LCase(targetCELL), "add")

我两次命名 checkADD 变量。估计来不及了，我该休息一下了...

为什么 Application.Worksheetfunction.Countifs 没有 return 值？

Why Application.Worksheetfunction.Countifs doesn`t return value?

variables

excel

vba

worksheet-function

sumifs