Использование строковых элементов в формуле 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

См. Ссылку ниже, чтобы узнать больше о Написание формул с макросами VBA в Excel

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