Detalhes de vba fc formata determinadas linhas colunas criterio numero

PropriedadeValor
Nome:vba fc formata determinadas linhas colunas criterio numero
Descricao:



Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz um tipo de formatação condicional, isto é depende do número que é a condição do critério atribuido, irá colorir a linha em determinadas colunas(A:E), de acordo com as cores atribuidas na macro abaixo, inserí somente dez cores relacionadas ao número 1,2,3...10. Mara - observe que a macro abaixo poderá ajudá-lo com a questão fc(formatação condicional) do aplicativo, poderá inserir no evento change do Objeto worsheet. Ok. Fiquem com Deus, Desejo-lhes todo bem.

Sub sb_fc_formatacao_condicinal()
Dim vDesejados As Range
Set vDesejados = Range(Range("A1"), Range("A65536").End(xlUp))
For Each c In
vDesejados
If c = 1 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 3
If c = 2 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 44
If c = 3 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 7
If c = 4 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 4
If c = 5 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 37
If c = 6 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 22
If c = 7 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 16
If c = 8 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 29
If c = 9 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 19
If c = 10 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 14
Next
End Sub


Sub limpar_sb()
Set vDesejados = Range(Range("A1"), Range("A65536,B1").End(xlUp))
Cells.ClearFormats
End Sub



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

Nome do arquivo:vba fc formata determinadas linhas colunas criterio.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 20/02/2011 11:04
Visitas:Todos
Responsavel:Autor
Acessos:1 Acessos
Atualizado em: 20/02/2011 11:13
Site: