Вопрос : Добавлять петлю через некоторые рабочий лист для того чтобы Sub - VBA

Специалисты,

I имеют 2 - подводная лодка шага (см. ниже). Я пытаюсь установить это к на исполнению, котор побежали на следующий рабочий лист только:

ALL Sales
New Sales
Old Sales

I am интересуя если петлей была бы самая лучшая дорога сделать this.

I, то хотел было бы «главным образом макросом» увидены, что в коробка «alt+F8» будет «SetupToPrint». Так действием «петли» была бы внутри подводная лодка SetupToPrint или была бы приватная подводная лодка перед SetPrintAreaToPivotTable, таким образом дающ мне 3 приватных подводной лодки?
class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
>Sub SetupToPrint " class= " id= " codeSnippet807662
class=

Ответ : Добавлять петлю через некоторые рабочий лист для того чтобы Sub - VBA

Попытайтесь это
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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Sub основа ()
SetupToPrint «ВСЕ сбывания»
SetupToPrint «новые сбывания»
SetupToPrint «старые сбывания»
Подводная лодка конца

Приватное Sub SetupToPrint (sh как шнур)
    
    Листы (sh). Активируйте
    Вызовите SetPrintAreaToPivotTable
    Вызовите SetPageBreakToXNumberOfRows

Закончите подводную лодку

Приватное Sub SetPrintAreaToPivotTable ()

    С ActiveSheet
        lPTcells = .PivotTables («PivotTable1») .DataBodyRange.Cells.Count
        Установите rngTopLeft = .PivotTables («PivotTable1») .RowRange.Cells (1)
        Установите rngBotRight = .PivotTables («PivotTable1») .DataBodyRange.Cells (lPTcells)
        strPTAddress = rngTopLeft.Address & «: » & адрес strPT rngBotRight.Address 'не существует!
        .PageSetup.PrintArea = strAddress
    Конец с

Подводная лодка конца

Приватное Sub SetPageBreakToXNumberOfRows ()

    Тусклое Lastrow как длиной
        Тусклое Row_Index как длиной
        Тусклый RW как длиной
    
        'Сколько рядки вы хотите между каждой разбивкой по страницам
        RW = 48
        
        С ActiveSheet
            'Извлекайте все PageBreaks
            .ResetAllPageBreaks
            
            'Ищите для последнего рядка с данными в колонке d
            Lastrow =. Клетки (Rows.Count, «d»). Конец (xlUp). Рядок
            
            Для Row_Index = RW + 2 к шагу RW Lastrow
                .HPageBreaks.Add раньше: =.Cells (Row_Index, 1)
            Затем
    Конец с

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us