ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сортировка листов в определенном порядке
5 сообщений из 5, страница 1 из 1
Сортировка листов в определенном порядке
    #37956159
danzki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
danzki
Участник
Добрый день, друзья

Можно ли как-то принудительно поставить лист на какую либо позицию?

Задача в следующем. Есть книга, в которой листы располагаются в следующем порядке

<S1><S2><S3>..<Sn><D1><D2><D3>..<Dn><L1><L2><L3>..<Ln>,

где S, D, L - определенная последовательность символов (одинаковая для листов S, D, L соответственно),
а 1, 2, 3 - различные в рамках S, D, L

а должны располагаться

<S1><D1><L1><S2><D2><L2>..<Sn><Dn><Ln>

Идея такая - сделать три массива в первом собрать Имена листов S, во Втором - листов D, в Третьем - листов L
Затем их расставлять по местам в цикле.

Опыта в VBA мало совсем, на уровне Записать макрос, посмотреть, адаптировать его под себя
Можно ли так сделать?
...
Рейтинг: 0 / 0
13.09.2012, 14:53
| Ответить | Цитировать | Написать  
Сортировка листов в определенном порядке
    #37956179
QValD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QValD
Участник
danzki,
ну так запиши макрос с перемещением листа.

Код: vbnet
1.
Sheets(3).Move Before:=Sheets(2)
...
Рейтинг: 0 / 0
13.09.2012, 14:57
| Ответить | Цитировать | Написать  
Сортировка листов в определенном порядке
    #37956207
danzki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
danzki
Участник
Да я уже понял.
Собираем три массива.
Потом бежим от 1 до длинаМассива
и Sheet("D").Move After:=Sheet("S")

типа такой конструкции
...
Рейтинг: 0 / 0
13.09.2012, 15:08
| Ответить | Цитировать | Написать  
Сортировка листов в определенном порядке
    #37957318
analysts
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
analysts
Участник
danzki, вот решение от одного из лучших профессионалов по похожей задаче. Может пригодится.
...
Рейтинг: 0 / 0
14.09.2012, 11:29
| Ответить | Цитировать | Написать  
Сортировка листов в определенном порядке
    #37957763
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
В Excel не надо заморачиваться с массивами и сортировкой :-)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub SortSheets_danzki()
Dim wb As Workbook, s, i&
Application.ScreenUpdating = False
Set wb = ActiveWorkbook
With Workbooks.Add(xlWBATWorksheet)
    For Each s In wb.Sheets
        i = i + 1
        s = s.Name
        Cells(i, 1) = s
        s = StrReverse(Val(StrReverse(s & "1")))
        Cells(i, 2) = Left(s, Len(s) - 1)
    Next
    [B1].Sort [B1], xlAscending, Header:=False
    i = 0
    For Each s In ActiveSheet.UsedRange.Columns(1).Cells.Value
        i = i + 1
        wb.Sheets(s).Move before:=wb.Sheets(i)
    Next
    .Close 0
End With
Application.ScreenUpdating = True
End Sub
...
Рейтинг: 0 / 0
14.09.2012, 13:55
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сортировка листов в определенном порядке
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37956207&tid=2157447]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 13ms
total:  144ms
созд. / загр.: 144ms
x
x
Закрыть


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