Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Обновление ячеек и расчетов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обновление ячеек и расчетов (Макросы/Sub)
Обновление ячеек и расчетов
fisium Дата: Пятница, 08.08.2014, 10:07 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2003-2007
Добрый день сделал в Excel программу с метрологическими расчетами, размер книги порядка 40 мб. В программе присутсвуют множество диаграмм, если книга долго открыта то диаграмма перестает обновлятся при изменении данных, макрос на обновление ячеек
[vba]
Код
Private Sub CommandButton2_Click()
Application.CalculateFull
ActiveSheet.UsedRange.Calculate
End Sub
[/vba]
не помогает
помогает только открытие и закрыте книги, в чем может быть проблема? старый Excel 2003?
 
Ответить
СообщениеДобрый день сделал в Excel программу с метрологическими расчетами, размер книги порядка 40 мб. В программе присутсвуют множество диаграмм, если книга долго открыта то диаграмма перестает обновлятся при изменении данных, макрос на обновление ячеек
[vba]
Код
Private Sub CommandButton2_Click()
Application.CalculateFull
ActiveSheet.UsedRange.Calculate
End Sub
[/vba]
не помогает
помогает только открытие и закрыте книги, в чем может быть проблема? старый Excel 2003?

Автор - fisium
Дата добавления - 08.08.2014 в 10:07
anvg Дата: Пятница, 08.08.2014, 10:47 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Доброе время суток
Цитата
в чем может быть проблема

Вряд ли кто знает. Попробуйте принудительно обновлять диаграммы (вариант для диаграмм на рабочих листах книги).
[vba]
Код
    Dim pSheet As Worksheet, pChart As ChartObject
     For Each pSheet In ThisWorkbook.Worksheets
         If pSheet.ChartObjects.Count > 0 Then
             For Each pChart In pSheet.ChartObjects
                 pChart.Chart.Refresh
             Next
         End If
     Next
[/vba]
Успехов.
 
Ответить
СообщениеДоброе время суток
Цитата
в чем может быть проблема

Вряд ли кто знает. Попробуйте принудительно обновлять диаграммы (вариант для диаграмм на рабочих листах книги).
[vba]
Код
    Dim pSheet As Worksheet, pChart As ChartObject
     For Each pSheet In ThisWorkbook.Worksheets
         If pSheet.ChartObjects.Count > 0 Then
             For Each pChart In pSheet.ChartObjects
                 pChart.Chart.Refresh
             Next
         End If
     Next
[/vba]
Успехов.

Автор - anvg
Дата добавления - 08.08.2014 в 10:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обновление ячеек и расчетов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!