Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Сколько страниц на листе
 
#1
28.11.2008 14:52:44
Всем известно что при предварительном просмотре можно определить на скольких страницах будет при печати располагаться лист EXCEL. А как можно не заходя в предварительный просмотр определить количество страниц, а самое главное как вставить этот указатель в лист EXCEL?
 
 
 
#2
28.11.2008 15:02:58
А чем не устраивает >Вид>Разметка страниц?
 
 
 
#3
28.11.2008 15:10:00
А если 100 странциц, то я буду считать количество полосок на листе?
 
 
 
#4
28.11.2008 15:11:48
На заднем фоне серым цветом номер страницы!))))))
 
 
 
#5
28.11.2008 15:16:14
Мне некогда опускаться на самую последнюю страницу и смотреть какой у неё номер. Я хочу чтобы в ячейке А1 стояло количество страниц на листе
 
 
 
#6
28.11.2008 18:26:57
Вот так можно... преобразовать в функцию - проще простого.  
 
Sub HowManyPages()  
   Dim x As Range, h As Long, v As Long  
   Set x = ActiveSheet.UsedRange  
   h = x.Parent.HPageBreaks.Count  
   v = x.Parent.VPageBreaks.Count  
   If x.Rows(x.Rows.Count).PageBreak <> xlNone Then h = h + 1  
   If x.Columns(x.Columns.Count).PageBreak <> xlNone Then v = v + 1  
   MsgBox (v) * (h)  
End Sub
 
 
 
#7
28.11.2008 18:51:16
Спасибо! Но что-то типа такого у меня есть, и к сожелению работает медленно. Мне нужно что-то по-быстрее.
 
 
 
#8
28.11.2008 19:13:07
Мда... Жаль, что этот форум не поддерживает возможность занесения пользователя в список блокируемых... Считайте себя занесенным в мой виртуальный список таковых.
 
 
 
#9
28.11.2008 19:59:54
Миша (Ваня, Вася, Петя, дядя Федор?), Вы провокатор!  
Я, в силу своих прожитых лет, встречал «людей», которым хорошо от того,  что другим плохо. Сидят, после сделанной пакости в уголочке, и хихикают. А Ваши претензии иначе как пакостью не назовешь.  
На воинствующего «Гаити» Вы не похожи, но может быть волк сменил шкуру на шкуру ягненка?  
Заранее извиняюсь перед добросовестными форумчанами, чей логин «Миша», рассматривать посты не буду, присоединяюсь к мораторию «Genyaa».  
Без уважения, Александр.
 
 
 
#10
28.11.2008 22:09:54
+1  
Бывают же надоеды...
 
 
 
#11
29.11.2008 09:30:58
{quote}{login=Миша}{date=28.11.2008 03:16}{thema=}{post}Мне некогда опускаться на самую последнюю страницу и смотреть какой у неё номер. Я хочу чтобы в ячейке А1 стояло количество страниц на листе{/post}{/quote}  
 
название темы уже вызвало опасения - теперь готов согласиться с Genyaa..  
 
куда спешим?
Живи и дай жить..
 
 
 
#12
01.12.2008 13:43:33
Ё моё! Приколисты! Вы ответьте на вопрос, а не нравоучения читайте! Я так понимаю если нет ответа на вопрос, то вы начинаете нравоучения
 
 
 
#13
01.12.2008 17:59:48
{quote}{login=Миша}{date=28.11.2008 06:51}{thema=}{post}Спасибо! Но что-то типа такого у меня есть, и к сожелению работает медленно. Мне нужно что-то по-быстрее.{/post}{/quote}Я мимо пройти не мог. Тем более автор жалуется, что ему не помогают, а читают нравоучения.  
Итак, уважаемый Миша!  
Что именно у Вас такого типа имеется?  
Вам кажется, что 0.125 сек это медленно? (по крайней мере у меня столько времени работал этот код)  
Возможно это не эксель тормозит, а комп.  
Возможно это не комп и не эксель, а Вы слишком быстрый?  
Во всяком случае для этой задачи.  
Если последнее утверждение верно, то не поделитесь, где такую дурь берете. Я тоже так хочу.  
Если нужно еще быстрее, сколько это будет стоить? За дозу?
Bite my shiny metal ass!      
 
 
 
#14
05.12.2012 02:25:41
{quote}{login=Genyaa}{date=28.11.2008 06:26}{thema=}{post}Вот так можно... преобразовать в функцию - проще простого.{/post}{/quote}  
а у меня почему то не получается... вставляю макрос в модуль, в ячейки, где нужен результат пишу: =HowManyPages()  
может кто подскажет, все ли я правильно делаю?
 
 
 
#15
05.12.2012 02:43:34
Это не функция, чтобы писать в ячейке =HowManyPages... Просто выполните этот макрос и увидите сообщение.
 
 
 
#16
05.12.2012 02:55:07
Спасибо!  
а как можно ли сделать так что бы это макрос был формулой? что бы в заданной ячейки отображалось число, а лучше число прописью!
 
 
 
#17
05.12.2012 03:01:51
Для этого нужно из него сделать функцию. Почитать можно здесь:  http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-funkciya-polzovatelyaudf/ <BR>Сумма прописью обсуждалась 152 раза - воспользуйтесь поиском. Есть также в разделе "Приемы", есть и в "Копилке".
 
 
 
#18
05.12.2012 03:10:54
Спасибо за подсказку. почитал ничего не понял(  
 
число прописью я знаю как сделать макросом, подумал, может это можно проще воплотить в едином макросе с числом листов...
 
 
 
#19
05.12.2012 12:01:26
может кто поможет все же с мокросом?
 
 
 
#20
05.12.2012 12:06:49
Есть умельцы, обращайтесь:  
Столы заказов:  
- http://www.planetaexcel.ru/contacts.php  
- Фриланс - http://www.excel-vba.ru/zakazy-na-razrabotku-programmy-makrosa-i-pr/  
- Фриланс - http://excelvba.ru/order/send  
- Фриланс - http://www.programmersforum.ru/forumdisplay.php?s=&daysprune=-1&f=29  
- Фриланс - http://www.cyberforum.ru/freelance/
 
 
 
#21
05.12.2012 12:49:43
Врёт HowManyPages.  
А вот это не врёт:  
 
iPagesCount = ExecuteExcel4Macro("GET.DOCUMENT(50)")  
 
Можно через имена и как формулу на лист вывести:  
 
имя=GET.DOCUMENT(50)  
или в русской версии =ПОЛУЧИТЬ.ДОКУМЕНТ(50)  
В ячейке =имя  
 
Хотя у меня в загашнике записано почему-то  
=ПОЛУЧИТЬ.ДОКУМЕНТ(50+ТДАТА()*0)  
Зачем это +ТДАТА()*0 - не понял, вроде и так работает?  
 
Ну а на это можно навесить и "сумму прописью" - вариантов море, разных...
 
 
 
#22
05.12.2012 12:52:43
{quote}{login=Hugo}{date=05.12.2012 12:49}{thema=}{post}Зачем это +ТДАТА()*0 ?{/post}{/quote}  
Игорь, это для Application.Volatile  
:-)
 
 
 
#23
05.12.2012 12:59:03
http://www.planetaexcel.ru/forum.php/?thread_id=15113 - здесь было такое :-)
 
 
 
Страницы: 1
Читают тему
Наверх