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

TagsBernardes, MS, Microsoft, Office, Excel, delete, deletar, apagar, excluir, planilha, colorindo, color, cell, colorindex















André Luiz Bernardes






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

Nenhum comentário:

Postar um comentário

diHITT - Notícias