Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / нумерация листов / 8 сообщений из 8, страница 1 из 1
31.05.2006, 10:05:08
    #33762360
user :)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нумерация листов
Привет всем.
Ситуация следующая: добавляю в новую книгу листы путем копирования, в книге листы создаются с прежним названием + номер в скобочках, например Лист1(3). Теперь, допустим, я вспомнил, что пропустил один листок, копирую его, он создаётся в нашей книге с номером уже следующего листа, пример: Лист1, Литс1(2), Лист1(3), Лист1(4). Я перемещаю его на нужное место, пример: Лист1, Лист1(2), Лист1(4), Лист1(3). А теперь, чтоб не запутаться, возможно ли пронумеровать листы, желательно не вручную :), чтобы их названия соответствовали их местоположению? Попытался наиболее подробно описать ситуацию. Спасибо.
...
Рейтинг: 0 / 0
31.05.2006, 10:55:52
    #33762571
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нумерация листов
Что-то не ясно, разве названия Лист1, Литс1(2), Лист1(3), Лист1(4) не соответсвуют расположению?
...
Рейтинг: 0 / 0
31.05.2006, 11:13:27
    #33762643
user :)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нумерация листов
это когда я добавляю новый лист, Лист1(4), которому необходимо находиться на 3 месте при уже созданном листе Лист1(3), я его потом перемещаю, получается Лист1, Лист1(2), Лист1(4), Лист1(3), а таких листов множество, и перемещений таких тоже множество. а хочется , чтоб они каким-нибудь образом нумеровались.
...
Рейтинг: 0 / 0
31.05.2006, 11:17:15
    #33762660
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нумерация листов
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub f()
    Dim mySh As Worksheet
    Dim x As Long
    For Each mySh In ThisWorkbook.Sheets
        mySh.Name = "Лист" & x
        x = x +  1 
    Next
End Sub
...
Рейтинг: 0 / 0
31.05.2006, 11:29:50
    #33762730
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нумерация листов
Можно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub Макрос1()
Dim ST As Worksheet, i As Long
i =  1 
For Each ST In ActiveWorkbook.Worksheets
    ST.Name = "т" & i
    i = i +  1 
Next
For Each ST In ActiveWorkbook.Worksheets
    ST.Name = "Лис" & ST.Name
Next
End Sub
при этом листы с диаграммами не вызовут ошибку и просто будут пропущены,
и надеюсь у Вас нет листов с именами типа т1,т2.
...
Рейтинг: 0 / 0
31.05.2006, 11:39:47
    #33762778
user :)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нумерация листов
спасибо за код, он работает
...
Рейтинг: 0 / 0
31.05.2006, 11:46:21
    #33762809
user :)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нумерация листов
все-таки одна загвоздочка, при повтопрон использовании, т.е. мы добавляем очередной пропущенный лист, и происходит вот что: лист0, лист1, лист2, "нововведенный лист, название не важно", лист3. так вот при повторном использовании при попытке переименовать наш "нововведенный лист, название не важно", мы получаем следующее сообщение: "нельзя присвоить имя листу, имя совпадающее с именем другого листа...", т.к. наш лист он переименовывает в уже существующий лист3. можно ли вот этого избежать ? . Спасибо.
...
Рейтинг: 0 / 0
31.05.2006, 11:51:15
    #33762830
user :)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нумерация листов
все, работает, спасибо :)
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / нумерация листов / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]