Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
Модуль, выполняемый при открытии файла
 
#1
11.02.2008 18:19:43
Требуется, чтобы при открытии файла открывался определенный лист. Заранее благодарю.
 
 
 
#2
11.02.2008 18:30:55
{quote}{login=air}{date=11.02.2008 06:19}{thema=Модуль, выполняемый при открытии файла}{post}Требуется, чтобы при открытии файла открывался определенный лист. Заранее благодарю.{/post}{/quote}  
 
Sub Auto_Open()  
   
 'Вариант1  
 ThisWorkbook.Worksheets(2).Activate  
   
 'Вариант2  
 'ThisWorkbook.Worksheets("Лист2").Activate  
   
 'Вариант3  
 'Лист2.Activate  
   
End Sub
 
 
 
#3
12.02.2008 09:16:27
{quote}{login=}{date=11.02.2008 06:30}{thema=Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=air}{date=11.02.2008 06:19}{thema=Модуль, выполняемый при открытии файла}{post}Требуется, чтобы при открытии файла открывался определенный лист. Заранее благодарю.{/post}{/quote}  
 
Sub Auto_Open()  
   
 'Вариант1  
 ThisWorkbook.Worksheets(2).Activate  
   
 'Вариант2  
 'ThisWorkbook.Worksheets("Лист2").Activate  
   
 'Вариант3  
 'Лист2.Activate  
   
End Sub{/post}{/quote}  
 
Спасибо!  
Есть еще вопросик. А как добавить в этот же модуль снятие автофильтра, но с таким условием, чтобы сначала была проверка, включен ли автофильтр.  
Банальное добавление    
ActiveSheet.ShowAllData  
выдает ошибку в случае, если автофильтра не включен.
 
 
 
#4
12.02.2008 09:16:27
{quote}{login=}{date=11.02.2008 06:30}{thema=Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=air}{date=11.02.2008 06:19}{thema=Модуль, выполняемый при открытии файла}{post}Требуется, чтобы при открытии файла открывался определенный лист. Заранее благодарю.{/post}{/quote}  
 
Sub Auto_Open()  
   
 'Вариант1  
 ThisWorkbook.Worksheets(2).Activate  
   
 'Вариант2  
 'ThisWorkbook.Worksheets("Лист2").Activate  
   
 'Вариант3  
 'Лист2.Activate  
   
End Sub{/post}{/quote}  
 
Спасибо!  
Есть еще вопросик. А как добавить в этот же модуль снятие автофильтра, но с таким условием, чтобы сначала была проверка, включен ли автофильтр.  
Банальное добавление    
ActiveSheet.ShowAllData  
выдает ошибку в случае, если автофильтра не включен.
 
 
 
#5
12.02.2008 09:21:20
{quote}{login=air}{date=12.02.2008 09:16}{thema=Re: Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=}{date=11.02.2008 06:30}{thema=Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=air}{date=11.02.2008 06:19}{thema=Модуль, выполняемый при открытии файла}{post}Требуется, чтобы при открытии файла открывался определенный лист. Заранее благодарю.{/post}{/quote}  
 
Sub Auto_Open()  
   
 'Вариант1  
 ThisWorkbook.Worksheets(2).Activate  
   
 'Вариант2  
 'ThisWorkbook.Worksheets("Лист2").Activate  
   
 'Вариант3  
 'Лист2.Activate  
   
End Sub{/post}{/quote}  
 
Спасибо!  
Есть еще вопросик. А как добавить в этот же модуль снятие автофильтра, но с таким условием, чтобы сначала была проверка, включен ли автофильтр.  
Банальное добавление    
ActiveSheet.ShowAllData  
выдает ошибку в случае, если автофильтра не включен.{/post}{/quote} If ActiveSheet.AutoFilter Then ActiveSheet.ShowAllData
 
 
 
#6
12.02.2008 09:21:20
{quote}{login=air}{date=12.02.2008 09:16}{thema=Re: Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=}{date=11.02.2008 06:30}{thema=Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=air}{date=11.02.2008 06:19}{thema=Модуль, выполняемый при открытии файла}{post}Требуется, чтобы при открытии файла открывался определенный лист. Заранее благодарю.{/post}{/quote}  
 
Sub Auto_Open()  
   
 'Вариант1  
 ThisWorkbook.Worksheets(2).Activate  
   
 'Вариант2  
 'ThisWorkbook.Worksheets("Лист2").Activate  
   
 'Вариант3  
 'Лист2.Activate  
   
End Sub{/post}{/quote}  
 
Спасибо!  
Есть еще вопросик. А как добавить в этот же модуль снятие автофильтра, но с таким условием, чтобы сначала была проверка, включен ли автофильтр.  
Банальное добавление    
ActiveSheet.ShowAllData  
выдает ошибку в случае, если автофильтра не включен.{/post}{/quote} If ActiveSheet.AutoFilter Then ActiveSheet.ShowAllData
 
 
 
#7
12.02.2008 10:16:10
{quote}{login=Лузер}{date=12.02.2008 09:21}{thema=Re: Re: Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=air}{date=12.02.2008 09:16}{thema=Re: Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=}{date=11.02.2008 06:30}{thema=Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=air}{date=11.02.2008 06:19}{thema=Модуль, выполняемый при открытии файла}{post}Требуется, чтобы при открытии файла открывался определенный лист. Заранее благодарю.{/post}{/quote}  
 
Sub Auto_Open()  
   
 'Вариант1  
 ThisWorkbook.Worksheets(2).Activate  
   
 'Вариант2  
 'ThisWorkbook.Worksheets("Лист2").Activate  
   
 'Вариант3  
 'Лист2.Activate  
   
End Sub{/post}{/quote}  
 
Спасибо!  
Есть еще вопросик. А как добавить в этот же модуль снятие автофильтра, но с таким условием, чтобы сначала была проверка, включен ли автофильтр.  
Банальное добавление    
ActiveSheet.ShowAllData  
выдает ошибку в случае, если автофильтра не включен.{/post}{/quote} If ActiveSheet.AutoFilter Then ActiveSheet.ShowAllData{/post}{/quote}  
 
Может я неправильно понял, но  
If ActiveSheet.AutoFilter Then  
   ActiveSheet.ShowAllData  
End If  
выдает ошибку
 
 
 
#8
12.02.2008 10:16:10
{quote}{login=Лузер}{date=12.02.2008 09:21}{thema=Re: Re: Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=air}{date=12.02.2008 09:16}{thema=Re: Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=}{date=11.02.2008 06:30}{thema=Re: Модуль, выполняемый при открытии файла}{post}{quote}{login=air}{date=11.02.2008 06:19}{thema=Модуль, выполняемый при открытии файла}{post}Требуется, чтобы при открытии файла открывался определенный лист. Заранее благодарю.{/post}{/quote}  
 
Sub Auto_Open()  
   
 'Вариант1  
 ThisWorkbook.Worksheets(2).Activate  
   
 'Вариант2  
 'ThisWorkbook.Worksheets("Лист2").Activate  
   
 'Вариант3  
 'Лист2.Activate  
   
End Sub{/post}{/quote}  
 
Спасибо!  
Есть еще вопросик. А как добавить в этот же модуль снятие автофильтра, но с таким условием, чтобы сначала была проверка, включен ли автофильтр.  
Банальное добавление    
ActiveSheet.ShowAllData  
выдает ошибку в случае, если автофильтра не включен.{/post}{/quote} If ActiveSheet.AutoFilter Then ActiveSheet.ShowAllData{/post}{/quote}  
 
Может я неправильно понял, но  
If ActiveSheet.AutoFilter Then  
   ActiveSheet.ShowAllData  
End If  
выдает ошибку
 
 
 
#9
12.02.2008 10:21:27
Пропустил словечко  
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
 
 
 
#10
12.02.2008 10:21:27
Пропустил словечко  
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
 
 
 
#11
12.02.2008 10:24:51
.showalldata Отображает отфильтрованные  данные  
.autofiltermode true/false - если есть кнопки фильтра  
.filtermode true/false - если есть отфильтрованные данные
 
 
 
#12
12.02.2008 10:24:51
.showalldata Отображает отфильтрованные  данные  
.autofiltermode true/false - если есть кнопки фильтра  
.filtermode true/false - если есть отфильтрованные данные
 
 
 
#13
12.02.2008 10:29:25
{quote}{login=kaa}{date=12.02.2008 10:24}{thema=}{post}.showalldata Отображает отфильтрованные  данные  
.autofiltermode true/false - если есть кнопки фильтра  
.filtermode true/false - если есть отфильтрованные данные{/post}{/quote}Одно пропустил и одно лишнее :)
 
 
 
#14
12.02.2008 10:29:25
{quote}{login=kaa}{date=12.02.2008 10:24}{thema=}{post}.showalldata Отображает отфильтрованные  данные  
.autofiltermode true/false - если есть кнопки фильтра  
.filtermode true/false - если есть отфильтрованные данные{/post}{/quote}Одно пропустил и одно лишнее :)
 
 
 
#15
12.02.2008 10:48:11
Всем большое спасибо. Конечные вариант такой:  
Sub Auto_Open()  
ThisWorkbook.Worksheets("Лист5").Activate  
If ActiveSheet.FilterMode Then  
   ActiveSheet.ShowAllData  
End If  
End Sub
 
 
 
#16
28.12.2008 16:23:31
Ничего не могу понять. Когда первый раз добавил этот макрос в книгу, где нет макросов - все работало. Потом начал дописывать макросы - этот перестал работать. Удалил все лишнее - все равно не работает. Мистика. Дописал условие Else: MsgBox "фильтры выключены", показывает это сообщение, т.е. не видит включенные фильтры. Что это может быть?
 
 
 
#17
28.12.2008 17:08:31
Проверил этот макрос у себя - всё сработало. Вы куда поместили этот код?
 
 
 
#18
28.12.2008 17:29:04
А я бы сделал бы так, см. пример
 
 
 
#19
28.12.2008 17:31:42
{quote}{login=Юрий М}{date=28.12.2008 05:08}{thema=}{post}Проверил этот макрос у себя - всё сработало. Вы куда поместили этот код?{/post}{/quote}  
Изначально помещал в книгу. Когда перестал работать пробовал и в листы и в модули.
 
 
 
#20
28.12.2008 17:36:50
Всё верно - я тоже так сделал.    
svobodniy, а у Вас, код, помещещённый в модуль книги, не срабатывает?
 
 
 
#21
28.12.2008 17:38:58
Private Sub Workbook_Open()  
ThisWorkbook.Worksheets("Лист1").Activate  
  If ActiveSheet.FilterMode Then  
     ActiveSheet.ShowAllData  
  End If  
End Sub  
Вот это в модуле книги (если нужна проверка). И всё работает.
 
 
 
#22
28.12.2008 17:45:16
Ни ваш, ни вариант Pavel55 не пашут почему то...
 
 
 
#23
28.12.2008 17:53:20
Замените в присланном файле в коде слово "Лист1" на "КАТАЛОГ". Включсите какое-нибудь условие фильтрации. Сохраните, закройте, откройте. Потом сообщите.
 
 
 
#24
28.12.2008 18:16:46
Так на присланном примере мне надо отключить фильтрацию на листе1. Там как раз для примера я ее включил...  
 
З.Ы. Сделал то, что вы посоветовали - то же самое.
 
 
 
#25
28.12.2008 18:28:58
Вы, видимо, не поняли меня: если фильтрацию отключить (т.е. отображать ВСЕ значения), то макрос вызовет ошибку. Так как проверяется условие включения фильтра. А вот когда открывать книгу, в которой на Вашем листе было какое-либо условие фильтрации, то макрос это условие сбросит, и будут отображены все позции. Может Вам чего-то другого хочеться, но я так понял вопрос.
 
 
 
#26
28.12.2008 18:31:50
Вот Ваш файл. Перед закрытием я поставил фильтр в условие - отображать только груши. Когда Вы откроете этот файл, то увидите ВЕСЬ список. Т.е. Макрос СРАБОТАЛ!.
 
 
 
#27
28.12.2008 18:47:02
Я вас прекрасно понял. И понимаю что делает макрос. Я вам сказал, что мне нужен макрос не для Каталога, а для Лист1. Я его написал в том файле. На листе1 ввел условие фильтру, сохранил, закрыл, открыл - ФИГ...  
 
В вашем файле в Каталоге макрос работает, пишу в макросе Лист1, на листе1 он не работает. Либо я чего-то не понимаю? Там же только 1 параметр менять надо?
 
 
 
#28
28.12.2008 18:51:25
svobodniy, это Вы так шутите? У Вас на листе1 НЕТ фильтров!!! Макрос сделан для сброса УСТАНОВЛЕННЫХ фильтров. Попытайтесь сформулировать задачу иначе.
 
 
 
#29
28.12.2008 18:57:47
Чего-то не понимаете, или не читаете... справку:  
FilterMode Property  
This property is True if the worksheet contains a filtered list in which there are HIDDEN rows.
 
 
 
#30
28.12.2008 19:02:09
Может и не понимаю... Но фильтры в листе1 есть. Прилагаю скрин:  
http://s57.radikal.ru/i158/0812/a9/bc0aa0548471.png  
 
У меня 2007й, может это играет какую-то роль?
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх