如何通过 VBA 在带有“-”或“$”等特殊字符的单元格中插入公式？

Question

我在互联网上搜索，没有任何帮助... 我只是希望能够让我的 VBA 代码在单元格中编写此公式：

=IF(C4="-"; "-"; Cars!C4*C4*Data!$C$8)

如您所料，有一个名为“汽车”的页面和一个名为“数据”的页面，我在其中选择所需的信息。

当然，因为它是 VBA 代码，所以 C4 将是 2 个变量，一个用于 C，一个用于 4 将进化... 实际上，我试过这个：

Worksheets("Calculation").Range(Column & PosStartCalc + 1).Formula = "=" & "IF(" & Column & PosStartCalc & " = " & "" - "" & ";" & " - " & ";" & "Cars!" & Column & PosStart & "*" & Column & PosStartCalc & "*" & "Data!" & "C" & "8" & ")"

（变量Column包含列字母，变量PosStartCalc包含行号）

这伤害了我的眼睛，显然也伤害了 VBA 的眼睛，因为它给出了错误“运行时错误'13'：类型不匹配' 谁能告诉我该怎么做？

提前致谢！

Answer 1

假设 column 变量是字符串，row 变量是 long 变量，请尝试以下操作。我可能没有正确设置所有变量，但您将能够理解我的意思。

Sub test()

Dim Col As String: Col = "C"
Dim Rw As Long: Rw = 4

With ThisWorkbook.Sheets("Calculation")
    Debug.Print "=IF(" & Col & Rw & "=""-"",""-"",Cars!" & Col & Rw & "*" & Col & Rw & "*Data!$C$8)"
    .Cells(Rw + 1, Col).Formula = "=IF(" & Col & Rw & "=""-"",""-"",Cars!" & Col & Rw & "*" & Col & Rw & "*Data!$C$8)"
End With

End Sub

因此，您可能很容易忘记在 VBA 编程公式中使用 , 作为参数分隔符。当您将其放在工作表上时，Excel 会自动将其替换为您所在地区的适当分隔符。

要记住的另一件事；每当您要在此类函数中使用字符串值时，请不要忘记将其用双引号括起来！

不要忘记删除 Debug.print .... 行。它只是在那里显示输出:)