在 VBA Excel 中根据公式分配变量

Question

我正在尝试做一个简单的宏，它运行一个公式并将其显示在消息框中。现在我有：

Sub basic_messagebox()
    Dim CAT1 As Integer
    MsgBox "The total number of possible Cat I: " & CAT1
End Sub

我没有为 CAT1 设置值。基本上我需要它来运行公式=COUNTIF(F2:F1000,"x")并将其设置为变量 CAT1。我在 Google 上搜索过，但我发现的大多数内容只是人们试图使用宏在单元格中设置公式，这与我需要的正好相反。

我需要在我的 msgbox 公式中添加什么才能将上述公式设置为变量 CAT1？

Answer 1

怎么样：

Sub basic_messagebox()
    Dim CAT1 As Integer
    CAT1 = [COUNTIF(F2:F1000,"x")]
    MsgBox "The total number of possible Cat I: " & CAT1
End Sub