Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/17: Рейтинг темы: голосов - 17, средняя оценка - 4.53
analyst
435 / 142 / 9
Регистрация: 12.01.2009
Сообщений: 678
Записей в блоге: 1
#1

Определить существует ли лист в книге

29.01.2010, 13:40. Просмотров 3138. Ответов 1
Метки нет (Все метки)

Привет всем.
Подскажите пожалуйста как определить существует ли лист в книге имя которого известно.
Я понимаю что у задачи множество способов решения. Попробовал поискать в хэлпе что-нибудь вроде exist, но там про это ничего не было. Единственно что придумал вот:
Visual Basic
1
2
3
For Each ws In Worksheets
    If ИмяЛиста = ws.Name  Then Exit Sub
Next ws
Но мне это очень кривым кажется

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.01.2010, 13:40
Ответы с готовыми решениями:

Определить, есть ли лист в книге с заданным именем
Нужно программно спросить есть ли лист в книге Excel с таким именем

Новый лист с таким же названием но в конце порядковый номер если лист уже существует
Здравствуйте. Нужна маленькая помощь. Делаю копию листа , название беру из...

Есть ли лист с определенным именем в книге?
Коллеги, подскажите, как определить это? Спасибо!

При изменении значения в одной книге, вставить лист из другой книги
Здравствуйте! Имеются два файла xls: "Книга рабочая" и "Книга с модулями"....

Как в рабочей книге добавить лист и назвать его по своей фамилии
Нужен макрос. Суть такова: в рабочей книге добавить лист и назвать его по своей...

1
EducatedFool
0 / 0 / 0
Регистрация: 28.09.2009
Сообщений: 88
29.01.2010, 17:25 #2
http://msoffice.nm.ru/faq/macros/worksheets.htm#faq94

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Function WorksheetIsExist(iName$) As Boolean
'***********************************************'
'   Дата создания 01/01/2005                    '
'   Автор Климов Павел Юрьевич                  '
'   [url]http://www.msoffice.nm.ru[/url]                   '
'***********************************************'
    On Error Resume Next
    WorksheetIsExist = IsObject(Worksheets(iName$))
End Function
 
Private Function WorksheetIsExist(iName$) As Boolean
    On Error Resume Next
    WorksheetIsExist = (TypeOf Worksheets(iName$) Is Worksheet)
End Function
 
Private Function WorksheetIsExist(iName$) As Boolean
    On Error Resume Next
    WorksheetIsExist = (TypeName(Worksheets(iName$)) = "Worksheet")
End Function
 
Private Function WorksheetIsExist(iName$) As Boolean
    On Error Resume Next
    WorksheetIsExist = (VarType(Worksheets(iName$)) = vbObject)
End Function
 
Private Function WorksheetIsExist(iName$) As Boolean
    On Error Resume Next
    WorksheetIsExist = Len(Worksheets(iName$).Name) > 0
End Function
 
Private Function WorksheetIsExist(iName$) As Boolean
    On Error Resume Next
    WorksheetIsExist = Worksheets(iName$).Index > 0
End Function
 
 
 
'Пример вызова любой из вышеопубликованных авторских функций :
 
Private Sub Test()
    MsgBox WorksheetIsExist("Имя_Рабочего_Листа")
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2010, 17:25

Подскажтие, как объединить книги, чтобы формулы ссылались на лист в объединенной книге
Здравствуйте! Подскажите пожалуйста, как осуществить следующее. Была...

Нужно найти в книге лист, название которого равно значению этой переменной
В переменной находится некое значение. Нужно найти в книге лист, название...

Как грамотно сформировать условие, проверяющее, существует ли лист с таким-то названием или нет?
Как грамотно сформировать условие, проверяющее, существует ли лист с таким-то...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru