Pergunte aqui
0

Valor de uma célula em uma caixa de texto4

perguntadas 2019-09-06 00:06:56 +0200

imagem do gravatar de Marceloxa

updated 2019-09-07 17:51:17 +0200

Boa noite!

Gostaria de saber se é possível vincular o valor resultante de uma função de uma determinada célula em uma caixa de texto ou uma forma da barra de ferramentas de desenho.

desde ja agradeço

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2019-09-10 00:17:37 +0200

imagem do gravatar de Ronaldo Elias

updated 2019-09-10 00:39:16 +0200

..

Function ReceberCelula()'Exemplo do Formulário do Calc


        Dim oSheet as Object
        Dim oFormulario as Object
        Dim oCelulaDiretorio as Object
        Dim ctCelulaRecebe as Object
        Dim document as Object
        Dim dispatcher as Object
        Dim Valor as String

        oSheet              = ThisComponent.CurrentController.ActiveSheet
        oFormulario         = oSheet.DrawPage.Forms.getByName("Formulário")'O formulário
        oCelulaDiretorio        = oSheet.GetCellRangeByName("A1")'A célula com fórmula
        ctCelulaRecebe          = oFormulario.GetByName("ctCelulaRecebe")'A caixa texto

        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 = "A1"
        dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
        ctCelulaRecebe.Text = Trim(oCelulaDiretorio.String("A1"))

        'Obs pode rodar clicando no botão 'vincular" ou em: "Editar => Planilha => Eventos...Conteúdo Alterado (escolha a macro)

End Function
editar assinalar como ofensivo Excluir Link mais

Comentários

Acho que não posso, ainda, enviar arquivo.

imagem do gravatar de Ronaldo EliasRonaldo Elias ( 2019-09-10 00:21:05 +0200 )editar

Clicou no ícone certo:

  1. Imagens
  2. Arquivo

Descrição da imagem

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-09-10 00:40:47 +0200 )editar

Certo Gilberto não havia percebidos os ícones.

imagem do gravatar de Ronaldo EliasRonaldo Elias ( 2019-09-10 03:46:05 +0200 )editar

Deu muito certo!!!

imagem do gravatar de MarceloxaMarceloxa ( 2019-09-25 20:23:01 +0200 )editar

@Marceloxa, comentou.....

Boa tarde!!

Obrigado, agradeço ao Gilberto e ao Ronaldo. A resposta foi de muita valia!!

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-09-25 22:07:34 +0200 )editar

Ola @Marceloxa,

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

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

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-09-25 22:09:08 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-09-06 00:06:56 +0200

Lidas: 33 vezes

Última atualização: Sep 10