Excel VBA公式與公式中的IF函數中的日期比較

Question

假設單元格A1是日期：2017年6月23日

現在在excel中，如果我將以下公式放在單元格B1中：

=  IF(INT(C2)>INT(2/15/2017);"Year1";"Year2") 

然后就可以了

但是，如果我嘗試將其認為VBA尾聲為：-

Set sht1 = xWb.Sheets("ProcessedData")
sht1.Range("B1").Select
sht1.Range("B1").Formula = _
    "=IF(INT(A1)>INT(2/15/2017);""Year1"";""Year2"")" 

它給我錯誤1004（找不到對象）。 我嘗試過CDate，但我認為這里缺少一些東西。

您能幫我解決這個問題嗎？

Answer 1

Excel是面向英語的 ，您正在使用; 在您的公式中。

所以要么改變你; 對,你的公式字符串中，如：

sht2.Range("B1").Formula = "=IF(INT(A1)>INT(2/15/2017),""Year1"",""Year2"")"

或者，如下行將Formula更改為FormulaLocal ：

sht2.Range("B1").FormulaLocal = "=IF(INT(A1)>INT(2/15/2017);""Year1"";""Year2"")"

---

注意 ：在Formula行中，我認為您打算使用sht1而不是sht2 ，因此應該是：

sht1.Range("B1").Formula = "=IF(INT(A1)>INT(2/15/2017),""Year1"",""Year2"")"