Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Необходимо чтобы название текущего листа переменовывалось автоматически на значение которое находится в Ячейке A1
 
#1
13.04.2018 05:22:05
Доброе утро!
Подскажите пожалуйста как сделать так, чтобы название текущего листа переменовывалось автоматически на значение которое находится, например в Ячейке A1
 
 
 
#2
13.04.2018 06:01:28
В общем случае так (скопируйте код в модуль листа):
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = Target
    End If
End Sub
Но есть опасность получить ошибку, если в ячейку будет введено недопустимое значение.
 
 
 
#3
13.04.2018 06:41:59
спасибо! Всё работает!
 
 
 
#4
13.04.2018 06:45:38
Нажал Alt11, вставил код, но что-то при нажатии alt8 макроса не показывает. Наверное, я что-то сделал не так?
 
 
 
#5
13.04.2018 07:46:00
Этот код нужно вставить в модуль листа. ПКМ по ярлыку нужного листа - Исходный текст
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
13.04.2018 08:16:25
Цитата
maryo написал:
при нажатии alt8 макроса не показывает
И не должно показывать: Private ))
 
 
 
#7
13.04.2018 11:25:53
Цитата
Sanja написал:
Этот код нужно вставить в модуль листа. ПКМ по ярлыку нужного листа - Исходный текст
Извиняюсь если туплю. Вставил код на Исходный текст. Сохранил, закрыл. Но изменения наименования листа не вижу. Нажал на Alt+F8, там кнопка "выполнить" не горит, не активный. Короче, не могу запускать этот макрос. Как делать?  
 
 
 
#8
13.04.2018 11:29:40
Цитата
maryo написал:
Как делать?  
Наверное так
 
 
 
#9
13.04.2018 11:48:36
Интересно, для меня Вы чудо сотворили. Что-то у меня на начале текста не выходить "Option Explicit". Как сделали??
 
 
 
#10
13.04.2018 11:52:23
Файл сохранил с поддержкой макроса и валя, получился. Спасибо Всем.
 
 
 
Страницы: 1
Наверх