powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как определить, существует ли лист с определенным именем (в Екселе)?
8 сообщений из 8, страница 1 из 1
Как определить, существует ли лист с определенным именем (в Екселе)?
    #33718290
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как определить, существует ли лист с определенным именем (в Екселе)?
...
Рейтинг: 0 / 0
Как определить, существует ли лист с определенным именем (в Екселе)?
    #33718366
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
Private Function SheetExists(sname) As Boolean
    Dim x As Object
    On Error Resume Next
    Set x = ActiveWorkbook.Sheets(sname)
    If Err =  0  Then SheetExists = True Else SheetExists = False
End Function
вызов
Код: plaintext
1.
2.
Sub test()
    If SheetExists("Лист1") = True Then MsgBox "Лист существует"
End Sub
...
Рейтинг: 0 / 0
Как определить, существует ли лист с определенным именем (в Екселе)?
    #33718416
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а как сделать так, чтобы при этом не выскакивало окошко "вы уверены, что хотите удалить этот лист???" ?
...
Рейтинг: 0 / 0
Как определить, существует ли лист с определенным именем (в Екселе)?
    #33718449
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
Sub g()
Application.DisplayAlerts = False
Sheets( 1 ).Delete
Application.DisplayAlerts = True
End Sub
...
Рейтинг: 0 / 0
Как определить, существует ли лист с определенным именем (в Екселе)?
    #33719193
Фотография Аленочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function FindList(SheetName As String) As Boolean
   Dim i As Integer
  FindList = False
     For i =  1  To ThisWorkbook.Sheets.Count 
       If ThisWorkbook.Sheets(i).Name = SheetName Then 
         FindList = True
        Exit Function
      End If
  Next i
End Function

Аленочка тм
...
Рейтинг: 0 / 0
Как определить, существует ли лист с определенным именем (в Екселе)?
    #33719455
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пасиба =)
...
Рейтинг: 0 / 0
Как определить, существует ли лист с определенным именем (в Екселе)?
    #33719488
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а в выше указаном коде для процедуры "g" вместо "1", как я понял нуно указывать имя листа?
...
Рейтинг: 0 / 0
Как определить, существует ли лист с определенным именем (в Екселе)?
    #33719616
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ага, именно так.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как определить, существует ли лист с определенным именем (в Екселе)?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]