VBA Excel - Colorindo o fundo das células de um range alternadamente - Row and column background color

Caros,

Continuando na linha: "Revisitando As primeiras funções que desenvolvi".

DICA: Todas as funções que criarmos que tenham interação física direta nas planilhas que estivermos utilizando, terão uma performance muito melhor se colocarmos o comando Application.ScreenUpdating = False, antes do início do respectivo processamento.

• Como faço para Colorir o fundo das células de um range com cores alternadas?

Sub ShadeAlternR (rngTarget As Range, intColor As Integer, lngStep As Long)

    ' Coloca a cor de fundo = intColor to every lngStep rows in rngTarget

    ' example: ShadeAlternateRows Range("A1:D50"), 27, 2 (colors every 2 rows light yellow)

    Dim r As Long

    Let Application.ScreenUpdating = False

    If rngTarget Is Nothing Then Exit Sub

    

    With rngTarget

        .Interior.ColorIndex = xlColorIndexNone 

    

        ' remove any previous shading

        For r = lngStep To .Rows.Count Step lngStep

            Let .Rows(r).Interior.ColorIndex = intColor

        Next r

    End With

End Sub

Sub ShadeAlternC (rngTarget As Range, intColor As Integer, lngStep As Long)

    ' Coloca a cor de fundo = intColor to every lngStep column in rngTarget

    ' example: ShadeAlternateColumns Range("A1:J20"), 27, 2 (colors every 2 columns light  yellow)

    Dim c As Long

    Let Application.ScreenUpdating = False

    If rngTarget Is Nothing Then Exit Sub

    

    With rngTarget

        .Interior.ColorIndex = xlColorIndexNone 

    

        ' remove any previous shading

        For c = lngStep To .Columns.Count Step lngStep

            Let .Columns(c).Interior.ColorIndex = intColor

        Next c

    End With

End Sub

Tags: Bernardes, MS, Microsoft, Office, Excel, delete, deletar, apagar, excluir, planilha

André Luiz Bernardes

A&A® - Work smart, not hard in any place.

bernardess@gmail.com

Skype: inanyplace 

LinkedIn
Plaxo