Блог

Главная - Вопросы по программированию - Перетащите VPageBreaks полностью вправо, но ничего не происходит

Перетащите VPageBreaks полностью вправо, но ничего не происходит

#excel #vba

#excel #vba

Вопрос:

 Application.ActiveWindow.View = xlPageBreakPreview

Set Workbook = Application.ActiveWorkbook

For i = 1 To LastRow
    If Workbook.Sheets(1).Cells(i, "A").Value = "CTY" Then
            Workbook.Sheets(1).Rows(i   1).PageBreak = xlPageBreakManual
    End If
Next i

Application.ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Application.ActiveWindow.View = xlNormalView

Этот код добавляет разрывы страниц в цикле к каждой строке, а затем должен перетаскивать вертикальный разрыв страницы полностью вправо, но я получаю ошибку object not defined.

Комментарии:

1. @BigBen wbkCurBook — это рабочая книга. я думаю, что ошибка исходит из цикла, даже если он добавляет разрыв страницы ко всем необходимым строкам, он просто не перемещает вертикальные

2. @BigBen я ТОЛЬКО ЧТО отредактировал, чтобы включить set, и он тоже с ним не работает. Код прерывается в цикле, но цикл делает все, что я хочу, только не последние две строки кода в конце вне цикла

3. @BigBen — это объект

4. @BigBen о, я забыл изменить Set wbkCurBook на Workbook. Я просто делал минимальный воспроизводимый пример