如何将单元格而不是单元格的值传递给 LibreOffice 函数？答案

【问题标题】：How to pass in a cell, not a cell's value, to LibreOffice function?如何将单元格而不是单元格的值传递给 LibreOffice 函数？
【发布时间】：2014-03-04 14:53:15
【问题描述】：

我希望用户能够选择单元格，然后让我的函数对这些单元格进行操作。

我该怎么做？ "ByRef" 和 "as Object" 似乎做对了，但是 Excel/{Libre,Open}Office 拒绝函数调用，因为用户的输入不是对象。

有没有办法找出为要运行的函数选择了哪些单元格？

即使我必须执行诸如查找调用单元格的地址之类的操作，然后向后查找输入到该单元格中的单元格名称，这也可能有效。我愿意接受任何让我的用户像普通函数一样编写这个函数的解决方案，并且让这个函数能够修改选定的单元格。这就是我要说的：

Function SIMVOL( rF, ByRef mX, mY, cR, cS ) ' or Function SIMVOL(...mX as Object...)
    mX.value() = 10
    SIMVOL = mX.value() * mY
End Function

【问题讨论】：

不知道 {Libre,Open}Office ，但在 excel 中您不能使用 UDF 修改单元格内容（以正常方式）
我已经能够从文档对象中硬核地址和查找单元格引用。但是要将单元格作为参数，我的用户必须键入“A1”、“B1”等，而且他们无法用鼠标选择单元格 - 因为这些选择会解析为数据而不是地址。

标签： excel libreoffice libreoffice-calc vba

【解决方案1】：

这是一个改编自 Andrew Pitonyak's OpenOffice Macro document 的示例。它应该让你朝着正确的方向前进。

Sub DivideSelectionByTen()
  REM Divide the current selection by 10
  Dim oData()
  Dim oRow()
  Dim i As Integer
  Dim j As Integer

  Dim oRange As object
  Dim dDivisor As Double

  oRange = ThisComponent.getCurrentController().getSelection()

  dDivisor = 10

  oData() = oRange.getDataArray()
  For i = LBound(oData()) To UBound(oData())
    oRow() = oData(i)
    For j = LBound(oRow()) To UBound(oRow())
      oRow(j) = oRow(j) / dDivisor
    Next
  Next
  oRange.setDataArray(oData())
End Sub

【讨论】：