Home Excel - Dicas Microsoft Excel VBA Excel VBA - Worksheets Excel planilha vba formatacao evento botão direito do mouse

Excel planilha vba formatacao evento botão direito do mouse

E-mail Imprimir PDF

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
Eletrônicos - Submarino.com.br

Última atualização em Sex, 26 de Agosto de 2011 09:10  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje1731
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11862
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25591
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448420
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA