Выделение листов в Excell / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / 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

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Ну так сделайте его активным : 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):

start [/forum/topic.php?fid=60&fpage=400&tid=2170668]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	53ms
get topic data:	11ms
get forum data:	2ms
get page messages:	42ms
get tp. blocked users:	1ms
others:	315ms

total:	454ms