Libreoffice calc: макрос сквозных ячеек

Я много искал, но практически не нашел информации о 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 понятия не имею.

Может кто-нибудь мне помочь.

Спасибо, Бруно


macros libreoffice libreoffice-calc libreoffice-basic
person Newbie    schedule 25.10.2013    source источник

Ответы (2)


arrow_upward
16
arrow_downward

Мне удалось найти ответ так:

dim cell as object
dim i as integer

i = 0
cell = Sheet.getCellByPosition(i,0)

while Cell.Type <> com.sun.star.table.CellContentType.EMPTY
    i = i+1
    cell = Sheet.getCellByPosition(i,0)
wend

Когда цикл заканчивается, я получаю переменную i, которая соответствует номеру столбца. Затем я могу преобразовать его в букву так же, как в excel (функции chr)

person Newbie    schedule 26.10.2013

arrow_upward

arrow_downward

person    schedule
comment
Хотя этот код может решить вопрос, включение объяснения действительно помогает улучшить качество вашего поста. Помните, что вы отвечаете на вопрос для читателей в будущем, и эти люди могут не знать причины вашего предложения кода. - person Muhammad Dyas Yaskur; 15.02.2021