Pergunte aqui
0

Ativar/Desativar caixa de grupo ao clicar em uma opção no calc

perguntadas 2018-07-11 03:30:12 +0200

imagem do gravatar de juulio

updated 2018-07-11 16:53:35 +0200

Gostaria de saber se há alguma maneira de fazer com que uma caixa de grupo e suas opções sejam ativadas ou desativadas ao clicar em uma opção que está em uma outra caixa de grupo em formulários.

Ex: Em uma caixa de grupo contem "pagamento efetuado" e as opções "sim" e "não". Se marcar a opção "sim", esta faz com que a próxima caixa de grupo (contendo as formas de pagamento) passe a ficar ativa, e se clicar em "não" ela volta a ficar desativada .

Obrigado

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Bom dia, caso você a tenha a planilha com o exemplo, poste-a para melhorar o entendimento.

imagem do gravatar de Júnio VieiraJúnio Vieira ( 2018-07-11 14:57:59 +0200 )editar

Ola @juulio, em Caixa de grupo, não sei como fazer, mas fiz algo semelhante usando Dados / Validação e Formatação condicional, no caso mencionado quando a resposta anterior é "não" a Formatação condicional a deixa "invisível", sem bordas, se houver e texto na cor do fundo,

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-07-11 15:40:29 +0200 )editar

Obrigado pela ajuda.

Aqui está um exemplo da planilha

https://app.box.com/s/r9kaeaeanwzq0om...

imagem do gravatar de juuliojuulio ( 2018-07-12 04:07:46 +0200 )editar

O exemplo que mencionei acima (eliminei a grade para ficar mais visível).

Arquivo com o teste.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-07-12 05:08:30 +0200 )editar

Obrigado, Gilberto. Eu realmente pretendo criá-la com os botões de formulário, mas deu ter uma ideia alternativa.

Valeu

imagem do gravatar de juuliojuulio ( 2018-07-12 16:04:45 +0200 )editar

2 Respostas

1

respondidas 2018-07-14 00:40:39 +0200

imagem do gravatar de Grafeno

Boa noite,

A solução é associar as macros abaixo, por exemplo, uma para caixa "Sim" e a outra para a caixa "Não":

Sub AtivarCaixas
   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName("Planilha1")
   oForm = oPlan.DrawPage.Forms.getByname("Formulário")

   oCxSel3 = oForm.getByName("Caixa de seleção 3")
   oCxSel4 = oForm.getByName("Caixa de seleção 4")
   oCxSel5 = oForm.getByName("Caixa de seleção 5")

   'Ativar as caixas de seleção'
   oCxSel3.Enabled = True
   oCxSel4.Enabled = True
   oCxSel5.Enabled = True
End Sub

Sub DesativarCaixas
   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName("Planilha1")
   oForm = oPlan.DrawPage.Forms.getByname("Formulário")

   oCxSel3 = oForm.getByName("Caixa de seleção 3")
   oCxSel4 = oForm.getByName("Caixa de seleção 4")
   oCtrle5 = oForm.getByName("Caixa de seleção 5")

   'Desativar as caixas de seleção'
   oCxSel3.Enabled = False
   oCxSel4.Enabled = False
   oCtrle5.Enabled = False

   'Desmarcar as caixas de seleção'
   oCxSel3.State = 0
   oCxSel4.State = 0
   oCtrle5.State = 0
End Sub

Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

1

Muito bom @Grafeno.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-07-14 01:21:23 +0200 )editar
imagem do gravatar de GrafenoGrafeno ( 2018-07-15 14:15:15 +0200 )editar

Ola @Grafeno, tu mantém ou participa de algum blog com dicas sobre o LibO, sem ser este ?

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-07-15 15:41:45 +0200 )editar

Não, @Gilberto Schiavinatto. Ando sem tempo, então só participo aqui.

imagem do gravatar de GrafenoGrafeno ( 2018-07-17 01:25:04 +0200 )editar

You are the best Grafeno!!!!

Muito obrigado mesmo. Exatamente o que eu precisava.

Grafeno e Gilberto sempre nos ajudando a aprender cada vez mais

imagem do gravatar de juuliojuulio ( 2018-07-17 04:53:51 +0200 )editar

É uma pena, @Grafeno,imagino que tu tens muitas anotações úteis guardadas.


Alo @juulio, se a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta do Grafeno, para finalizar a pergunta.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-07-17 14:19:10 +0200 )editar
0

respondidas 2018-07-13 23:58:53 +0200

O exemplo que mencionei acima (eliminei a grade para ficar mais visível).

Arquivo com o teste.

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

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-07-11 03:30:12 +0200

Lidas: 31 vezes

Última atualização: Jul 14