ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Использование SeriesCollection и сохранение книги
5 сообщений из 5, страница 1 из 1
Использование SeriesCollection и сохранение книги
    #37702128
Snowblast
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Snowblast
Гость
В книге Excel по событию Workbook_BeforeClose должно производиться принудительное сохранение книги при отключенных системных сообщениях:
Код: vbnet
1.
2.
3.
4.
5.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    If Not ThisWorkbook.Saved Then ThisWorkbook.Save
    Application.DisplayAlerts = True
End Sub


На листе размещена диаграмма, диапазон данных которой задается 2-мя процедурами VBA через SeriesCollection:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub DecreaseChartDataRange()
    With ThisWorkbook.Worksheets("Лист1").ChartObjects("CNP_GRAPH").Chart.SeriesCollection(1)
        .Values = "=Лист1!C4:C8"
        .XValues = "=Лист1!B4:B8"
    End With
End Sub

Sub IncreaseChartDataRange()
    With ThisWorkbook.Worksheets("Лист1").ChartObjects("CNP_GRAPH").Chart.SeriesCollection(1)
        .Values = "=Лист1!C4:C13"
        .XValues = "=Лист1!B4:B13"
    End With
End Sub


Варианты изменения данных диаграммы:
1. Не меняя диапазона размещения данных диаграммы, меняем любые значения внутри этого диапазона.
2. Меняем диапазон размещения данных диаграммы вручную и далее меняем любые значения внутри этого диапазона.
3. Меняем диапазон размещения данных диаграммы процедурами VBA, значения внутри используемого диапазона не меняем.
4. Меняем диапазон размещения данных диаграммы процедурами VBA и далее меняем значения внутри "старого" диапазона данных .

В случаях 1-3 книга при закрытии автоматически сохраняется, не задавая лишних вопросов, но в 4-м случае книга при закрытии все равно предлагает сохраниться, несмотря на наличие ThisWorkbook.Save в процедуре Workbook_BeforeClose.

Использование SeriesCollection влияет на сохранение книги?
Как избежать вопросов о сохранении книги при ее закрытии?

Файл с примером прилагается.
...
Рейтинг: 0 / 0
13.03.2012, 11:00
| Ответить | Цитировать | Написать  
Использование SeriesCollection и сохранение книги
    #37702313
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
попробуй
Код: vbnet
1.
thisworkbook.Saved=True
...
Рейтинг: 0 / 0
13.03.2012, 11:58
| Ответить | Цитировать | Написать  
Использование SeriesCollection и сохранение книги
    #37702352
Snowblast
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Snowblast
Гость
Shocker.Pro,

Уже пробовал. Не помогает.
...
Рейтинг: 0 / 0
13.03.2012, 12:12
| Ответить | Цитировать | Написать  
Использование SeriesCollection и сохранение книги
    #37703039
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
Пробовал на Excel2003, нет окна диалога ни в одном из вариантов.
Правда пришлось заменить ссылки, например
Код: vbnet
1.
        .Values = "=Лист1!C4:C8"


на
Код: vbnet
1.
        .Values = Worksheets("Лист1").Range("C4:C8")
...
Рейтинг: 0 / 0
13.03.2012, 16:06
| Ответить | Цитировать | Написать  
Использование SeriesCollection и сохранение книги
    #37703940
Snowblast
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Snowblast
Гость
Пробовал заменить ссылки по примеру sergeyvg. В Excel2003 не было возможности проверить, но в Excel2010 вышеописанная проблема осталась.
Важно правильно воспроизвести ситуацию, ведующую к некорректной отработке: открываем книгу (исходный диапазон данных диаграммы, например, B4:C8), запуском процедуры меняем диапазон данных диаграммы на B4:C13, меняем значение внутри исходного диапазона (B4:C8), закрываем книгу, в моем случае получаем предложение о сохранении изменений.

Пробовал пересохранить исходный файл с примером из формата Excel2003 в формат Excel2010.
Старая проблема осталась, и добавилась еще одна: открываем книгу, закрываем книгу не производя никаких изменений, получаем все то же предложение о сохранении изменений. Новая проблема так сказать "решается" если с кнопок снять макросы. Адекватное решение новой проблемы также было бы интересно.
...
Рейтинг: 0 / 0
14.03.2012, 00:15
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Использование SeriesCollection и сохранение книги
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=83&tid=2157996]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 13ms
total:  139ms
созд. / загр.: 139ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]