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"")"