none
Clique do mouse RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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.

    quinta-feira, 3 de setembro de 2015 18:16
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

    sexta-feira, 4 de setembro de 2015 13:54
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

    sexta-feira, 4 de setembro de 2015 13:54
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde! André Santo.

    Muito obrigado pela solução do problema o procedimento facilitou muito.

    Obrigado - GENECI.

    sábado, 5 de setembro de 2015 17:15
    |