Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
Функция проверки наличия листа
 
#1
22.07.2011 12:15:59
Помогите пожалуйста скорретировать функцию проверки наличия листа в книге, чтобы она проверяла по кодовому имени листа (кот, присваивает Ексель)
 
 
 
#2
22.07.2011 12:29:27
вариант  
 
Sub io()  
On Error GoTo L1  
If Not Intersect(Sheets("Сводная"), Worksheets) Is Nothing Then  
   ' Действия, если есть  
End If  
L1: If Err = 9 Then MsgBox (1): Resume Next  
End Sub
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#3
22.07.2011 12:46:15
В файле код приложен (в стандартном модуле)  
 
Определить наличие листа по пользовательскому имени ("Сводная") -- справляюсь,  
не справляюсь определить по кодовому имени (который эксель присваивает сама, и который изменить оочень проблематично ("Лист1, Лист2 и т.д.)  
В ВБА это имя перед скобками стоит.  
 
+ еще задача сходная: как узнать пользовательское имя листа, зная его кодовое имя?
 
 
 
#4
22.07.2011 12:53:45
Для ориентировки:  
MsgBox ActiveSheet.CodeName  
Sheets(2).Activate  
P.S. Без привязки к Вашему файлу.
 
 
 
#5
22.07.2011 12:54:44
a = Лист1.Name
 
 
 
#6
22.07.2011 13:02:47
попробуйте так  
Function Sh_Exist2(scodeName As String)  
Dim VBC As Object  
On Error Resume Next  
Set VBC = ThisWorkbook.VBProject.VBComponents(scodeName)  
Sh_Exist2 = Not VBC Is Nothing  
End Function
 
 
 
#7
22.07.2011 13:09:03
Юрий, лист не активен в момент начала работы макроса, активировать его не желательно, без этого можно?:  
...нужно подставить пользоват-е имя листа в переменную, но оно заранее не известно (может менятся), известно только кодовое имя  
ЗЫ: только кодовой имя для операции с листами использовать не хочу (в режиме отладки ф-я изм-я код. имени не хочет работать, т.е. либо весь макрос целиком отрабатывает, либо заканчивает выполнение, а лишаться отладки не хочется)
 
 
 
#8
22.07.2011 13:11:09
RAN,  
блин ф я дурак конструкции строю...  
спасибо, заработался  
 
пошел проверять код webley
 
 
 
#9
22.07.2011 13:15:35
{quote}{login=webley}{date=22.07.2011 01:02}{thema=}{post}попробуйте так  
{/post}{/quote}  
Попробовал.  
VBC всегда Nothing.((
 
 
 
#10
22.07.2011 13:19:53
Активный - это я только для примера. Вторая строка - обращение к листу, который стоит вторым слева. А вот такая строка:  
Лист1.Activate.  
Активирует лист именно с таким кодовым именем. Это как раз для тех случаев, когда пользователь может поменять название листа.
 
 
 
#11
22.07.2011 13:25:11
{quote}{login=RAN}{date=22.07.2011 01:15}{thema=Re: }{post}{quote}{login=webley}{date=22.07.2011 01:02}{thema=}{post}попробуйте так  
{/post}{/quote}  
Попробовал.  
VBC всегда Nothing.(({/post}{/quote}  
 
Да, не учел - работать будет только в том случае, если стоит галочка в настройках безопасности "Доверять доступ к объектной модели проектов VBA"
 
 
 
#12
22.07.2011 13:27:51
Функция webley РАБОТАЕТ!!!
 
 
 
#13
22.07.2011 13:30:27
или еще вариант - перебором  
 
Function Sh_Exist2(scodeName As String)  
   Dim sh As Worksheet  
   Sh_Exist2 = False  
   For Each sh In ThisWorkbook.Sheets  
       If sh.CodeName = scodeName Then Sh_Exist2 = True  
   Next sh  
End Function
 
 
 
#14
22.07.2011 13:35:10
Еще вопрос  
выделить лист по кодовому имени можно так: Лист1.Select  
 
а как можно выделить лист с использованием переменной в которой хранится его код. имя?  
 
cname = Sheets("Атата").Codename  
 
cname.Select не хочет работать(((
 
 
 
#15
22.07.2011 13:42:51
Dim x As Worksheet  
Set x = Лист22  
x.Activate
 
 
 
#16
22.07.2011 14:13:47
а без явного указания имени листа (через переменную?).    
Вот как-то так представляю  
 
Private Sub проверка()  
Dim wsSh As Worksheet, sName As String, scodeName As String, aSh As Worksheet  
 
scodeName = "Лист1"  
aSh = scodeName  
If Sh_Exist2(scodeName) Then aSh.Delete  
End Sub  
 
 
Function Sh_Exist2(scodeName As String)  
Dim VBC As Object  
On Error Resume Next  
Set VBC = ThisWorkbook.VBProject.VBComponents(scodeName)  
Sh_Exist2 = Not VBC Is Nothing  
End Function  
 
 
пока приходится назначать переменную имени листа и самого листа
 
 
 
#17
22.07.2011 14:18:09
{quote}{login=Юрий М}{date=22.07.2011 01:42}{thema=}{post}Dim x As Worksheet  
Set x = Лист22  
x.Activate{/post}{/quote}  
 
Юрий, не могу так сделать  
при выполнении ругается: говорит что не объявлена переменная и выделяет Лист22 (если его нет в книге)
 
 
 
#18
22.07.2011 14:18:57
... это в макросе проверки наличия листа, т.е.е его может и не быть
 
 
 
#19
22.07.2011 14:23:35
ThisWorkbook.VBProject.VBComponents(scodeName).activate
 
 
 
#20
22.07.2011 14:23:49
>> при выполнении ругается: говорит что не объявлена переменная и выделяет Лист22 (если его нет в книге  
Ну у меня ведь он есть - этот лист и активируется. У Вас будет другое кодовое имя - его и указывайте. Как он может активировать то, чего нет?
 
 
 
#21
22.07.2011 14:28:27
to Юрий -- логика такая: проверяем наличие листа, если есть -- активируем...  
 
to webley -- такое знаю но не желаетльнл его брать, у меня все коды с VBComponents выбивают режим отладки (а его лишаться не хочу)
 
 
 
#22
22.07.2011 14:44:09
Вы пытаетесь обратиться, используя переменную - текстовую строку, а кодовое имя листа - это объект, а не название.
 
 
 
#23
22.07.2011 14:45:27
webley  
виноват -- с активацией нормально отрабатывает, видимо особенность связана только с переименованием код. имени  
я так понимаю тут:  
ThisWorkbook.VBProject.VBComponents(scodeName).  
 
метод Delete не пременим? а как удалить? активация не прокатывает, лист м.б. скрытым)),
 
 
 
#24
22.07.2011 14:49:43
{quote}{login=Юрий М}{date=22.07.2011 02:44}{thema=}{post}Вы пытаетесь обратиться, используя переменную - текстовую строку, а кодовое имя листа - это объект, а не название.{/post}{/quote}  
 
Я это понимаю, но как правильно сделать нет?  
Задача: проверить есть лист или нет (проверка по кодовому имени), если есть удалить.  
делаю так:  
Private Sub проверка()  
Dim wsSh As Worksheet, sName As String, scodeName As String, aSh As Worksheet  
 
scodeName = "Лист1"  
aSh = scodeName  
If Sh_Exist2(scodeName) Then КАК ЕГО УДАЛИТЬ?  
End Sub  
 
 
Function Sh_Exist2(scodeName As String)  
Dim VBC As Object  
On Error Resume Next  
Set VBC = ThisWorkbook.VBProject.VBComponents(scodeName)  
Sh_Exist2 = Not VBC Is Nothing  
End Function
 
 
 
#25
22.07.2011 14:55:48
Можно перебрать циклом: если встретится лист с нужным кодовым именем - удалить его:  
Dim i As Integer, x As Worksheet  
Application.DisplayAlerts = False  
Set x = Лист22  
For i = 1 To Sheets.Count  
If Sheets(i).CodeName = x.CodeName Then x.Delete  
Next  
Application.DisplayAlerts = True
 
 
 
#26
22.07.2011 15:10:21
затыкается на строчке Set x = Лист22  
 
и ругается со словами объект реквайред (ош.424)
 
 
 
#27
22.07.2011 15:11:43
{quote}{login=ABZAC}{date=22.07.2011 03:10}{thema=Юрий}{post}затыкается на строчке Set x = Лист22{/post}{/quote}  
А у Вас ЕСТЬ лист с таким кодовым именем? Откуда мне знать - наличие какого листа Вы собираетесь проверить? У меня в книге был - удалился.
 
 
 
#28
22.07.2011 15:13:40
нет, конечно  
так и задача ведь не найти и удалить, а проверить наличие (т.е. его м.б. не быть) и если есть то удалить
 
 
 
#29
22.07.2011 15:19:46
а зачем вам тогда проверять его наличие? просто поставьте - удалить  
Sub shdel()  
   Dim shcodname As String  
   Dim sh As Worksheet  
   shcodname = "Лист1"  
   On Error Resume Next  
   Application.DisplayAlerts = False  
       For Each sh In ThisWorkbook.Sheets  
           If sh.CodeName = shcodname Then sh.Delete  
       Next  
   Application.DisplayAlerts = True  
   On Error GoTo 0  
End Sub
 
 
 
#30
22.07.2011 15:23:45
{quote}{login=ABZAC}{date=22.07.2011 03:13}{thema=}{post}задача ведь не найти и удалить, а проверить наличие (т.е. его м.б. не быть) и если есть то удалить{/post}{/quote}А это разве не одно и то же? Вы ведь какой-то конкретный лист хотите удалить.
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх