Pergunte aqui
1

Incluir/Substituir valor em uma cécula - Basic

perguntadas 2017-10-25 14:02:26 +0200

imagem do gravatar de Tandy

updated 2019-03-01 19:05:47 +0200

Bom dia Pessoal! Vocês já me ajudaram uma vez e estou precisando de novo de vocês.

Estou precisando incluir uma string em uma célula se uma condição for atendida, qual a função para incluir ou substituir o valor de uma célula no Basic?

Um exemplo do que eu quero:

If ThisComponent.Sheets(0).getCellRangebyName(X).string = 31 then
ThisComponent.Sheets(2).getCellRangebyName(Y).string = "IMPAR" 'Essa atribuição, como faço? Eu sei atribuir um valor a uma variável mas não a uma célula'
Else
ThisComponent.Sheets(2).getCellRangebyName(Y).string = "PAR"
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2017-10-25 14:23:34 +0200

imagem do gravatar de Júnio Vieira

updated 2017-10-25 14:37:22 +0200

imagem do gravatar de Olivier

Seu comando está correto, modifique apenas as letras "X" e "Y" pela a referência da célula, por exemplo: "A1" e "B1", e quando você tratar números utilize Value. Segue:

Sub Incluir()
If ThisComponent.Sheets(0).getCellRangebyName("A1").Value = 31 then
ThisComponent.Sheets(2).getCellRangebyName("B1").string = "IMPAR" 'Essa atribuição, como faço? Eu sei atribuir um        valor a uma variável mas não a uma célula'
Else
ThisComponent.Sheets(2).getCellRangebyName("B1").string = "PAR"
End If
End Sub
editar assinalar como ofensivo Excluir Link mais

Comentários

Instale a macro XRAY para inspecionar todos os objetos da API do LibreOffice. Baixe deste site: http://berma.pagesperso-orange.fr/ind... . abra o arquivo e execute o instalador onde indicado.

imagem do gravatar de OlivierOlivier ( 2017-10-25 14:43:39 +0200 )editar

obs... não sou nada em Basic sem esta macro. Incontornável para qualquer programador de macros.

imagem do gravatar de OlivierOlivier ( 2017-10-25 14:44:44 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-10-25 14:02:26 +0200

Lidas: 364 vezes

Última atualização: Oct 25 '17