Descricao: |
Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA
 Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere cor em determinas células nas colunas especificas (B:D), retiram a formação ao dupoclick, como também retira a formatação da células na folha de planilhas nestas colunas específicas. Veja bem aqui esta como duplo clique, mas você poderá fazer a formatação com condição, se determinado valor de determinada células em uma folha de planilha for igual a 1,20, 494, etc.. , baixe o exemplo de planilha no final da página... Fiquem com Deus, Expedito Marcondes.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column >= 2 And Target.Column <= 4 Then 'eu penso que se o aluno memorizar determinados códigos facilita o aprendizado. If Target.Interior.ColorIndex = xlNone Then Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = 3 'xlNone - corresponde a nada.(branco) ' If Target.Interior.Color = Cells(2, Target.Column).Interior.ColorIndex = 3 Then ' Target.Interior.Color = Cells(2, Target.Column).Interior.ColorIndex = 4 'Then ' End If Else Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = xlNone End If End If Cancel = True End Sub
 Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Baixe o exemplo de planilha contendo procedimento acima
Publicidade Compre com segurança, garantia e ótimos preços

|