Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35799
Главная » Готовые решения » VBA » Полезные приёмы

Существует ли определенный лист в книге?
24.09.2013, 17:37
Проверим наличие, например, листа "Sheet8". Если такого листа нет, то добавим его в книгу
Sub example_1()
On Error Resume Next
'Sheets("Sheet8").Activate
'or
With Sheets("Sheet8"): End With
If Err Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Sheet8": Err.Clear
On Error GoTo 0
End Sub
Sub example_2()
Dim wsh As Worksheet, bu As Boolean: bu = True
For Each wsh In ThisWorkbook.Worksheets
 If wsh.Name = "Sheet8" Then bu = False: Exit For
Next wsh
If bu Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Sheet8"
End Sub
Sub example_3()
Dim s$: s = "Sheet8"
If Not Evaluate("ISREF('" & s & "'!A1)") Then
 Sheets.Add(after:=Sheets(Sheets.Count)).Name = s
Else
 Sheets(s).Activate
End If
End Sub
Sub example_4()
If SheetExists("Sheet8") = False Then
 Sheets.Add after:=Worksheets(Worksheets.Count)
 ActiveSheet.Name = "Sheet8"
End If
End Sub

Function SheetExists(WSName) As Boolean
On Error Resume Next
SheetExists = Sheets(WSName).Name = WSName
On Error GoTo 0
End Function
Добавил: nilem | | Теги: лист, найти, в книге, существует, добавить
Просмотров: 2251 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!