Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Создание листа в книге, Создание листа в книге
 
Прежде всего хочу отдельное спасибо сказать vikttur и NEW за их терпение.
У меня вот что не получается. У меня в книге иногда бывает лист "О1", а иногда его нет. Как мне по условию создать лист "О1_З", а если его нет - не создавать ничего? Прошу помочь))
 
Попробуйте так

Код
Sub CreateWorksheet()
    If SheetExist("О1") Then 'проверяем есть ли лист О1 в файле, если да, то создаём новый лист
        Worksheets.Add
        ActiveSheet.Name = "О1_З"
    End If
End Sub
 
Function SheetExist(ByVal iName As String) As Boolean
    On Error Resume Next
    With Worksheets(iName): End With
    SheetExist = (Err = 0)
    Err.Clear
End Function
Изменено: New - 8 апр 2021 18:35:44
 
New,Большое спасибо!
Страницы: 1
Читают тему (гостей: 1)
Наверх