在vba公式中使用字符串元素

Question

我很难用vba将公式写入单元格。 我双引用字符串并尝试了不同的组合，但我仍然得到Application-defined or object-defined error.

我目前在VBA中使用的公式：

ws_conf.Range("A60").Formula = "=IF(Veraltete_Ratings!A11="""";""""; ""-   "" & Veraltete_Ratings!C11 & "" ("" & Veraltete_Ratings!B11& ""):"" & Veraltete_Ratings!AD11 & "" (vorher "" & VLOOKUP(Veraltete_Ratings!B11;Datenbank!B:BC;54;FALSE) & "")"")"

Excel中的原始公式：

=IF(Veraltete_Ratings!A11="";""; "-   " & Veraltete_Ratings!C11 & " (" & Veraltete_Ratings!B11& "):" & Veraltete_Ratings!AD11& " (vorher " & VLOOKUP(Veraltete_Ratings!B11;Datenbank!B:BC;54;FALSE) &")")

很高兴得到任何帮助。

Answer 1

请参阅以下链接，了解有关在Excel中使用VBA宏编写公式的详细信息

https://www.excelcampus.com/vba/writing-formulas-with-macros/

请参考下面的示例，希望这可以帮助您了解修改代码的想法。

注意：下面的示例不适用于您的工作簿

Option Explicit

    Sub Formula_Property()

      'Formula is a string of text wrapped in quotation marks
      'Starts with an = sign
      Range("B10").Formula = "=SUM(B4:B9)"

    End Sub


    Sub Macro10()
    '
    ' Macro10 Macro
    '

    '
        Range("B14").Select
        ActiveCell.FormulaR1C1 = _
            "=IFERROR(VLOOKUP(R[-10]C[-1],Table!R2C10:R370C11,2,FALSE),"""")"
        Range("B15").Select
        ActiveCell.FormulaR1C1 = "=""Total Sales: "" & TEXT(R[-5]C,""$#,###"")"
        Range("B14").Select
    End Sub