VBA Excel - Ajuste o layout de diversas planilhas - Loop through all worksheets in all Excel workbooks in a folder to change the font, font size, and alignment of text in all cells

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

O que é o fenômeno chamado BIG DATA?

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

Gosto muito de automatizar os processos que envolvem a repetição e o retrabalho humano. Isso poupa muito tempo e dinheiro. Gastar tempo automatizando um processo é algo realmente recompensador.

Ao gerarmos diversos relatórios em planilhas diferentes (workbook) do MS Excel, não queremos perder tempo formatando-as durante a geração e processamento de tais dados. Mas podemos programar para que sejam minimamente formatadas depois que tudo terminar e todos os arquivos estiverem gravados em uma pasta do nosso servidor ou estação de trabalho. Como?

Sub FormatLayoutFiles()

    Const fPath As String = "D:\Bernardes\Docs\"

    Dim sh As Worksheet

    Dim sName As String

    With Application

        Let .Calculation = xlCalculationManual

        Let .EnableEvents = False

        Let .ScreenUpdating = False

    End With

    Let sName = Dir(fPath & "*.xls*")

    Do Until sName = ""

        With GetObject(fPath & sName)

            For Each sh In .Worksheets

                With sh

                    Let .Cells.HorizontalAlignment = xlLeft

                    Let .Cells.Font.Name = "Arial"

                    Let .Cells.Font.Size = 10

                End With

            Next sh

            .Close True

        End With

        Let sName = Dir

    Loop

    With Application

        Let .Calculation = xlAutomatic

        Let .EnableEvents = True

        Let .ScreenUpdating = True

    End With

End Sub

Tags: Excel, VBA, format, layout, fomatação, Loop, worksheets, workbooks, folder,change, font, font size, alignment, text, cells