Usuário com melhor resposta
Clique do mouse

Pergunta
-
Boa tarde!
Faço conferência de dados para verificar o reconhecimento e a veracidade dos valores.
Uso o ctrl + c e o ctrl v para copiar para a planilha.
Não sei se é possível, gostaria de uma planilha que quando eu clicar com o mouse em qualquer célula a célula deve ficar com a cor verde, clicando novamente na mesma célula retornar a cor branca.
Exemplo: Cliquei em 300 células diferentes as mesmas mudarão de cor passando a cor verde.
Das 300 células coloridas se eu clicar aleatoriamente em 20 células, apenas 280 ficarão com a cor verde.
Grato, GENECI.
Respostas
-
Olá,
Insira o código abaixo no módulo da Planilha que deseja fazer as alterações.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Select If Target.Interior.Color = 5287936 Then With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Else With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If End Sub
- Sugerido como Resposta GENECIOFICIAL sábado, 5 de setembro de 2015 17:15
- Marcado como Resposta Mensagem no excel por tempo determindo sexta-feira, 2 de outubro de 2015 18:54
Todas as Respostas
-
Olá,
Insira o código abaixo no módulo da Planilha que deseja fazer as alterações.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Select If Target.Interior.Color = 5287936 Then With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Else With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If End Sub
- Sugerido como Resposta GENECIOFICIAL sábado, 5 de setembro de 2015 17:15
- Marcado como Resposta Mensagem no excel por tempo determindo sexta-feira, 2 de outubro de 2015 18:54
-