Views

Histats

Vitrine

VBA Excel Tips - Coloque bordas em todas as células com contéudo - Put borders around all used cells on a sheet

Inline image 1

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, xlColorIndexAutomatic 

        On Error Resume Next 'used in case there are no inside borders 

        With .Borders(xlInsideHorizontal) 
            Let .LineStyle = xlContinuous 
            Let .Weight = xlThin 
            Let .ColorIndex = xlAutomatic 
        End With 

        With .Borders(xlInsideVertical) 
            Let .LineStyle = xlContinuous 
            Let .Weight = xlThin 
            Let .ColorIndex = xlAutomatic 
        End With 

    End With 
End Sub


brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias