page52
COMO FAZER | tutorial
REM ***** BASIC *****
Global NumRows as Integer 'número da ultima linha
' INSERE UMA FÓRMULA NA ÚLTIMA LINHA DA COLUNA ITEM
Sub InsereNumero ()
Call DescobreUltimaLinha ()
Sheet = ThisComponent.CurrentController.ActiveSheet
oCell = Sheet.getCellByPosition(0, NumRows)
oCell.Formula = "=CELL("&"""ROW"""&") - 1"
End Sub
' MOSTRA O TOTAL DE LINHAS USADAS, NÃO IGNORA LINHAS EM BRANCO NO INTERVALO
Sub DescobreUltimaLinha ()
Sheet = ThisComponent.CurrentController.ActiveSheet
Curs = Sheet.createCursor
Curs.gotoEndOfUsedArea(True)
NumRows = Curs.Rows.Count
End Sub
Após compilar e salvar a macro e a planilha, vamos atribuir para a macro InsereNumero à combinação de teclado Alt+Z.
Abre-se a caixa de dialogo Personalizar.
Vá em Ferramentas > Personalizar.
Na aba Teclado localize a combinação Alt+Z.
Em Funções, localize Macros do LibreOffice.