powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить лист по названию
5 сообщений из 5, страница 1 из 1
Удалить лист по названию
    #36531854
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите как удалить лист если его название не = "hello"
Другими словами если имя листа не "hello" то одним нажатием он бы удалялся.
Спасибо!
...
Рейтинг: 0 / 0
Удалить лист по названию
    #36531868
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Suleyman,

Код: plaintext
if activesheet.name<>"hello" then activesheet.delete
...
Рейтинг: 0 / 0
Удалить лист по названию
    #36531893
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все так просто, Спасибо!!!
...
Рейтинг: 0 / 0
Удалить лист по названию
    #36531960
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Sheets_Delete()
Dim Sh As Worksheet
Application.DisplayAlerts = False
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "hello" Then Sh.Delete
    Next Sh
Application.DisplayAlerts = True
End Sub
...
Рейтинг: 0 / 0
Удалить лист по названию
    #36531966
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот так будет правильнее
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Sheets_Delete()
Dim Sh As Worksheet
Application.DisplayAlerts = False
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "hello" And ThisWorkbook.Worksheets.Count >  1  Then Sh.Delete
    Next Sh
Application.DisplayAlerts = True
End Sub
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить лист по названию
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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