✔ Programação GLOBAL®: VBA Excel - Colorindo o fundo das células de um range alternadamente

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