libreoffie 计算宏粘贴公式

Question

我想要一个宏来粘贴标准 Libreoffice 公式。 公式为：

=IF(D13<>"",VLOOKUP(E13, $Jnr_ranking_processor.$C$11:$G$50, 5, 0),"")

我有一个表单控制按钮来触发下面的宏。

Sub AssignFormulaToCell
' Source: https://help.libreoffice.org/latest/en-US/text/sbasic/shared/calc_functions.html
REM Add a formula to cell I13. Function name must be in English.
    oCell = ThisComponent.Sheets.getByIndex(0).getCellRangeByName("I13")
    oCell.Formula = "=IF($D13<>"",VLOOKUP($E13, $Jnr_ranking_processor.$C$11:$G$50, 5, 0),"")"
REM Cell I13 displays the localized function name
End Sub

按下按钮时，I13 报告“TRUE”，为什么？使用宏之前的“原始”论坛给出了实际的查找值。

该宏需要粘贴到I13到I43。如何使宏在 vlookup 中的 D 和 E 行与要粘贴宏的行相同。当然，不可能写入有效的 20 个宏，每个宏都有一个手动调整的行。 {我不知道如何在公式中编写带有可迭代对象的 for 循环。}

感谢您提供的任何帮助/建议。

Answer 1

请问您使用的是 Libre Calc 的哪个版本？我有类似的问题，但 .Formula 方法无法识别。

非常感谢