![Inline image 1](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguvSHB0t8rwJy_zVi9AZ9YhQHeTrqEnl4MzP8AL_Eo_b1HIfKSzncMuOB4i3MZPQlRiMPcWaHIYcnierJ4umZV3RXPko6LQpdpDjFfs4QsOaQHO3oK_yy3_Mxxc0XxH1PFvmhHE79Lac6m/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
Tags: Excel, Tips, cell, border, borda, célula,
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4ciFhBGUJpI14uQLY4vluNZkid2ybY3ZI_Lg6LfrRc1NRMsG59YtpjYNcf7pPddKaw2JJqvbZge2RyEmCQcIlqI5BX_sTy4evPU-28upSiSNBN83k_HFTauU4O1O3aggs27a7oE86wNjX/s640/VBA_Signature_Andre_Luiz_Bernardes_032b-722457.png)
Nenhum comentário:
Postar um comentário