Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сократить название листа (окончание названия может быть разным)
 
#1
26.02.2021 13:43:57
Добрый день!

Записал простой макрос для переименования листа Excel
Код
    Sheets("Словарь 195").Name = "Словарь"

Но после названия - Словарь - могут быть любые цифры, т.е. не только 195, а к примеру 30, 504 или 1635
И нужно оставить только - Словарь соответственно.
Подскажите пожалуйста, как можно это сделать?

СПАСИБО
 
 
 
#2
26.02.2021 13:52:38
Код
Sub NewSheetName()
    Dim snt As Worksheet
    
    For Each sht In Worksheets
        If Left$(sht.Name, 7) = "Словарь" Then
            sht.Name = "Словарь": Exit Sub
        End If
    Next sht
End Sub
 
 
 
#3
26.02.2021 13:53:15
Перебрать листы: если имя содержит "Словарь" и любые символы после него (*), то поменять имя.
 
 
 
#4
26.02.2021 13:59:59
СПАСИБО!
Вопрос закрыт!
 
 
 
Страницы: 1
Наверх