none
Clique do mouse RRS feed

  • 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.

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

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

    sexta-feira, 4 de setembro de 2015 13: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

    sexta-feira, 4 de setembro de 2015 13:54
  • 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