
Ok, talvez agora, neste momento, você sequer imagine porque desejaria ter uma função co a funcionalidade do título.
Mas acredite, um dia precisará de uma função assim. Ahhh... e quando isso acontecer aqui estará a funcionalidade pronta para que use-a.
E não se esqueça, divirta-se!
Sub PutBorders()With Cells.SpecialCells (xlCellTypeConstants, 23).BorderAround xlContinuous, xlThin, xlColorIndexAutomaticOn Error Resume Next 'used in case there are no inside bordersWith .Borders(xlInsideHorizontal)Let .LineStyle = xlContinuousLet .Weight = xlThinLet .ColorIndex = xlAutomaticEnd WithWith .Borders(xlInsideVertical)Let .LineStyle = xlContinuousLet .Weight = xlThinLet .ColorIndex = xlAutomaticEnd WithEnd WithEnd Sub
Tags: Excel, Tips, cell, border, borda, célula,

Nenhum comentário:
Postar um comentário