Alterar Opções de Cálculo para Manual ou Automático (VBA)

Atalho para alterar as Opções de Cálculo para Manual antes de começar a trabalhar o ficheiro e repor em Automático quando terminamos.

Resumo

Por vezes deparamo-nos com ficheiros muito pesados que demoram muito tempo entre actualizações. Uma das soluções para minimizar estes desperdícios de tempo é alterar as Opções de Cálculo para Manual antes de começar a trabalhar o ficheiro e repor em Automático quando terminamos. Neste artigo mostramos o método normal e propomos uma outra solução para facilitar e acelerar a alteração de Automático para Manual (e vice-versa).

Método 1 - Alterar Opções de Cálculo manualmente

O caminho para alterar as Opções de Cálculo é Ferramentas -> Opções de Cálculo.

E as opções existentes são:

Automático
Automático Exceto Tabelas de Dados
Manual

Também é possível fazer estas alterações via atalhos de teclado:

ALT + U abre a pestana ferramentas
O abre as Opções de Cálculo
A = Automatico / E = Automático Exceto Tabelas de Dados / M = Manual

Método 2 - Criar uma macro para alterar o estado das Opções de Cálculo

Se trabalhares com muitos ficheiros pesados com regularidade e precisares de usar esta funcionalidade de alterar as Opções de Cálculo muitas vezes, faz sentido criar uma macro e armazená-la num livro especial denominado Personal.xlsb guardado no teu computador. Todas as macros do livro pessoal ficam disponíveis sempre que usares o Excel nesse computador.

1. Chamar o menu de criação de Macros clicando no botão inferior esquerdo do Excel para gravar Macros.

2. Definir o nome para a Macro - vamos usar o nome "calculation_options"; não esqueças que nomes de Macros não podem ter espaços - e selecionar guardar no "Livro pessoal de macros"

3. Paramos de gravar a Macro clicando no botão STOP.

4. Abrir o Editor de Visual Basic (ALT + F11).
5. No painel Project Explorer clicar o sinal "+" junto a VBAProject (PERSONAL.XLSB).
6. Abrir a pasta Modules.
7. Fazer duplo-click na opção Module1.

8. Substituir o código existente dentro da Sub calculation_options pelo código abaixo.

Sub calculation_options()

        If Application.Calculation = xlAutomatic = True Then
            Application.Calculation = xlManual
        Else
            Application.Calculation = xlAutomatic
        End If

End Sub

Nota: Estamos a inserir o código no Module2 porque já temos outro código de outras macros no Module1 e assim conseguirmos mostrar de forma isolada o código deste exemplo. O módulo em que está gravada não afecta o desempenho da Macro.

E desta forma já temos uma Macro criada que nos permitirá alternar as Opções de Cálculo entre Manual e Automático.

Atribuir um botão à Macro e adicionar à Barra de Ferramentas de Acesso Rápido

1. No topo superior esquerdo clicar a seta da Barra de Ferramentas e escolher Mais comandos....

2. Escolher o comando Macros.

3. Selecionar a macro calculation_options e adicionar na Barra de Ferramentas.

4. Escolher Modificar e alterar a imagem do botão e o texto do botão e dar OK.

5. O botão fica disponível na Barra de Ferramentas

6. Não esquecer de gravar as alterações no Livro Pessoal de Macros.

Ideias Chave

1. Alterar Opções de Cálculo para manual para trabalhar em ficheiros mais pesados.
2. Se for uma operação esporádica podemos alterar manualmente.
3. Se for um processo recorrente idealmente devemos adicionar uma Macro no Livro Pessoal de Macros (PERSONAL.XLSB) para automatizar este processo no computador em que trabalhamos regularmente.