Pergunte aqui
1

Célula perdendo a Formatação

perguntadas 2019-02-26 21:35:05 +0200

imagem do gravatar de Marco Salles

Boa Tarde

Tenho uma Planilha onde tenho formatação nas células

Preciso atraves de Macro passar um valor desta Variáveis para a Célula

  oPlan.getCellRangeByName("G12").String =  Variaveis_Globais.eValorA

porém a célula fica sem a formatação de MOEDA .... Como fazer para manter a formatação

Obg

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

A célula que recebe já esta formatada ?

ou

Usar Copiar e Colar ?

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-02-26 21:47:47 +0200 )editar

Gilberto boa noite

Obrigado

Esses Valores vem atraves de Macro

Eu passo o valor de uma célula para uma variavel de uma Planilha

e depois jogo essa variavel para a célula correspondente de outra planilha

'Pegar o valor do campo de uma célula de uma planilha

Variaveis_Globais.eValorA = oPlan.getCellRangeByName("G12").String

' Agora ja estou com outra Planilha Ativa e uero recuperar este Valor

  ' Atribui  o valor da variavel para a Célula de outra planilha ATIVA
oPlan.getCellRangeByName("G12").String =  RetornarNumero(Variaveis_Globais.eValorA)

Mas perde a formtação e ate a definicao dos DADOS

obg

imagem do gravatar de Marco SallesMarco Salles ( 2019-02-26 22:17:09 +0200 )editar

Quando menciona de uma planilha para outra, esta falando de arquivos diferentes, é isso ?

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-02-26 22:49:14 +0200 )editar

Sim ... Eu abro e copio . Os Valores das Variáveis estão vindo certo

obg

EDITADOO*****

Um Simples Macro escrito assim ja perde a formatação

sub teste
  dim oPlan AS Object
   oPlan = ThisComponent.Sheets.getByName("Custo")  
  oPlan.getCellRangeByName("G15").String = 5.00
end sub

Tem outra forma de atribuição que não seja

 oPlan.getCellRangeByName("G15").String

Obg

imagem do gravatar de Marco SallesMarco Salles ( 2019-02-26 22:55:50 +0200 )editar

Se a informação é fixa do ArquivoUm.G15 e vai levar para o Arquivo2.D10 (por exemplo),

então, da segunda em D10, faça a referencia diretamente na célula,

='file:///C:/Users/GILBERTO/Desktop/ArquivoUm.ods'#$Plan1.G15

Assim toda vez que abrir o arquivo, ele pergunta se quer atualizar.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-02-26 23:35:50 +0200 )editar

Isso mesmo com Value deu certo

Obg

imagem do gravatar de Marco SallesMarco Salles ( 2019-02-27 03:28:29 +0200 )editar

1 Resposta

3

respondidas 2019-02-27 02:09:56 +0200

imagem do gravatar de mrkalvin

updated 2019-02-27 02:32:30 +0200

Acho que o problema é que vc está escrevendo uma string não um número. Tente assim:

sub teste
  dim oPlan AS Object
   oPlan = ThisComponent.Sheets.getByName("Custo")  
  oPlan.getCellRangeByName("G15").Value = 5.00
end sub
editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-02-26 21:35:05 +0200

Lidas: 23 vezes

Última atualização: Feb 26