Notifications
Clear all

Atribuir valor numérico a um botão e alterar e manter cor

2 Posts
2 Usuários
0 Reactions
733 Visualizações
(@lilia-gold)
Posts: 0
New Member
Topic starter
 

Prezados, Boa Tarde!

Não domino muito o excel e preciso fazer uma planilha diagnóstico na qual o cliente poderá escolher entre 4 opções de resposta para cada pergunta. Desta forma quando ele clicar em uma das opções quero que esta célula altere de cor e permaneça assim até que outra escolha seja feita. E também que este represente um valor numérico que possa gerar um gráfico no final.
Minha planilha modelo segue em anexo. Quero chegar no que eles fizeram, notem que na coluna E eles colocaram várias caixas selecionáveis, onde para cada questão, pode-se selecionar apenas uma e esta fica com cor diferente, sinalizando a opção que foi escolhida. E também que de alguma forma esta célula está assumindo o valor que está escrita nela (1,3 e 5).
Preciso fazer exatamente isso. Alguém me ajuda?

 
Postado : 13/01/2016 1:52 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Lilia Gold,

Boa tarde!

Se você pretende copiar e aproveitar essa planilha, terá que entender de programação em VBA e lógica de programação. À título de exemplo, veja abaixo, o código que faz a troca de cor das opções de itens e insere um valor na célula N17 de acordo com o botão clicado (referente a item 2 - Novos Produtos). OBS- Veja os comentários que inseri no código (linhas precedidas por um apóstrofo):

'Se o botão 4 (primeiro botão. O que está com o número 5 na planilha) for clicado:
Private Sub CommandButton4_Click()
'Atribui o número 5 à célula N17
Sheets("Radar - parte 1").Range("N17") = 5
    
    'Muda as cores dos botões      
    CommandButton6.BackColor = RGB(23, 55, 93)
    CommandButton5.BackColor = RGB(23, 55, 93)
    CommandButton4.BackColor = RGB(95, 95, 95)
End Sub

'Se o botão 5 (segundo botão. O que está com o número 3 na planilha) for clicado:
Private Sub CommandButton5_Click()
    'Atribui o número 3 à célula N17
    Sheets("Radar - parte 1").Range("N17") = 3
    
 'Muda as cores dos botões 
    CommandButton6.BackColor = RGB(23, 55, 93)
    CommandButton5.BackColor = RGB(95, 95, 95)
    CommandButton4.BackColor = RGB(23, 55, 93)
    
End Sub

'Se o botão 6 (terceiro botão. O que está com o número 1na planilha) for clicado:
Private Sub CommandButton6_Click()
    'Atribui o número1 à célula N17
    Sheets("Radar - parte 1").Range("N17") = 1
    
 'Muda as cores dos botões 
    CommandButton6.BackColor = RGB(95, 95, 95)
    CommandButton5.BackColor = RGB(23, 55, 93)
    CommandButton4.BackColor = RGB(23, 55, 93)
End Sub
 
Postado : 13/01/2016 2:20 pm