Views

Histats

Vitrine

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


TagsExcel, Tips, cell, border, borda, célula, 



LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...