Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Изменение даты в ячейке с автоматическим переименованием названия листа
 
#1
04.05.2016 00:47:58
Добрый день! Помогите пожалуйста в следующем, надо чтобы лист переименовывался с из ячейки этого же листа. Т.е книга содержит 31 лист, это 31 день. В ячейках каждого листа даты. Сделать так, чтоб переименовал дату в ячейке и переименовалось название листа под дату в ячейке. Файл выложить не могу, весит более 100 кб.
 
 
 
#2
04.05.2016 01:10:22
По какому событию переименовывать?

Хранить в отдельном листе данные одного дня в большинстве случаев неправильно.
 
 
 
#3
04.05.2016 07:00:47
На каждом листе данные одного дня (приход, расход, остаток материала). Да, есть связь между листами, это ссылка в ячейках остатков с предыдущего дня, также меняется дата (дата предыдущего дня +1).
Конечно можно было бы один раз переименовать листы в ручную и забыть(01.01.16; 02.01.16....31.01.16), но дело в том, что мой отчетный период к примеру с 26.02.16-25.03.16, т.е дни между месяцами выпадают(когда 31 день, а когда 28 или 30). Когда я вбиваю дату в первом листе, в остальных дата меняется, это просто, а как сделать чтоб менялись и названия листов?
 
 
 
#4
04.05.2016 10:45:13
Вставьте код в модуль первого листа. При изменении значения в ячейке A1 первого (в модуле которого будет этот код) листа все листы будут переименованы на значение ячейки A1 соответствующего листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
    Dim Sh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        For Each Sh In Worksheets
            Sh.Name = Sh.Range("A1").Text
        Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    End If
End Sub
Изменено: Sanja - 04.05.2016 10:47:11
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
04.05.2016 10:55:32
Цитата
Rinus написал: есть связь между листами, это ссылка в ячейках
Данные правильнее хранить в одной таблице.
 
 
 
#6
04.05.2016 12:28:58
Цитата
vikttur написал: По какому событию переименовывать?
Извините, я не понял ваш вопрос.
 
 
 
#7
04.05.2016 12:45:59
Я Вам написал макрос, который переименовывает листы, при возникновения события изменения значения в ячейке A1 первого листа.
vikttur, имел ввиду при возникновении какого события (их достаточно много в Excel) Вам нужно переименовывать листы? Или может присвоить макрос какой нибудь кнопке на листе? Или просто запускать его при нажатии определенного сочетания клавиш?
Для общего развития
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
04.05.2016 12:50:00
Неплохо бы проверять, есть ли уже лист с таким именем: можем ведь получить ошибку )
 
 
 
#9
05.05.2016 10:00:46
Sanja, олучилось, все работает! Спасибки большие! ))). Чтоб я без вас делал? Спасибо планете EXCEL! Да уж, чем больше изучаешь, тем больше понимаешь, что ни чего не понимаешь. EXCEL- целая наука )
 
 
 
#10
05.05.2016 11:15:05
Rinus, кнопка цитирования не для ответа!!!
 
 
 
#11
24.09.2019 12:39:52
А если требуется переименовать лист в текстовое значение? В имя менеджера, например. Модуль с датой в данном случае не работает.
Изменено: tigor - 24.09.2019 12:40:17
 
 
 
#12
24.09.2019 12:46:27
Всё работает: поменяйте на втором и третьем листах плюс на амперсанд,
Цитата
tigor написал:
требуется переименовать лист в текстовое значение
Имя листа всегда текст ))
 
 
 
#13
09.01.2020 00:31:36
Доброй ночи! Помогите, пожалуйста, - можно ли макрос из #6 приспособить для переименования по следующему принципу - если в "умной" таблице на листе есть колонка "EC_CLASS_NAME", то лист переименовывается в значение из второй строки этой ячейки?
Или по имени таблицы на листе.
На каждом листе всегда одна таблица, имена таблиц не повторяются.

Желаемый результат по примеру - "лист 4" переименовывается в "ADJUSTABLE_SUPPORT", "лист 5" - в "ANGLE_GUIDE".
 
 
 
#14
09.01.2020 03:22:07
Вопрос не по теме
 
 
 
Страницы: 1
Наверх