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

Alterar opções de cálculo

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.

Atalho para cpcoes de calculo

E as opções existentes são:

Automático
Automático Exceto Tabelas de Dados
Manual

Opcoes de calculo existentes

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.

Menu criação 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"

Nomear a macro

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

Parar gravacao macro

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.

Selecionar modulo

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
Copiar código da macro

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....

Adicionar ao acesso rápido

2. Escolher o comando Macros.

Escolher o comando macro

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

Adicionar macro na barra

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

Formatar botão da macro

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

Novo botão para macro

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

Gravar alterações

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.
Artigo anterior Artigo seguinte
Sem comentários
Comentar
url comentário

Pesquisa Google