Число страниц на листе

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Число страниц на листе (Макросы/Sub)

Nic70y

Дата: Среда, 27.01.2016, 16:29 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 9223

Репутация: 2478 ±

Замечаний: 0% ±

Excel 2010

HPageBreaks.Count
врет наглым образом и не стесняется %)
на листе Оборуд 1 стр, а он гад говорит 2 в X3

да и ваще иногда вместо 3 пишет 34 или 28

К сообщению приложен файл: 7198550.xlsm (39.3 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 27.01.2016, 16:45

Ответить

_Boroda_

Дата: Среда, 27.01.2016, 16:57 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А так?
[vba]

Код

n=(Sheets(Elem).HPageBreaks.Count + 1) * (Sheets(Elem).VPageBreaks.Count + 1)

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Nic70y

Дата: Среда, 27.01.2016, 17:20 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9223

Репутация: 2478 ±

Замечаний: 0% ±

Excel 2010

Чет не получается, пойду напьюсь.... чаю

ЮMoney 41001841029809

Ответить

_Boroda_

Дата: Среда, 27.01.2016, 17:23 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

У меня на твоем файле количество листов соответствует по горизонтали и вертикали HPageBreaks и VPageBreaks

Ответить

Manyasha

Дата: Среда, 27.01.2016, 17:24 | Сообщение № 5

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

я запустила Sheets_List_Sheets несколько раз.
2 не получается
[vba]

Код

Цель    1
КО      1
Оборуд  1

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Nic70y

Дата: Среда, 27.01.2016, 18:13 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 9223

Репутация: 2478 ±

Замечаний: 0% ±

Excel 2010

Не знаю что зафигня такая. установил в разметке страницы Авто Ширину и Высоту - вроде бы не врет (наверное)
хотя это все равно вранье какое-то

ЮMoney 41001841029809

Ответить

krosav4ig

Дата: Четверг, 28.01.2016, 18:34 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

как вариант [vba]

Код

Sheets(1).Cells(1, 24).Offset(Cnt, 0) = ExecuteExcel4Macro("get.document(50,""" & Sheets(Elem).Name & """)")

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Nic70y

Дата: Четверг, 28.01.2016, 20:40 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 9223

Репутация: 2478 ±

Замечаний: 0% ±

Excel 2010

krosav4ig, спс
плюнул я на это вба, средствами Excel решаю - это круче

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 28.01.2016, 20:41

Ответить

Число страниц на листе (Макросы/Sub)

Страница 1 из 1
1