Mais uma: para definir as bordas de um conjunto de células, com o VBA.
Nesse exemplo, marcamos uma região e colocamos as bordas externas.
Range("B10:I15").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Este blog tem como objetivo postar informações sobre soluções que eu empreguei no dia-a-dia, nas áreas de programação, banco de dados, arquitetura de sistemas e redes. Vale lembrar que são soluções publicadas na NET, nos manuais dos softwares, e nas minhas experiências, afinal, são 31 anos de estrada...
Assinar:
Postar comentários (Atom)
Formatar texto numérico com zeros à esquerda
Sempre aparace uma necessidade de colocar zeros à esquerda em textos que representam números. Exemplo clássico é transformar o número que ...
-
Session-State Fonte: http://forums.asp.net/p/7504/7504.aspx#7504 1-Localização do armazenamento: InProc – a sessão é m...
-
Sempre aparace uma necessidade de colocar zeros à esquerda em textos que representam números. Exemplo clássico é transformar o número que ...
Nenhum comentário:
Postar um comentário