| Descricao: |
 Saberexcel - site das Macros
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
|