macros - Libreoffice calc: セル マクロをループする

Question

私はたくさん検索してきましたが、LibreOffice Basicに関する情報はほとんどまたはまったく見つかりませんでした

私はExcelでマクロをプログラミングすることに少し慣れていますが、今回は最初の空の列に到達し、libreofficeにある必要があるまでループを実行する必要があります.

Excelでは、次のようなことをします：

Dim i As integer

i = 0
Range("A1").Select
While cell.Offset(0, i).Value <> Null
    i = i + 1
Wend
MsgBox ("First empty column is " & Chr(i + 64))

しかし、libreofficeではわかりません。

誰でも私を助けることができますか？

ありがとう、ブルーノ

Answer 1

rem I had a similar problem to solve.
rem Update for libreoffice 7.
rem Replaced "sheet" with "ThisComponent.Sheets(0)". 
rem Thanks.


sub main 
dim cell   as object
dim i      as integer

i = 0
rem "sheet" alone does not run
cell = ThisComponent.Sheets(0).getCellByPosition(i,0) 

while Cell.Type <> com.sun.star.table.CellContentType.EMPTY
    i    = i+1
    cell = ThisComponent.Sheets(0).getCellByPosition(i,0)   
wend
MsgBox( i )
end sub