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

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

newcredit.Visible = xlSheetVeryHidden


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


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

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



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

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

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

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

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



Не слышал о таком ) Давай подробнее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2009, 13:27
    #36274666
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Спрятать листы в книге Excel (VBA)
Код: 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
| Ответить | Цитировать | Написать  
27.10.2009, 13:54
    #36274772
lopuxi
lopuxi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Спрятать листы в книге Excel (VBA)
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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Спрятать листы в книге Excel (VBA) / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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