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

Вход

Регистрация

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

 

= Мир MS Excel/Определение кол-ва строк, умещаемых в страницу листа Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение кол-ва строк, умещаемых в страницу листа Excel (Макросы/Sub)
Определение кол-ва строк, умещаемых в страницу листа Excel
Roman777 Дата: Пятница, 27.11.2020, 15:11 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Добрый всем день!
Знает кто, как можно получить кол-во строк для одной страницы печати для экселя?

Хочу получить строку нижнюю, на картинке сейчас значение нужной строки 57.
Или мб возможно узнать положение нижнего колонтитула в строках?
К сообщению приложен файл: 3996243.png(17.0 Kb)


Много чего не знаю!!!!
 
Ответить
СообщениеДобрый всем день!
Знает кто, как можно получить кол-во строк для одной страницы печати для экселя?

Хочу получить строку нижнюю, на картинке сейчас значение нужной строки 57.
Или мб возможно узнать положение нижнего колонтитула в строках?

Автор - Roman777
Дата добавления - 27.11.2020 в 15:11
CaramelManiac Дата: Пятница, 27.11.2020, 15:51 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 22 ±
Замечаний: 0% ±

MS Excel 2003-2019
Здравствуйте.
Можно попробовать так
[vba]
Код
With ActiveWindow.VisibleRange
    последняя_полностью_видимая_строка = .Row + .Rows.Count - 2
End With
[/vba]
 
Ответить
СообщениеЗдравствуйте.
Можно попробовать так
[vba]
Код
With ActiveWindow.VisibleRange
    последняя_полностью_видимая_строка = .Row + .Rows.Count - 2
End With
[/vba]

Автор - CaramelManiac
Дата добавления - 27.11.2020 в 15:51
Kuzmich Дата: Пятница, 27.11.2020, 15:56 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 560
Репутация: 111 ±
Замечаний: 0% ±

Excel 2003
Попробуйте так
[vba]
Код
KolStrok = ActiveSheet.HPageBreaks(1).Location.Row - 1
[/vba]
 
Ответить
СообщениеПопробуйте так
[vba]
Код
KolStrok = ActiveSheet.HPageBreaks(1).Location.Row - 1
[/vba]

Автор - Kuzmich
Дата добавления - 27.11.2020 в 15:56
Roman777 Дата: Пятница, 27.11.2020, 18:03 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Цитата CaramelManiac, 27.11.2020 в 15:51, в сообщении № 2 ()
With ActiveWindow.VisibleRange
последняя_полностью_видимая_строка = .Row + .Rows.Count - 2
End With

не подойдёт. Оно будет отображать только что видно.
А вот второй вариант тоже пробовал. Как оказалось, в файле нет разрывов...

Ещё не понятно, почему у меня эта граница то на 57 строке, то на 55. Так и не понял от чего зависит. Просто открывал в разное время.
К сообщению приложен файл: 7444078.xlsx(9.6 Kb)


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Пятница, 27.11.2020, 18:04
 
Ответить
Сообщение
Цитата CaramelManiac, 27.11.2020 в 15:51, в сообщении № 2 ()
With ActiveWindow.VisibleRange
последняя_полностью_видимая_строка = .Row + .Rows.Count - 2
End With

не подойдёт. Оно будет отображать только что видно.
А вот второй вариант тоже пробовал. Как оказалось, в файле нет разрывов...

Ещё не понятно, почему у меня эта граница то на 57 строке, то на 55. Так и не понял от чего зависит. Просто открывал в разное время.

Автор - Roman777
Дата добавления - 27.11.2020 в 18:03
Kuzmich Дата: Пятница, 27.11.2020, 18:12 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 560
Репутация: 111 ±
Замечаний: 0% ±

Excel 2003
Цитата
второй вариант тоже пробовал. Как оказалось, в файле нет разрывов...

У вас в файле и данных нет. Введите на первой и второй странице какие-либо числа и посмотрите.
[vba]
Код
Sub ww()
Dim KolStrok As Integer
KolStrok = ActiveSheet.HPageBreaks(1).Location.Row - 1
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
второй вариант тоже пробовал. Как оказалось, в файле нет разрывов...

У вас в файле и данных нет. Введите на первой и второй странице какие-либо числа и посмотрите.
[vba]
Код
Sub ww()
Dim KolStrok As Integer
KolStrok = ActiveSheet.HPageBreaks(1).Location.Row - 1
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 27.11.2020 в 18:12
Roman777 Дата: Пятница, 27.11.2020, 18:28 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Kuzmich, действительно, только с данными работает.
То есть, расчёт на то, что если данные будут расширять ячейку, эта величина будет меняться... и граничным может стать другая строка.
Блин, а я хотел получить до того, как данные появятся и от этого плясать, высоту ячеек не менять.
Благодарю за наводку!


Много чего не знаю!!!!
 
Ответить
СообщениеKuzmich, действительно, только с данными работает.
То есть, расчёт на то, что если данные будут расширять ячейку, эта величина будет меняться... и граничным может стать другая строка.
Блин, а я хотел получить до того, как данные появятся и от этого плясать, высоту ячеек не менять.
Благодарю за наводку!

Автор - Roman777
Дата добавления - 27.11.2020 в 18:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение кол-ва строк, умещаемых в страницу листа Excel (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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