Сообщение о медленной работе книги — неиспользуемое форматирование и метаданные можно оптимизировать для повышения производительности

Использование «Обзор» > «Проверка производительности» для повышения производительности очень полезно для меня, поскольку для большей части моей работы я использую шаблон книги, которая содержит множество макросов и данных на различных листах.

Через некоторое время он может стать довольно медленным - использование «Обзор»> «Проверка производительности» прекрасно проясняет это — есть ли способ сделать это автоматически в макросе?

Спасибо

Я использовал запись макроса, чтобы попытаться открыть проверку производительности, и получил

Application.CommandBars("Workbook Performance").Visible = False

что не работает.

excel vba

28.04.2024 15:17

Преобразование HTML-таблицы в профессиональный документ Excel

Это самый простой способ создания Excel из HTML-таблицы.

Импорт excel в laravel в базу данных

Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...

288

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Переключатели для панелей команд работают нестабильно, как показано в следующих подпрограммах.

Option Explicit

' Command bar is "Workbook Performance"
Sub sbWorkbookPerformance()
    ' Method 'Visible' of object 'CommandBar' failed
     Application.CommandBars("Workbook Performance").Visible = True
End Sub

Sub sbWorkbookPerformanceOff()
    ' works as advertised
     Application.CommandBars("Workbook Performance").Visible = False
End Sub

' https://answers.microsoft.com/en-us/msoffice/forum/all/disabling-workbook-query-command-bar-during/88c48f46-00a4-4df4-b1e5-2ed28136b24e

    ' Command bar is "Queries and Connections"
Sub sbWorkbookQueriesOff()
    ' does nothing
    Application.CommandBars("Workbook Queries").Enabled = False
End Sub

Sub sbWorkbookQueriesOn()
    ' does nothing
    Application.CommandBars("Workbook Queries").Enabled = True
End Sub

Sub sbWorkbookQueriesVisibleTrue()
    ' Method 'Visible' of object 'CommandBar' failed
    Application.CommandBars("Workbook Queries").Visible = True
End Sub

Sub sbWorkbookQueriesVisibleFalse()
    ' does nothing command bar remains visible 
    Application.CommandBars("Workbook Queries").Visible = False
End Sub

Sub sbUsage()
 sbWorkbookQueriesVisibleTrue
 MsgBox "Done ..."
End Sub

Спасибо вам за это, как вы говорите, это работает!

— 29.04.2024 15:08

29.04.2024 07:08