excel - 将带有变量的公式添加到事件单元格

Question

我想向 ActiveCell 添加一个公式。该公式应包含 2 个变量，一个是字符串，另一个是范围。

IE。

x = "This is my string variable"

y = cell.Address

我正在尝试实现以下目标:

ActiveCell.Formula = "=" & x & y

单元格应包含字符串变量和包含地址的变量的值。行为应该与我键入 ="Some string"&$a$1 相同。进入一个单元格。

Answer 1

您需要将变量 x 放在引号中，并添加 & 符号，如下所示:

ActiveCell.Formula = "=" & Chr(34) & x & Chr(34) & "&" & y

另一种方法是双引号:

ActiveCell.Formula = "=""" & x & """&" & y

这是对该部分的一个很好的答案:
How do I put double quotes in a string in vba?

更新了 Y 周围的括号，以及一些变量以使其更容易阅读:

    Sub Blah()
    Dim strText As String
    Dim strCellRef As String
    Dim strDoubleQuotes As String

    Dim strSpace As String

        strText = "This is my string variable"
        strCellRef = "$A$1"

        strDoubleQuotes = Chr(34)
        strSpace = " "

       ActiveCell.Formula = "=" & strDoubleQuotes & strText & strSpace & _
                        strDoubleQuotes & "&" & strDoubleQuotes & "(" & strDoubleQuotes & "&" & strCellRef & "&" & strDoubleQuotes & ")" & strDoubleQuotes

    End Sub