Excel 将IF和工作日公式转换为vba

我需要帮助将以下函数更改为VBA代码。这将是更大代码的一部分

IF((WEEKDAY($B12)=7),$I12,"")

---

可能有5种以上的方法来做你想做的事情，这取决于你到底需要什么。其中一种方法是构建一个简单的自定义公式，如下所示：

Public Function changingIfAndWeekday() As Variant

    Application.Volatile

    If Weekday(Range("B12")) = 7 Then
        changingIfAndWeekday = Range("I12")
    Else
        changingIfAndWeekday = ""
    End If

End Function

---

您也可以这样做（如果您想要单元格C12上的结果）：

---

您也可以这样做（如果希望得到变量的结果）：

Sheet1.range("C12").value = "=IF(Weekday(Sheet1.range("B12").value = 7),Sheet1.range("I12").value,"")

Variable = "=IF(Weekday(Sheet1.range("B12").value = 7),Sheet1.range("I12").value,"")