Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Achei a resposta pesquisando aqui. Sub ContarAte20000 Dim i As Integer ThisComponent.LockControllers ThisComponent.EnableAutomaticCalculation(False) For i = 0 to 2000

Next i

ThisComponent.EnableAutomaticCalculation(True) ThisComponent.CalculateAll ThisComponent.UnlockControllers End Sub O código acima inicia com o cancelamento da atualização de tela, dessa forma, minimizamos o tempo de execução da macro. Após a execução atualizamos a atualização. No código eu criei os valores eram lançados na planilha e, por terem fórmulas, eram atualizados sempre que alterados. Dessa forma os dados são atualizados somente após o encerramento da macro.

Fonte: https://ask.libreoffice.org/en/question/150701/how-to-disable-screen-updating-while-running-a-macro-in-calc/

Achei a resposta pesquisando aqui. Sub ContarAte20000 Dim i As Integer ThisComponent.LockControllers ThisComponent.EnableAutomaticCalculation(False) For i = 0 to 2000

2000
    Next i

ThisComponent.EnableAutomaticCalculation(True) ThisComponent.CalculateAll ThisComponent.UnlockControllers End Sub O código acima inicia com o cancelamento da atualização de tela, dessa forma, minimizamos o tempo de execução da macro. Após a execução atualizamos a atualização. No código eu criei os valores eram lançados na planilha e, por terem fórmulas, eram atualizados sempre que alterados. Dessa forma os dados são atualizados somente após o encerramento da macro.

Fonte: https://ask.libreoffice.org/en/question/150701/how-to-disable-screen-updating-while-running-a-macro-in-calc/

Achei a resposta pesquisando aqui. aqui.

Sub ContarAte20000 Dim i As Integer ThisComponent.LockControllers ThisComponent.EnableAutomaticCalculation(False) For i = 0 to 2000 Next i ThisComponent.EnableAutomaticCalculation(True) ThisComponent.CalculateAll ThisComponent.UnlockControllers End Sub O código acima inicia com o cancelamento da atualização de tela, dessa forma, minimizamos o tempo de execução da macro. Após a execução atualizamos a atualização. No código eu criei os valores eram lançados na planilha e, por terem fórmulas, eram atualizados sempre que alterados. Dessa forma os dados são atualizados somente após o encerramento da macro.

Fonte: https://ask.libreoffice.org/en/question/150701/how-to-disable-screen-updating-while-running-a-macro-in-calc/

Achei a resposta pesquisando aqui.

Sub ContarAte20000 ContarAte20000

Dim i As Integer

ThisComponent.LockControllers ThisComponent.EnableAutomaticCalculation(False)

ThisComponent.LockControllers

ThisComponent.EnableAutomaticCalculation(False)

For i = 0 to 2000
  Next i
 ThisComponent.EnableAutomaticCalculation(True)
 ThisComponent.CalculateAll
 ThisComponent.UnlockControllers

ThisComponent.EnableAutomaticCalculation(True)

ThisComponent.CalculateAll

ThisComponent.UnlockControllers

End Sub Sub

O código acima inicia com o cancelamento da atualização de tela, dessa forma, minimizamos o tempo de execução da macro. Após a execução atualizamos a atualização. No código eu criei os valores eram lançados na planilha e, por terem fórmulas, eram atualizados sempre que alterados. Dessa forma os dados são atualizados somente após o encerramento da macro.

Fonte: https://ask.libreoffice.org/en/question/150701/how-to-disable-screen-updating-while-running-a-macro-in-calc/

clique para ocultar/mostrar a revisão 5
No.5 Revision

Achei a resposta pesquisando aqui.

Sub ContarAte20000

ContarAte20000

Dim i As Integer

ThisComponent.LockControllers

ThisComponent.LockControllers ThisComponent.EnableAutomaticCalculation(False)

ThisComponent.EnableAutomaticCalculation(False)

 For i = 0 to 2000

 Next i

ThisComponent.EnableAutomaticCalculation(True)

 ThisComponent.CalculateAll

 ThisComponent.UnlockControllers

End Sub

ThisComponent.EnableAutomaticCalculation(True)

ThisComponent.CalculateAll

ThisComponent.UnlockControllers

End Sub

O código acima inicia com o cancelamento da atualização de tela, dessa forma, minimizamos o tempo de execução da macro. Após a execução atualizamos a atualização. No código eu criei os valores eram lançados na planilha e, por terem fórmulas, eram atualizados sempre que alterados. Dessa forma os dados são atualizados somente após o encerramento da macro.

Fonte: https://ask.libreoffice.org/en/question/150701/how-to-disable-screen-updating-while-running-a-macro-in-calc/