excel - 在 VBA 中具有声明值的 Excel IF 函数

Question

我有一个文件，我需要通过 IF 函数来决定结果（我需要将公式与 VBA 一起使用）。我的代码如下所示，但我无法完成。

Dim WB1, ATB, Prod As Workbook
Dim Ws1, Ws2 As Worksheet
Dim Cnt1, Cnt2 As Long
Dim i, j As Long
Dim Hname As String
Dim Bdate As Variant


Set WB1 = ThisWorkbook
Set Ws1 = WB1.Sheets("Home")
Set Ws2 = WB1.Sheets("Control")
Set Ws3 = WB1.Sheets("RAW DATA")

    Bdate = InputBox("Input date in mm/dd/yyyy format")
    Bdate = Format(Bdate, "mm/dd/yyyy")
Ws3.Range("AF2").FormulaR1C1 = "=IF(RC[-22]<DATEVALUE(""07/01/2019""),""<07/01/2019"","">=07/01/2019"")"

我需要用Bdate替换07/01/2019值。

感谢您的帮助！

标签： excelvba