Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA (Visual Basic Application), esta usando o Evento Worksheet_BeforeRightClick, que acontece quando clica com o botão direito do Mouse.

Quando Clicar com o Botão direito do Mouse, vai colorir em verde os ítem que estão na coluna(B), ao clicar novamente retira a formatação nos dados digitados e afeta toda a região, isto é , Range(B3:B100), e assim vai alternando de cores, verde e retirando formatação.
Observe que inserí no procedimento uma linha de código [ Range(c, c.Offset(0, 2)).Interior.ColorIndex = xlNone ] que afetará também a fonte quando o usário clicar com botão direito do mouse também na Coluna(B) na célula onde se encontra algum dado.
Baixe o exemplo de planilha no final da página. Fiquem com Deus. Desejo-lhes todo bem.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True

For Each c In Range("B3:B100")

      If c = Target Then
         If c.Interior.ColorIndex = 4 Then
              Range(c, c.Offset(0, 2)).Interior.ColorIndex = xlNone 'retira a formatação se houver.
              Range(c, c.Offset(0, 2)).Font.ColorIndex = 45  'vai inserir esta cor quando clicar botao direito mouse em alguma celula colB

         Else
             Range(c, c.Offset(0, 2)).Interior.ColorIndex =    4           - Propriedade offset(desloc) >>>  Offset(Linha, Coluna))
             Range(c, c.Offset(0, 2)).Font.ColorIndex = 11
        End If

    End If

Next c
End Sub



Aprenda tudo sobre o Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel




  Baixe o exemplo de Planilha contendo os procedimentos acima
vba worksheet formatação evento botão direito do mouse (22.5 KB)

Publicidade
Compre com segurança, garantia e ótimos preços