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

Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

Esses procedimentos do Aplicativo Microsoft Excel VBA, insere cores na célula ou células selecionadas, primeiramente você dever selecionar uma célula ou um intervalo de células na folha de planilha, em seguida clicar(selecionar) uma das cores do visual basic na coluna(A) que inserirá a cor na célula ou intervalo de células selecionados a medida em que for selecionando cores na coluna(A). Para um melhor entendimento baixe o exemplo de planilha no final da página. Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.

NO MÓDULO DA FOLHA DE CÓDIGO DA FOLHA DE PLANILHA INSIRA OS PROCEDIMENTOS.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B:IV")) Is Nothing Then
vSeleciona = Target.Address
End If

If Not Application.Intersect(Target, Range("A1:A56")) Is Nothing Then
With Range(vSeleciona)
.Interior.ColorIndex = Target.Interior.ColorIndex
End With
End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = Null
Cancel = True
End Sub
'-----------------------------------'

EM UM MÓDULO COMUM NO VBE(VISUAL BASIC EDITOR) insira os macros

Option Explicit

Public vSeleciona As Variant ' essa variável declarada como public é para auxiliar no evento do procedimento acima


Sub inserir_cores()
Dim c As Integer
Cells(1, 1).Value = "CORES": Cells(1, 2).Value = "NUM.CORES"
[A1].Select
For c = 1 To 56
ActiveCell.Offset(1, 0).Interior.ColorIndex = c
ActiveCell.Offset(1, 1).Value = "Cor vb nº" & c
ActiveCell.Offset(1, 1).Font.ColorIndex = c
ActiveCell.Offset(1, 0).Select
Next c

[c1].Select
End Sub

Sub limpar_teste()
[A1:B100].Clear
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





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