Libre Calc Basic脚本问题：单元格公式被覆盖后无法更新值

问题1：设置单元格值时覆盖原有公式 #

你当前执行cmdBtn_TakeWin宏时直接给O10赋值0，导致原公式=Coding!$AK$13被覆盖。正确思路是不修改O10本身，而是修改它依赖的源单元格Coding!AK13的值为0，这样O10的公式会自动计算出0，同时保留公式结构。

示例代码：

Sub cmdBtn_TakeWin
    Dim oDoc As Object, oSourceSheet As Object, oSourceCell As Object
    oDoc = ThisComponent
    ' 获取Coding工作表
    oSourceSheet = oDoc.Sheets.getByName("Coding")
    ' 定位AK13单元格（Libre Calc列索引从0开始，AK对应第36列；行索引从0开始，13行对应索引12）
    oSourceCell = oSourceSheet.getCellByPosition(36, 12)
    ' 设置源单元格为0，O10公式会自动同步结果
    oSourceCell.Value = 0
End Sub

如果必须临时让O10显示0后再恢复公式，需先保存原公式再操作：

Sub cmdBtn_TakeWin
    Dim oDoc As Object, oTargetSheet As Object, oTargetCell As Object
    Dim sOriginalFormula As String
    oDoc = ThisComponent
    oTargetSheet = oDoc.Sheets.getByName("O10所在工作表名") ' 替换为实际工作表名称
    oTargetCell = oTargetSheet.getCellRangeByName("O10")
    
    ' 提前保存原公式
    sOriginalFormula = oTargetCell.Formula
    ' 临时设置单元格值为0
    oTargetCell.Value = 0
    
    ' 后续需要恢复时，调用下方的恢复子过程
    ' RestoreO10Formula(oTargetCell, sOriginalFormula)
End Sub

Sub RestoreO10Formula(oCell As Object, sFormula As String)
    ' 恢复公式前重置单元格类型
    oCell.CellType = com.sun.star.table.CellType.FORMULA
    ' 恢复原公式
    oCell.Formula = sFormula
    ' 强制触发计算
    ThisComponent.calculate()
End Sub

问题2：恢复公式后单元格值不更新 #

出现这类问题通常有3种原因，对应修复方法如下：

• 单元格被设为文本格式：恢复公式前先将单元格类型改回公式/数值型
• 计算模式为手动：切换为自动计算，或强制触发全局重算
• 公式字符串语法错误：确保公式格式正确，无多余符号

修复后的恢复公式代码 #

Sub RestoreO10Formula
    Dim oDoc As Object, oTargetSheet As Object, oTargetCell As Object
    oDoc = ThisComponent
    oTargetSheet = oDoc.Sheets.getByName("O10所在工作表名") ' 替换为实际工作表名称
    oTargetCell = oTargetSheet.getCellRangeByName("O10")
    
    ' 1. 重置单元格类型为公式型
    oTargetCell.CellType = com.sun.star.table.CellType.FORMULA
    ' 2. 设置目标公式
    oTargetCell.Formula = "=Coding!$AK$13"
    ' 3. 强制触发整个文档重新计算
    oDoc.calculateAll()
End Sub

额外检查软件设置：点击工具→选项→Libre Calc→计算，确保勾选自动重算，避免手动计算模式导致的更新延迟。

内容的提问来源于stack exchange，提问作者n00dnutt