Pergunte aqui
1

Numeração de linhas Calc LibreOffice

perguntadas 2014-09-25 18:42:16 +0200

esta mensagem está marcada como wiki comunitário

Esta mensagem é um wiki. Qualquer pessoa com karma >75 é bem-vinda para a melhorar.

Boa tarde, Galera!

Estou com uma duvida em como fazer a numeração de linhas, exemplo:

Preciso numerar a coluna A1 de 1 a 100.000, tem como fazer de maneira automática?

Agradeço a atenção!

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

3 Respostas

2

respondidas 2014-09-25 19:59:37 +0200

imagem do gravatar de Olivier

Selecione o intervalo 1 a 100.000 e acione Editar - Preencher - Series... e escolha Linear, sem indicar o valor final.

editar assinalar como ofensivo Excluir Link mais

Comentários

Muito Obrigado Olivier, salvou minha vida!! Vou ter que fazer de 100.000 até 1.000.000 para fazer alguns testes aqui e sua dica foi de enorme ajuda!!

imagem do gravatar de rafaelecrafaelec ( 2014-09-25 21:10:14 +0200 )editar
0

respondidas 2019-09-26 16:25:51 +0200

imagem do gravatar de vitor alves

updated 2019-09-26 16:32:38 +0200

Para quem quiser uma macro para enumerar a partir de uma célula até a ÚLTIMA LINHA USADA e adicionar em um botão, segue abaixo uma que pode ajudar:

SUB ENUMERAR
dim primeiraCelula as string, oColuna as string, nomePlanilha as string
dim iniciarNumero as integer
dim oCel as object, oCel2 as string
Dim oCurs As object
Dim LastRow&

primeiraCelula = "A7" 'nome da primeira celula'
oColuna = "A" 'nome da coluna para enumerar'
nomePlanilha = "ALFA" 'nome da planilha a enumerar'
iniciarNumero = 1 'numero para iniciar a enumeracao'
oCel2 = "B7" 'selecionar celula apos a enumeracao'

oCurs = ThisComponent.Sheets.GetByName(nomePlanilha).createCursor()
oCurs.gotoEndOfUsedArea(False)
LastRow = oCurs.getRangeAddress().EndRow + 1

oCel = ThisComponent.Sheets.getByName(nomePlanilha).getCellRangeByName(primeiraCelula)
oCel.setValue(iniciarNumero)
rem define variables
dim document   as object
dim dispatcher as object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = primeiraCelula
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "EndCell"
args3(0).Value = "" & oColuna & "" & LastRow & ""
dispatcher.executeDispatch(document, ".uno:AutoFill", "", 0, args3())

dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = oCel2
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

end sub

Preencher apenas o dados iniciais (primeiraCelula, oColuna, nomePlanilha, iniciarNumero, oCel2)

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2018-02-28 23:16:30 +0200

Valeu Oliver. Muito obrigado por esta dica tão boa. Um grande abraço!!

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2014-09-25 18:42:16 +0200

Lidas: 2,535 vezes

Última atualização: Sep 26