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

Код: 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:55
    #32279794
Яма
Яма
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение листов в Excell
у меня тоже только он неверно работает он меняет свойства только у активного листа а у остальных нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 17:07
    #32279818
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение листов в Excell
Ну так сделайте его активным : worksheets("бля-бля").activate
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 17:10
    #32279821
Яма
Яма
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение листов в Excell
нужно что
Есть большое количество листов в WorkBook им всем нужно задать параметры листа альбомный и т.д. очень долго все это выполняется естли для каждого листа это делать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 10:07
    #32280262
Яма
Яма
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение листов в Excell
Небольшое уточнение

Вот такой код очень долго выполняется если в книге листов 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделение листов в Excell / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 500ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2170668]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 65ms
get topic data:
 14ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 348ms
total:  500ms
x
x
Закрыть


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