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

|Blog Office VBA | Blog Excel | Blog Access | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

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

Tags: Excel, Tips, cell, border, borda, célula,