excel - 特定单元格中的 VBA 公式和文本

Question

我正在尝试使用一些 vba 代码将公式和文本的值放入特定单元格中。我希望代码显示 Leads:(公式的值)。目前，我的代码运行公式并将值放入正确的框中。我只是不知道如何添加文本。我的代码写在下面。

ws.Range("$B$1").Formula = "=COUNTIF(E:E,""Lead"")"

Answer 1

自定义Range.NumberFormat property将为您提供显示的结果，同时将实际原始值保留为数字形式，以便进一步计算或比较。

with ws
    with .range("B1")    '<~~ no need for absolute $ anchors here
        .formula = "=COUNTIF(E:E,""Lead"")"
        .numberformat = "[=1]L\e\a\d\: 0;L\e\a\d\s\: 0"
    end with
end with