В общем столкнулся с таким фокусом - если последние данные в ячейке расположены до границы очередной страницы, то эксель не хочет считать очередной HPageBreaks. В примере если располагаем данные в ячейке строки 50, всё нормально, а если выше, то ошибка. Как это победить? [vba]
Код
Public Sub tesst() Dim ws As Worksheet
Set ws = Worksheets(1) Debug.Print ws.HPageBreaks(1).Location.Row End Sub
[/vba]
В общем столкнулся с таким фокусом - если последние данные в ячейке расположены до границы очередной страницы, то эксель не хочет считать очередной HPageBreaks. В примере если располагаем данные в ячейке строки 50, всё нормально, а если выше, то ошибка. Как это победить? [vba]
Код
Public Sub tesst() Dim ws As Worksheet
Set ws = Worksheets(1) Debug.Print ws.HPageBreaks(1).Location.Row End Sub
И как это обходить? Мне вот надо узнать на какой странице расположена определённая ячейка, но если она на последней странице, но не в последнем ряду, вылетит ошибка. Чет я не соображу как тут быть.
И как это обходить? Мне вот надо узнать на какой странице расположена определённая ячейка, но если она на последней странице, но не в последнем ряду, вылетит ошибка. Чет я не соображу как тут быть.Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Public Sub tesst() Dim ws As Worksheet, c& Set ws = Worksheets(1) c = ws.HPageBreaks.Count [A1048576] = 1 Debug.Print ws.HPageBreaks(c + 1).Location.Row [A1048576].Delete xlUp End Sub
Public Sub tesst() Dim ws As Worksheet, c& Set ws = Worksheets(1) c = ws.HPageBreaks.Count [A1048576] = 1 Debug.Print ws.HPageBreaks(c + 1).Location.Row [A1048576].Delete xlUp End Sub