[已解决]为什么这里的COUNTIF无效？

lingyuncelia1

Sub celia()
For i = 1 To 2
If TimeValue("6:0:0") < Cells(i, 1) < TimeValue("7:0:0") Then
MsgBox "ok"
End If
mycount = Application.WorksheetFunction.CountIf(Columns("a:a"), TimeValue("6:0:0") < Cells(i, 1) < TimeValue("7:0:0"))
If mycount >= 1 Then MsgBox "pass"
Next
End Sub
为什么红体字代码运行无效？

最佳答案

月排行榜 / 总排行榜

xdragon

2016-4-23 18:09

Sub celia()
For i = 1 To 2
If TimeValue("6:0:0") < Cells(i, 1) and cells(i,1)< TimeValue("7:0:0") Then
MsgBox "ok"
End If
mycount = Application.WorksheetFunction.CountIfs(Columns("a:a"), ">"&TimeValue("6:0:0"),Columns("a:a"), "<" & TimeValue("7:0:0"))
If mycount >= 1 Then MsgBox "pass"
Next
End Sub

跳转到最佳答案楼层

蝶·舞

表示一个数字在另二个数字区间内的表达式根本不是这么写的，不管公式还是在VBA中

xdragon

首先。。。要选择在两个时间之间不能用数学表达式 a<x<b
这样表示的，必须要分开，把他变成程序能解读的代码： a<x and x<b
在你的countif 里 则是要改成countifs函数。。。

xdragon

Sub celia()
For i = 1 To 2
If TimeValue("6:0:0") < Cells(i, 1) and cells(i,1)< TimeValue("7:0:0") Then
MsgBox "ok"
End If
mycount = Application.WorksheetFunction.CountIfs(Columns("a:a"), ">"&TimeValue("6:0:0"),Columns("a:a"), "<" & TimeValue("7:0:0"))
If mycount >= 1 Then MsgBox "pass"
Next
End Sub