Листи в екселі
Модератор: Саня
- Black
- Адміністратор
- Повідомлень: 5194
- З нами з: Чет 27 січня 2005 р. 11:39
- Стать: чоловіча
- Звідки: 127.0.0.1
- Контактна інформація:
Листи в екселі
Хто знає як в екселі зробити листи в оберненому порядку?
хм... ну если листов до 10 -то их можно легко менять местами - "драг-эн-дропом" - типо береш и тянеш до появления "листик" на курсоре... а шоб принципиально поменять ... не знаю даже... листы ведь поименованы не жостко - тоесть их и ренеймить можно ... не явная структура списка походу...
Благодаря деятельности Удаффа неграмотных и ограниченных детей теперь называют не дебилами, а контркультурными писателями.
- keepo
- Модератор
- Повідомлень: 1312
- З нами з: Пон 15 серпня 2005 р. 12:45
- Звідки: Луцьк
- Контактна інформація:
Banzai, рахунки за електрику
black, тобі треба при друці, чи просто в документі. Якщо в доцы - треба писати макрос, або прожку на С. Якщо при друці, то в настройках принтера є "Печатать страницы от начала к концу" і "Печатать страницы от конца к началу".
black, тобі треба при друці, чи просто в документі. Якщо в доцы - треба писати макрос, або прожку на С. Якщо при друці, то в настройках принтера є "Печатать страницы от начала к концу" і "Печатать страницы от конца к началу".
Счастье есть лишь мечта, а горе реально. /Вольтер/
- keepo
- Модератор
- Повідомлень: 1312
- З нами з: Пон 15 серпня 2005 р. 12:45
- Звідки: Луцьк
- Контактна інформація:
1. Створюєш пустий макрос.
2. alt+F11
3. Вибираєш там створений макрос і міняєш все на такий текст:
Sub Макрос1()
Sheets("Лист5").Select
Sheets("Лист5").Move Before:=Sheets(1)
Sheets("Лист4").Select
Sheets("Лист4").Move Before:=Sheets(2)
Sheets("Лист3").Select
Sheets("Лист3").Move Before:=Sheets(3)
Sheets("Лист2").Select
Sheets("Лист2").Move Before:=Sheets(4)
End Sub
4. Кусок
Sheets("Лист№").Select
Sheets("Лист№").Move Before:=Sheets(номер по порядку)
можна повторювати до безкінечності, або 150 раз, тільки назву в лапках став відповідно до назв листів в тебе і не попутай нумерацію... і буде тобі щастя
2. alt+F11
3. Вибираєш там створений макрос і міняєш все на такий текст:
Sub Макрос1()
Sheets("Лист5").Select
Sheets("Лист5").Move Before:=Sheets(1)
Sheets("Лист4").Select
Sheets("Лист4").Move Before:=Sheets(2)
Sheets("Лист3").Select
Sheets("Лист3").Move Before:=Sheets(3)
Sheets("Лист2").Select
Sheets("Лист2").Move Before:=Sheets(4)
End Sub
4. Кусок
Sheets("Лист№").Select
Sheets("Лист№").Move Before:=Sheets(номер по порядку)
можна повторювати до безкінечності, або 150 раз, тільки назву в лапках став відповідно до назв листів в тебе і не попутай нумерацію... і буде тобі щастя
Счастье есть лишь мечта, а горе реально. /Вольтер/