0

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

我怎么做？“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
4

1 回答 1

0

这是一个改编自Andrew Pitonyak 的 OpenOffice 宏文档的示例。它应该让你朝着正确的方向前进。 

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
于 2014-05-07T23:20:34.400 回答