Подфункция или функция Процедура не определена

Question

Я пишу свой первый макрос для Libre Office прямо сейчас, и у меня возникла небольшая проблема: мой код выдает ошибку: BASIC Runtime error; Процедура суб- или функции не определена.

Строка с «If Cells (RowCnt, ChkCol ......) выдает ошибку. Я просмотрел другие записи здесь, но я не смог найти ошибку ... может кто-нибудь помочь ? я

REM ***** BASIC ***** 

Sub Zeilennausblenden_Nullsummen 
BeginRow=4 
EndRow = 46 
ChkCol= D 

For RowCnt = BeginRow To EndRow step 1 
    If Cells(RowCnt,ChkCol).Value > 1 Then 
     Cells(RowCnt,ChkCol).EntireRow.Hidden = True 
    End if 
Next 
End Sub 

PS: функция должна скрыть все строки, в которых целое число выше, чем «1» в колонке «D»

заранее спасибо

Answer 1

Вот что код выглядит в LibreOffice Basic (ака StarBasic):

Sub Zeilennausblenden_Nullsummen 
    BeginRow=4 
    EndRow = 46 
    ChkCol= 3 
    oSheet = ThisComponent.Sheets(0) 
    For RowCnt = BeginRow To EndRow step 1 
     oCell = oSheet.getCellByPosition(ChkCol,RowCnt) 
     If oCell.Value > 1 Then 
      oRow = oSheet.getRows().getByIndex(RowCnt) 
      oRow.IsVisible = False 
     End if 
    Next 
End Sub 

Я не был уверен, что если BeginRow должно быть 3 или 4, потому что это с нуля. Вы можете проверить это и решить.

Обратите внимание, что для выполнения этой задачи макрос не требуется. Самый простой способ - перейти к Data -> More Filters -> Standard Filter.

Answer 2

это потому, что CELLS не Функция StarBasic.

Это VBA (другой язык программирования). Некоторые версии OpenOffice поддерживают его использование, если оператор (Option VBASupport 1) помещается в первую строку исходного кода.

Проверьте подлинность документа «Макросы OpenOffice, написанные Эндрю Питоньяком», который отлично подходит для изучения и доступен в немецком переводе.