ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделение листов в Excell
6 сообщений из 6, страница 1 из 1
Выделение листов в Excell
    #32279775
Яма
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Яма
Гость
Необходимо выделить n-ое количество листов и выставить у них свайства PageSetup
...
Рейтинг: 0 / 0
30.09.2003, 16:47
| Ответить | Цитировать | Написать  
Выделение листов в Excell
    #32279789
Г@Д
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Г@Д
Гость
у мкня Ёксель записал такой макро

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Sheets(Array( "Sheet1" ,  "Sheet2" ,  "Sheet3" )).Select
    Sheets( "Sheet1" ).Activate
    With ActiveSheet.PageSetup
        .LeftHeader =  ""
        .CenterHeader = "  "
        .RightHeader = "  "
        .LeftFooter = "  "
        .CenterFooter = "  "
        .RightFooter = " "
        .LeftMargin = Application.InchesToPoints( 0 . 75 )
        .RightMargin = Application.InchesToPoints( 0 . 75 )
        .TopMargin = Application.InchesToPoints( 1 )
        .BottomMargin = Application.InchesToPoints( 1 )
        .HeaderMargin = Application.InchesToPoints( 0 . 5 )
        .FooterMargin = Application.InchesToPoints( 0 . 5 )
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality =  600 
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom =  100 
        .PrintErrors = xlPrintErrorsDisplayed
    End With
...
Рейтинг: 0 / 0
30.09.2003, 16:54
| Ответить | Цитировать | Написать  
Выделение листов в Excell
    #32279794
Яма
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Яма
Гость
у меня тоже только он неверно работает он меняет свойства только у активного листа а у остальных нет
...
Рейтинг: 0 / 0
30.09.2003, 16:55
| Ответить | Цитировать | Написать  
Выделение листов в Excell
    #32279818
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Ну так сделайте его активным : worksheets("бля-бля").activate
...
Рейтинг: 0 / 0
30.09.2003, 17:07
| Ответить | Цитировать | Написать  
Выделение листов в Excell
    #32279821
Яма
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Яма
Гость
нужно что
Есть большое количество листов в WorkBook им всем нужно задать параметры листа альбомный и т.д. очень долго все это выполняется естли для каждого листа это делать
...
Рейтинг: 0 / 0
30.09.2003, 17:10
| Ответить | Цитировать | Написать  
Выделение листов в Excell
    #32280262
Яма
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Яма
Гость
Небольшое уточнение

Вот такой код очень долго выполняется если в книге листов 20 например
Вопрос и состоит в том как теже действия сделать побыстрее.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim oI As Worksheet 
For Each oI In oEx.Worksheets 
With oI.PageSetup 
.Orientation = xlLandscape 
.LeftMargin = oEx.InchesToPoints( 0 . 354330708661417 ) 
.RightMargin = oEx.InchesToPoints( 0 . 354330708661417 ) 
.TopMargin = oEx.InchesToPoints( 0 . 393700787401575 ) 
.BottomMargin = oEx.InchesToPoints( 0 . 393700787401575 ) 
End With 
Next oI
...
Рейтинг: 0 / 0
01.10.2003, 10:07
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделение листов в Excell
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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