формула на автоматическое изменение названия листа книги - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/формула на автоматическое изменение названия листа книги - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

формула на автоматическое изменение названия листа книги (Формулы/Formulas)

формула на автоматическое изменение названия листа книги

Дата: Четверг, 15.02.2018, 13:48 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 42

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

добрый день форумчане! и гуру экселя

я через поиск пробовал найти нужную мне тему, но что-то как то не получилось

может есть какая то формула или макрос на автоматическое изменение листа рабочей книги при изменении определённой ячейки?

т.е. у меня к примеру есть рабочая книга (excel-файл) "Продукты"..в ней есть 1 лист с названием "Овощи" и в ячейке к примеру B2 если вставить название "Фрукты" то лист "Овощи" автоматом переименовывается в "Фрукты"

как такое реализовать? было бы неплохо если бы это был автоматический макрос или формула

Сообщение отредактировал h1dex - Четверг, 15.02.2018, 13:49

Ответить

Дата: Четверг, 15.02.2018, 13:54 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

[vba]

Код

Private Sub Worksheet_Activate()
Dim i&
i = 1
Sheets(i).Name = Sheets(i).[a1].Value
End Sub

[/vba]
У меня работает. в А1 то название в которое нуно переименовать

К сообщению приложен файл: 7163569.xlsm (13.8 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Четверг, 15.02.2018, 13:58

Ответить

Дата: Четверг, 15.02.2018, 15:03 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 42

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

работает..но переименование листа происходит только при переключении на другой лист т.е. переименование листа происходит не сразу

я ещё забыл сказать что у меня 2 ячейки объединены в одну

Ответить

Дата: Четверг, 15.02.2018, 15:05 | Сообщение № 4

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Ну дык поменяйте
[vba]

Код

Private Sub Worksheet_Activate()

[/vba]
на
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)

[/vba]
на изменение ячейки

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 15.02.2018, 15:17 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 42

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

а как полностью будет код? у меня ошибку начало выдавать

я так вставил:

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
i = 1
Sheets(i).Name = Sheets(i).[a1].Value
End Sub

[/vba]

Ответить

Дата: Четверг, 15.02.2018, 15:22 | Сообщение № 6

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

я вставил код из вашего поста в свой пример: никакой ошибки

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 15.02.2018, 15:28 | Сообщение № 7

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

А, у вас наверное лист не первым идет. Попробуйте так
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Sh = Range("A1").Value
ActiveSheet.Name = Sh
End Sub

[/vba]
в модуль листа

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Четверг, 15.02.2018, 15:28

Ответить

Дата: Четверг, 15.02.2018, 15:43 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 42

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

работает..спасибо

Ответить

формула на автоматическое изменение названия листа книги (Формулы/Formulas)

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!