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
André Luiz Bernardes
Nenhum comentário:
Postar um comentário