|
|
|
переименование листов в excel по порядку
|
|||
|---|---|---|---|
|
#18+
Всем добрый день! Помогите, пожалуйста. Есть книга, в которой более 200 листов. Лист с 7 по предпоследний называются ОЛ1, ОЛ2 ....и т.д. Название листа должно быть привязано к ячейке А1 на соответствующем листе. При этом периодически удаляются или добавляются новые листы. Необходимо, чтобы после удаления или добавления листа все листы с названиями ОЛ... автоматически переименовывались по порядку: ОЛ1, ОЛ" и тд. Пробовала добавлять макрос для переименования каждого листа (в исходный текст листа). Работает после только после того, как нажмешь ентер в ячейке А1, но самое главное, что невозможно сразу переименовать все листы, возникает конфликт. Необходимо, чтобы макрос переименовывал листы по очереди, с 7 (ОЛ1) до предпоследнего листа в книге после удаления или добавления листов. Спасибо всем! Наташа ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.04.2014, 21:45 |
|
||
|
переименование листов в excel по порядку
|
|||
|---|---|---|---|
|
#18+
Создайте макрос, не связанный с событиями листа. Запускайте его в явной форме из списка макроосов или выведите на кнопку на панели. Чтобы избежать конфликта имён, делайте два переименования. PS. Листы в книге - это коллекция. И я не припоминаю, чтобы в документации гарантировалось соответствие порядка листов в коллекции и порядка их отображегния на экране... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.04.2014, 22:04 |
|
||
|
переименование листов в excel по порядку
|
|||
|---|---|---|---|
|
#18+
Значит, при переименовании листа надо менять его ячейку А1? Как добавляются листы - путем создания нового или путем переноса из другой книги? Приложите книгу с несколькими листами для переименования (данные удалите). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.04.2014, 22:08 |
|
||
|
переименование листов в excel по порядку
|
|||
|---|---|---|---|
|
#18+
КазанскийЗначит, при переименовании листа надо менять его ячейку А1?Я думаю, что просто макрос прописан в worksheet_change или там keypress - отсюда и необходимость жать Enter. А в какой ячейке - стопудово пофиг... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.04.2014, 14:32 |
|
||
|
переименование листов в excel по порядку
|
|||
|---|---|---|---|
|
#18+
Всем спасибо! Сделала вот так: Sub Rename() For i = 7 To Worksheets.Count - 1 Worksheets(i).Activate Worksheets(i).Name = Worksheets(i).Range("A1") Next i End Sub Есть еще вопросы по этой же книге, но для них создам отдельные темы. Наташа ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.04.2014, 23:07 |
|
||
|
переименование листов в excel по порядку
|
|||
|---|---|---|---|
|
#18+
natasha_tr, отлично! 3-ю строку уберите. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.04.2014, 23:31 |
|
||
|
|
start [/forum/topic.php?fid=61&msg=38623032&tid=2174079]: |
0ms |
get settings: |
11ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
49ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
52ms |
get tp. blocked users: |
2ms |
| others: | 318ms |
| total: | 468ms |
| 0 / 0 |
