Pergunte aqui
0

Macro cria colunas automáticas (desoculta colunas). Como resolver?

perguntadas 2020-07-07 17:00:31 +0200

updated 2020-07-09 17:54:02 +0200

imagem do gravatar de Schiavinatto

Olá a todos!

Estou tendo um grande problema ao usar Macro no Calc do LibreOffice. Tenho uma planilha com diversas abas e inseri uma macro para que ao abrir o arquivo, abrisse em um aba específica. O problema é que a macro até funciona, mas todas as vezes que abro o meu arquivo, são criadas/desocultadas colunas das outras abas, desconfigurando o meu arquivo. Mesmo que eu oculte novamente as colunas que são desocultadas, ao salvar e fechar o arquivo, ocorre novamente.

Isso já ocorreu com 2 macros que peguei aqui no próprio site, e também na que criei. Isso é comum com macros no LibreOffice?

Macro 1 utilizada (https://ask.libreoffice.org/pt-br/que...):

Sub AbaMenu()
ThisComponent.CurrentController.SetActiveSheet(ThisComponent.Sheets.GetByName("NOME DA ABA"))
End Sub

Macro 2 utilizada (https://ask.libreoffice.org/pt-br/que...):

'================================================|
sub IrPara 
'================================================|
Dim document As Object, 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 = "NOME DA ABA.A4"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
end sub

Macro Criada por mim:

sub Inicio
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "DbName"
args1(0).Value = "NOME DA ABA"

dispatcher.executeDispatch(document, ".uno:SelectDB", "", 0, args1())

end sub
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @Railton dos Santos Vasconcelos, edite sua pergunta e adicione as macros.

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-07-07 17:32:23 +0200 )editar

3 Respostas

0

respondidas 2020-07-07 19:09:59 +0200

imagem do gravatar de Schiavinatto

Use a Macro 2, dei uma limpada.

Sub IrPara 
'================================================|
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "Plan1.A1"
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1())
End Sub

Em "Plan1.A1", troque pelo nome de sua aba e a célula A1.

Eu uso normalmente célula A1, para garantir que mostre a página sempre no começo.

-----------------------------------------------------------------------------

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Não use Adicionar resposta para comentário. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais

Comentários

Boa tarde! Obrigado pela resposta, utilizei a macro que me passou, mas o problema acaba persistindo quando salvo e fecho a planilha. Definitivamente não sei o que ocorre com as demais abas. Várias colunas que oculto por não usá-las, acabam sendo reexibidas quando reabro o arquivo. A macro funciona, como disse todas elas funcionam, inclusive a que me passou, mas não entendo o porquê das colunas serem reexibidas.

imagem do gravatar de Railton dos Santos VasconcelosRailton dos Santos Vasconcelos ( 2020-07-07 22:47:23 +0200 )editar

Ola @Railton dos Santos Vasconcelos, poste um arquivo exemplo, ou se preferir envie direto para mim, veja aqui: https://wiki.documentfoundation.org/U..., sigilo garantido.

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-07-07 23:45:42 +0200 )editar
1

respondidas 2020-09-17 16:23:22 +0200

Schiavinatto, agradeço-lhe muito pela ajuda na macro de ocultar as colunas, mas, infelizmente, tive que abandoná-la. Há abas na minha planilha que possuem equações muito grandes, e usar a macro estava fazendo com que na hora de abrir o arquivo demorasse mais de 4 min. Tive que aplicar uma formatação de preenchimento de cor na primeira linha de todas as planilhas... formatação essa até última coluna. E depois ocultei as colunas não utilizadas. Fazendo isso, as colunas ocultas não estão sendo mais reexibidas. Esse problema passou a ocorrer nas últimas versões do LibreOffice.

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2020-09-02 23:01:29 +0200

imagem do gravatar de Jedison

updated 2020-09-17 15:58:43 +0200

Também observei esse problema a partir da versão 6.4 do LibreOffice. Também uso macros nas minhas planilhas, mas acho que não é isso que faz reaparecer as colunas ocultas, porque em planilhas que não as uso, colunas ocultas também reaparecem (no meu caso, geralmente a partir da coluna BC). Parece que se houver conteúdo em alguma das colunas ocultas ela não será reexibida, testei e observei isso. Mas como o problema acontece de forma aparentemente aleatória, é difícil dizer se é isso mesmo. Tomara que alguém aqui saiba resolver.

ATUALIZAÇÃO: Aparentemente esse erro está associado ao tratado em https://ask.libreoffice.org/pt-br/que... pois depois que resolvi aquele erro (eliminando todos as sequências de espaços em branco dos textos de AJUDA PARA ENTRADA DE DADOS da minha planilha, as colunas pararam de reaparecer à cada edição do arquivo.

editar assinalar como ofensivo Excluir Link mais

Comentários

Ola @Jedison, na planilha do Railton fiz uma macro que é acionada na abertura e ele oculta as colunas em todas as planilhas, caso queira contato direto veja acima no Comentário.

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-09-03 00:01:10 +0200 )editar

Grato, Schiavinatto. Respondi-lhe no outro post.

imagem do gravatar de JedisonJedison ( 2020-09-03 16:41:32 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2020-07-07 17:00:31 +0200

Lidas: 41 vezes

Última atualização: Sep 17