Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как изменить порядок листов в Экселе? / 8 сообщений из 8, страница 1 из 1
19.08.2004, 10:37
    #32656116
kedzo
kedzo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить порядок листов в Экселе?
Всем привет!

Встала проблема такая:

из аксеса печатаю в эксель листы, разное количество штук (1 отчет - 1 лист, количество отчетов можно задать перед запуском процесса)

и встала проблема: после того как все листы сформированы - отчет номер 1 становится последним листом, отчет 2 - предпоследним.
а как им поменять порядок? т.е. чтобы листы шли в том порядке, в котором они печатались из аксеса?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 10:43
    #32656129
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить порядок листов в Экселе?
Есть универсальный способ решения проблем ексель- сделать руками, записать про это макрос и посмотреть на него
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 10:46
    #32656142
madg
madg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить порядок листов в Экселе?
Результат макроса перемещающего лист в Ексе:
Код: plaintext
1.
Sheets("Лист2").Move Before:=Sheets( 1 )

Перемещает указанный лист вперед "Sheets(N)" где N позиция от "начала" :).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2004, 11:05
    #32656195
kedzo
kedzo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить порядок листов в Экселе?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
         Dim intSheetNumber As Integer
         intSheetNumber =  0 
         
         For Each xlsSheet In xlsBook.Sheets
            intSheetNumber = intSheetNumber +  1 
         Next

         For i =  1  To intSheetNumber -  1 
            xlsBook.Sheets( 1 ).Move after:=xlsBook.Sheets(intSheetNumber)
         Next
            
         xlsBook.Sheets( 1 ).Select

а никто не знает может можно как-то сразу:
xlsBook.Sheets(1).Move after:=xlsBook.Sheets.LAST ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2004, 14:06
    #32659031
Alexus12
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить порядок листов в Экселе?
возможно
будет проще выводить отчеты в обратном порядке
от n к 1
и тогда отпадет сама необходимость перемещений

p.s. ограничение xls = 255 листов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2004, 14:11
    #32659054
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить порядок листов в Экселе?
Кстати, никто не будет возражать если я это в форум по Офису перенесу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2004, 14:15
    #32659068
Alexus12
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить порядок листов в Экселе?
еще бывает удобно
при формировании толстой книжки с большим числом листов
сделать лист "содержание"
и в процессе вывода каждого отчета
втыкать на этот суперлист
гиперссылки на каждый из создаваемых листиков
с названиями отчетов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2004, 14:20
    #32659090
kedzo
kedzo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как изменить порядок листов в Экселе?
Alexus12возможно
будет проще выводить отчеты в обратном порядке
от n к 1
и тогда отпадет сама необходимость перемещений

p.s. ограничение xls = 255 листов

ну... может и так.
перечень отчетов зависит от того, какие галки поставил юзер...
хотя можно и пронумеровать отчеты... тем более, что таблица с именами отчетов есть :)


-->В офис!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как изменить порядок листов в Экселе? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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