OpenOffice Calc（宏）

Question

我正在尝试在OpenOffice Calc（宏）中创建一个循环

到目前为止我已尝试过这个：

Sub Main 
    For x = 1 To 10 
        If Cells(x,1) = 50 Then
            Cells(x,1).Value = 20
        End If
    End For
End Sub

有人知道它是如何工作的吗？

Answer 1

OpenOffice Basic（StarBasic）不是VBA。如果您的代码应该在ActiveSheet中从A1运行到A10，那么在OO Basic中它将是：

Sub Main

with ThisComponent.CurrentController.ActiveSheet
 for lRow = 0 to 9
  if .getCellByPosition(0, lRow).value = 50 then
   .getCellByPosition(0, lRow).value = 20
  endif
 next
end with

End Sub

初学者的一些链接： https://wiki.openoffice.org/wiki/Extensions_development_basic 尤其是推荐使用XRAY工具。

https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide 那你的具体问题： https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Cells_and_Ranges

问候

阿克塞尔