Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 23, средняя оценка - 4.96
analyst
434 / 141 / 9
Регистрация: 12.01.2009
Сообщений: 675
Записей в блоге: 1
#1

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

29.01.2010, 13:40. Просмотров 3098. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить существует ли лист в книге (VBA):

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

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

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

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

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

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

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
Привет! Вот еще темы с ответами:

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

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

Нужно чтобы столбик в одной книге преобразовать в строку в другой книге - VBA
Здравствуйте. Нет ли какого изящного решения, чтобы столбик в одной книге преобразовать в строку в другой книге. Или надо переносить по...

Как определить номер страницы к книге экселя? - VBA
Ситуация такая, допустим была книга из 2 страниц с номерами 4 и 5 (номера это не названия), то указывая в качестве идекса эти номера...


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

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

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