![Inline image 1](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhw_zMLAGftwMx8-whHCRaai1fnaO4i6z6exlxZ574K8FzFzVhl8F3DMGXDwiZgsgDOIxtKtIlVWjsqEYzXE_IentNeSqUsC19G7fRXwvdk8Qm7ixVEsip2dKma4H6BK3DVjMdS4hGwz1ak/s640/VBA_Header_Andre_Luiz_Bernardes_033-758106.png)
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
Nenhum comentário:
Postar um comentário