Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/HPageBreaks не хочет считать страницы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » HPageBreaks не хочет считать страницы (Макросы/Sub)
HPageBreaks не хочет считать страницы
Udik Дата: Воскресенье, 06.11.2016, 17:49 | Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 1201
Репутация: 152 ±
Замечаний: 0% ±

Excel 2013
В общем столкнулся с таким фокусом - если последние данные в ячейке расположены до границы очередной страницы, то эксель не хочет считать очередной HPageBreaks. В примере если располагаем данные в ячейке строки 50, всё нормально, а если выше, то ошибка. Как это победить?
[vba]
Код

Public Sub tesst()
Dim ws As Worksheet

Set ws = Worksheets(1)
Debug.Print ws.HPageBreaks(1).Location.Row
End Sub
[/vba]
К сообщению приложен файл: 0t.xlsm(15Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеВ общем столкнулся с таким фокусом - если последние данные в ячейке расположены до границы очередной страницы, то эксель не хочет считать очередной HPageBreaks. В примере если располагаем данные в ячейке строки 50, всё нормально, а если выше, то ошибка. Как это победить?
[vba]
Код

Public Sub tesst()
Dim ws As Worksheet

Set ws = Worksheets(1)
Debug.Print ws.HPageBreaks(1).Location.Row
End Sub
[/vba]

Автор - Udik
Дата добавления - 06.11.2016 в 17:49
Саня Дата: Воскресенье, 06.11.2016, 18:10 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1015
Репутация: 491 ±
Замечаний: 0% ±

XL 2010
ну все правильно, нет у тебя горизонтального разрыва страницы:

[vba]
Код
if ws.HPageBreaks.Count>0 then
[/vba]
 
Ответить
Сообщениену все правильно, нет у тебя горизонтального разрыва страницы:

[vba]
Код
if ws.HPageBreaks.Count>0 then
[/vba]

Автор - Саня
Дата добавления - 06.11.2016 в 18:10
Udik Дата: Воскресенье, 06.11.2016, 21:34 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1201
Репутация: 152 ±
Замечаний: 0% ±

Excel 2013
И как это обходить? Мне вот надо узнать на какой странице расположена определённая ячейка, но если она на последней странице, но не в последнем ряду, вылетит ошибка. Чет я не соображу как тут быть.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеИ как это обходить? Мне вот надо узнать на какой странице расположена определённая ячейка, но если она на последней странице, но не в последнем ряду, вылетит ошибка. Чет я не соображу как тут быть.

Автор - Udik
Дата добавления - 06.11.2016 в 21:34
krosav4ig Дата: Воскресенье, 06.11.2016, 22:11 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel 2007, 2013
И как это обходить?

Потанцевать с бубном, впрочем как и всегда[vba]
Код
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
[/vba]


(_)Õvõ(_)
 
Ответить
Сообщение
И как это обходить?

Потанцевать с бубном, впрочем как и всегда[vba]
Код
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
[/vba]

Автор - krosav4ig
Дата добавления - 06.11.2016 в 22:11
Udik Дата: Понедельник, 07.11.2016, 13:58 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1201
Репутация: 152 ±
Замечаний: 0% ±

Excel 2013
Хы, занятно - ставим метку в последнюю ячейку и получаем все границы страниц. Спасибо!


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеХы, занятно - ставим метку в последнюю ячейку и получаем все границы страниц. Спасибо!

Автор - Udik
Дата добавления - 07.11.2016 в 13:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » HPageBreaks не хочет считать страницы (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!