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

Question

我想使用VBA代码将一个公式和文本值放到特定的单元格中，我希望代码能够显示"Leads:(公式的值)"。目前我的代码可以运行公式并将结果放到正确的单元格中，但是我不知道如何添加文本。以下是我的代码：

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

- Brianna Cates

Answer 1

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

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

- user4039065

---

那个数字格式是做什么用的？我尝试使用它来设置一个单元格（“Lead”），但没有任何反应。 - BruceWayne

@BruceWayne - 数字格式掩码最多有四个部分（请参见此处）。反斜杠是转义字符，以防止 d 等尝试成为 day。 0 是显示数字的内容。 - user4039065

Answer 2

试试这个：

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

应用后，结果应该如下：

="Leads:(" & COUNTIF(E:E,"Lead")&")"

- Scott Craner

---

完美地工作了！非常感谢 :) - Brianna Cates