Выход только 1 для цикла, а не другой - PullRequest
0 голосов
/ 27 апреля 2018

Я зацикливаю все разрывы страниц в моей рабочей таблице. У меня есть цикл внутри другого цикла. Когда мое условие выполнено, я хочу выйти только из внутреннего цикла, но почему мой код выходит из обоих циклов, когда есть еще больше страниц разрыва для цикла? Вот что у меня есть:

FoundRange = Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row

getLastRow = FoundRange
ActiveSheet.PageSetup.PrintArea = ("$A$1:$Q$" & getLastRow + 500) '*** Need to increase my printarea to accomodate all the pagebreak i was setting along the way, changed to 1000 and it works.
For Each pb In ws.HPageBreaks
    For i = pb.Location.Row To 17 Step -1
        if i - getLastRow < 14 then
            ActiveSheet.HPageBreaks.Add Before:=Cells(getLastRow + 1, 1)
            ActiveSheet.PageSetup.PaperSize = xlPaperA4
            ActiveSheet.PageSetup.PaperSize = xlPaperLetter
            exit for 'also tried goto Here
        end if
    next
'Here:
next '<< gets here on exit for, but it doesn't loop my next page break. Acts like it is the last page break when I know there is more.
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...