powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Спрятать листы в книге Excel (VBA)
13 сообщений из 13, страница 1 из 1
Спрятать листы в книге Excel (VBA)
    #36268971
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
как спрятать листы в книге Excel?
Задача встала такая, нужно что бы при запуске книги, не появлялось лишних листов.
Всего их в книге 13. это все месяца года с Января по Декабрь.
я хочу сделать так что бы при запуске был виден только один 1-вый лист книги, он основной.
А остальные, появлялись при их выборе. На первом листе создать специальное меню, где буду выбирать нужный мне месяц или несколько месяцев.
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36269124
Фотография by-pass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
меню Format-Sheet-Hide
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36269285
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
by-passменю Format-Sheet-Hide
Слушай ) а в 2007 эксле с его новой меню. Это где находится ? )
И как мне потом в коде включать лист? И можно ли кодом выключать лист?
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36269353
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И как мне потом в коде включать лист? И можно ли кодом выключать лист?
Код: plaintext
1.
2.
3.
4.
newcredit.Visible = xlSheetHidden
newcredit.Visible = xlSheetVisible

newcredit.Visible = xlSheetVeryHidden
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36269457
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hugo121 И как мне потом в коде включать лист? И можно ли кодом выключать лист?
Код: plaintext
1.
2.
3.
4.
newcredit.Visible = xlSheetHidden
newcredit.Visible = xlSheetVisible

newcredit.Visible = xlSheetVeryHidden


Спасибо! ))
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36269539
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, уточню - вначале было
Код: plaintext
1.
Set newcredit = xls.Sheets("NewCredit")
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36270745
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lopuxi,
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36274516
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hugo121Да, уточню - вначале было
Код: plaintext
1.
Set newcredit = xls.Sheets("NewCredit")


Спасибо :) Я уже разобрался)
У меня вот только технический вопрос остался.
Когда нажимаю на галочку, что бы появился спрятанный лист.
У меня этот лист загружаемый, на секунду может меньше, в общем появляется и пропадает резко с экрана.
Получается не уютное ощущение лагов - моргание:)
Можно как то появление листа сделать так, что бы он, не появлялся в эту долю сек, поверх других листов в книге, когда я его включаю.

включаю лист, просто нажав галочку.
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36274519
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hugo121Да, уточню - вначале было
Код: plaintext
1.
Set newcredit = xls.Sheets("NewCredit")



Спасибо :) Я уже разобрался)
У меня вот только технический вопрос остался.
Когда нажимаю на галочку, что бы появился спрятанный лист.
У меня этот лист загружаемый, на секунду может меньше, в общем появляется и пропадает резко с экрана.
Получается не уютное ощущение лагов - моргание:)
Можно как то появление листа сделать так, что бы он, не появлялся в эту долю сек, поверх других листов в книге, когда я его включаю.

включаю лист, просто нажав галочку.
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36274536
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: lopuxi
> Получается не уютное ощущение лагов - моргание:)

У Application есть свойство от моргания ScreenUpdating называется

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36274621
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос
> Автор: lopuxi
> Получается не уютное ощущение лагов - моргание:)

У Application есть свойство от моргания ScreenUpdating называется



Не слышал о таком ) Давай подробнее
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36274666
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
Application.ScreenUpdating = False ' отключаем обновление экрана
'сработал код
Application.ScreenUpdating = True  ' включаем обновление экрана
обычный код примерно такой:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
With Application
calc_status = .Calculation
.Calculation = xlManual
.ScreenUpdating = False
.DisplayAlerts = False 'если надо

' основной код

.Calculation = calc_status
.ScreenUpdating = True
.DisplayAlerts = True
.StatusBar = False 'если в коде задействовали
End With
...
Рейтинг: 0 / 0
Спрятать листы в книге Excel (VBA)
    #36274772
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hugo121
Код: plaintext
1.
2.
3.
Application.ScreenUpdating = False ' отключаем обновление экрана
'сработал код
Application.ScreenUpdating = True  ' включаем обновление экрана
обычный код примерно такой:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
With Application
calc_status = .Calculation
.Calculation = xlManual
.ScreenUpdating = False
.DisplayAlerts = False 'если надо

' основной код

.Calculation = calc_status
.ScreenUpdating = True
.DisplayAlerts = True
.StatusBar = False 'если в коде задействовали
End With


good :)
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Спрятать листы в книге Excel (VBA)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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