excel - VBA函数将公式插入到单元格中，并嵌入了另一个vba函数

Question

我有一个单元格，我想放置一个 If 函数。如果所选单元格范围的平均值> = 2，if函数将显示1，否则为0。我想做一个vba，要求您选择范围组，然后将公式放在单元格上，不是价值。这样，如果所选单元格组的平均值发生变化，更新后的单元格也会发生变化。我试过这样做，但最终出现#value 错误。任何帮助表示赞赏

Sub update()
    Dim siteRange As Range
    ActiveCell.Select
    If MsgBox("Would you like to update?", vbYesNo, "Update") = vbYes Then
        Set siteRange = Application.InputBox("Select a range with the " & _
            "appropraite sites.", "Sites", Type:=8)
        ActiveCell.Value = "=If(Average(siteRange)>=2,1,0)"
    Else
    End If
End Sub

标签： excelvba

Answer 1

siteRange是一个范围对象，但您将其视为已定义的名称。将范围对象的地址连接到公式中。

ActiveCell.Formula = "=If(Average(" & siteRange.address & ")>=2, 1, 0)"