Pessoal,
Segue mais uma macro para facilitar o dia-a-dia.
No trabalho, tenho de montar apresentações diariamente, formatando muitas tabelas.
Com esta macro, padronizei os cabeçalhos que uso, para ganhar tempo. Basta selecionar a área da linha com o cabeçalho e aplicar a macro (a cor pode ser alterada e a disposição das bordas, também... O código está comentado):
Sub Formata_Cabeçalho()
'
' Macro para formatar cabeçalhos automaticamente
'
With Selection.Font 'Formata fonte na cor branca/negrito
.FontStyle = "Negrito"
.ThemeColor = xlThemeColorDark1
End With
With Selection.Borders(xlInsideVertical) 'Borda para separação das colunas
.LineStyle = xlContinuous
.ThemeColor = 1
.Weight = xlThin
End With
'Retira outras bordas
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
'Preenchimento do cabeçalho (cor)
With Selection.Interior
.Pattern = xlSolid
.ThemeColor = xlThemeColorLight2
.TintAndShade = -0.499984740745262
End With
'Alinhamento do cabeçalho (centralizado/quebra de linha)
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
End With
End Sub
Segue imagem de como ficaria o cabeçalho:
Até a próxima!
Parabéns pelo Blog meu amor! Sempre torço muito por você e para que você conquiste todos os seus objetivos! Beijos, Sua fã número 1, Jaque
ResponderExcluirCasinos near me - Lucky Club
ResponderExcluirLucky Club. The Lucky Club is one of the biggest names in online gambling. The club luckyclub.live was founded in 2015 and has operated since 2015. Casinos. There is a