如何使用格式化爲日期

Question

細胞COUNTIFS

對不起，再次約COUNTIFS

Dim a As String  
a = ct.Range("B4").Text ' B4 is formatted as date 
Range("C6").Value = Application.WorksheetFunction.CountIfs(rDat, a, rSec, "1") 

RDAT和RSEC定義的​​範圍（在另一片）。
rDat與ct.B4（即日期）具有相同的格式
結果我得到了「0」，但它是錯誤的。
我試圖刪除日期格式，並格式化爲文本 - 它的工作原理。
但我需要在rDat和B4中的日期格式。

Answer 1

Dim a As Date 
a = ct.Range("B4") ' do not convert B4 to text 
Range("C6").Value = Application.WorksheetFunction.CountIfs(rDat, a, rSec, "1")