Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как определить, существует ли лист с определенным именем (в Екселе)? / 8 сообщений из 8, страница 1 из 1
10.05.2006, 16:30:21
    #33718290
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, существует ли лист с определенным именем (в Екселе)?
Как определить, существует ли лист с определенным именем (в Екселе)?
...
Рейтинг: 0 / 0
10.05.2006, 16:47:22
    #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
10.05.2006, 17:03:39
    #33718416
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, существует ли лист с определенным именем (в Екселе)?
а как сделать так, чтобы при этом не выскакивало окошко "вы уверены, что хотите удалить этот лист???" ?
...
Рейтинг: 0 / 0
10.05.2006, 17:11:31
    #33718449
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, существует ли лист с определенным именем (в Екселе)?
Код: plaintext
1.
2.
3.
4.
Sub g()
Application.DisplayAlerts = False
Sheets( 1 ).Delete
Application.DisplayAlerts = True
End Sub
...
Рейтинг: 0 / 0
11.05.2006, 05:39:59
    #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
11.05.2006, 09:45:30
    #33719455
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, существует ли лист с определенным именем (в Екселе)?
Пасиба =)
...
Рейтинг: 0 / 0
11.05.2006, 09:56:28
    #33719488
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, существует ли лист с определенным именем (в Екселе)?
а в выше указаном коде для процедуры "g" вместо "1", как я понял нуно указывать имя листа?
...
Рейтинг: 0 / 0
11.05.2006, 10:27:45
    #33719616
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить, существует ли лист с определенным именем (в Екселе)?
ага, именно так.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как определить, существует ли лист с определенным именем (в Екселе)? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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