从LibreOffice Calc中的脚本引用当前单元格

Question

function myCell() As String
    Dim oService As Object
    oService = createUnoService("com.sun.star.sheet.FunctionAccess")
    myCell = oService.callFunction("CELL",Array("ADDRESS"))
end function

=MyCell()

它将始终返回$A$1，但我需要获得$B$2。

怎么啦？如何实现这一点？

Answer 1

这是办不到的。这有几个原因。

1. 您的想法“此工作表上的一个函数会改变电子表格中其他地方的一些东西”与电子表格的一个概念相矛盾--“一个函数的结果只能改变写入此函数的单元格”。现在，这只针对当前工作表实现--当前工作表的内容在重新计算函数时被阻塞。但是，您必须做好准备，在下一个版本中，禁止可以扩展到当前书的所有页（也可能扩展到所有打开的书），并且您的算法将停止工作。还不知道是否会这样做，但不值得冒这个险。
2. 没有任何机制允许您从代码中获取关于“调用方”、关于启动代码的对象的附加信息--函数在开始执行之前必须通过输入参数接收所有必要的信息。（此限制不适用于子程序）。
3. 没有任何机制允许您从代码中获取关于“调用方”、关于启动代码的对象的附加信息--函数在开始执行之前必须通过输入参数接收所有必要的信息。（此限制不适用于子程序）。
4. 执行函数的结果是一个值--数字、字符串、数字或字符串数组、对象引用、结构或用户定义的类型。如您所见，此列表中没有“单元格背景颜色”值。

既然我已经列出了为什么不能这样做的主要原因（这远远不是全部），我将展示几个“肮脏的黑客”如何不这样做。

null

Function setBkColorTo(cellAddress as String, nColor As Long) As String
Dim oSheets As Variant
Dim oCellRangesByName As Variant
Dim i As Long 
    setBkColorTo = "Wrong data!"
    On Error GOTO WrongData
    oSheets = ThisComponent.getSheets()
    oCellRangesByName = oSheets.getCellRangesByName(cellAddress)
    For i = LBound(oCellRangesByName) To UBound(oCellRangesByName)
        oCellRangesByName(i).CellBackColor = nColor
    Next i
    setBkColorTo = "Colorized '" + cellAddress + "'"
    Exit Function
WrongData:

End Function