Разрыв страницы в VBA

Пользователь

Сообщений: 353 Регистрация: 01.01.1970

30.04.2010 14:31:30

День добрый,
1. Записал макрорекодером два макроса: М1 выделить строку-вставить разрыв страницы; М2 выделить туже строку и удалить разрыв страницы.
При выполнении (по кнопке) М2 дает ошибку 9: Subscript out of range, хотя разрыв есть. Сброс всех разрывов мне не годиться. Как его (разрыв) удалить.
2. А как (и можно ли вообще) в VBA узнать строку где стои разрыв страницы?
Спасибо.

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

30.04.2010 17:46:05

Вот нашёл код:
Sub Test()
With ActiveSheet
If .HPageBreaks.Count > 0 Then
Dim pb As HPageBreak, rngHPB As Range
Set rngHPB = .HPageBreaks(.HPageBreaks.Count).Location
i = rngHPB.Row 'положение последнего разрыва
For Each pb In .HPageBreaks
Set rngHPB = pb.Location
i = rngHPB.Row - 1 'Номер строки перед разрывом страницы
MsgBox i
Next pb
End If
End With
End Sub

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#3 30.04.2010 18:08:13 Sub Test() With ActiveSheet If .HPageBreaks.Count > 0 Then Dim pb As HPageBreak, rngHPB As Range Set rngHPB = .HPageBreaks(.HPageBreaks.Count).Location For Each pb In .HPageBreaks Set rngHPB = pb.Location MsgBox "Разрыв перед строкой: " & pb.Location.Row ' If pb.Location.Row = 10 Then pb.Location.Delete 'Удаляем Next pb End If End With End Sub

PavelKs Пользователь Сообщений: 353 Регистрация: 01.01.1970	#4 02.05.2010 20:28:57 Юрий М, спасибо. Но не пойму в чем причина: макросы работают только до 10 строчки, если разрыв ниже - не работает. Прикрепленные файлы post_121537.xls (55.5 КБ)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 02.05.2010 20:53:46 Заполните хоть по одной ячейке между разрывами и ниже последнего :-)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#6 02.05.2010 20:54:51 Даже достаточно одну - ниже последнего разрыва

Guest Гость	#7 02.05.2010 21:12:14 {quote}{login=Юрий М}{date=02.05.2010 08:54}{thema=}{post}Даже достаточно одну - ниже последнего разрыва{/post}{/quote} И действительно:) Прикольная ситуация, а я голову ломал - почему не работает. Еще раз, спасибо.

Читают тему