Можно конечно на одном компе подогнать все размеры этого бланка в формате xls ... но проблема в том, что при распечатке на другом компе (принтере) бланк уже не будет 100% копией исходника... А формат ПДФ всегда отображается и печатается на всех компах одинаково

{quote}{login=subtlety}{date=12.03.2012 08:02}{thema=}{post}или тут:  
http://msdn.microsoft.com/en-us/library/ee834871%28office.11%29.aspx{/post}{/quote}  
А этот пример касается 2007 и 2010 офиса, и то для сохранения листа ексель в формате ПДФ - в 2003 офисе он не будет работать

{quote}{login=subtlety}{date=12.03.2012 07:57}{thema=}{post}http://www.microsoft.com/download/en/details.aspx?id=9943{/post}{/quote}  
А сами пробывали эту ссылку открыть? У меня не получается....

{quote}{login=Serge 007}{date=27.11.2011 09:18}{thema=}{post}Первый аргумент должен быть большей датой.  
=РАЗНДАТ(B1;B2;"Y")  
http://www.excelworld.ru/publ/funkcii_excel/funkcii_daty_i_vremeni/funkcii_lista_r­azndat_datedif/8-1-0-18{/post}{/quote}  
СПАСИБО!

Пробую вычислить полное количество лет между двумя датами с помощью РАЗНДАТ(), но происходит ошибка.... Помогите!!

{quote}{login=ShAM}{date=04.11.2011 04:41}{thema=Re:}{post}В начало, не в конец.{/post}{/quote}  
Опять косяк...    
Если открыты все 3 листа - макрос скрывает 2 и 3 листы... если же скрыт 2 или третий , то макрос не работает

{quote}{login=Юрий М}{date=04.11.2011 03:41}{thema=Re: Re: }{post}{quote}{login=intervisionist}{date=04.11.2011 03:33}{thema=Re: }{post}{quote}{login=Hugo}{date=04.11.2011 03:02}{thema=}{post}{/post}{/quote}Сократить то можно, но эти макросы второй раз уже не сработают... их скроет, но при повторном нажатии на эту кнопку возникнет ошибка.... а топорный вариант будет работать при любых условиях:{/post}{/quote}Это лечится простой строкой: On Error Resume Next, а топорный так и останется топорным :-) Вы действительно считаете, что Ваш вариант менее трудоёмкий?{/post}{/quote}  
Кстати! А куда нужно эту строку вставить? В примере кнопка 1 - скрывает строки, а кнопка 2 - листы

{quote}{login=Юрий М}{date=04.11.2011 03:57}{thema=}{post}Я вас понял :-) На начальном этапе почти все так делают. Рассмотрим другой пример: Вам нужно скрыть строки с первой по десятую. Что лучше - перечислить по одной десять раз (даже используя копи/паст) или воспользоваться такой записью: Rows("1:10")?{/post}{/quote}  
 
Кстати да! в моей книге на 1 листе тоже есть несколько ситуаций, когда нужно скрывать - отображать то одни то другие строки ... решил так:  
   Rows("6:284").Select  
   Range("C6").Activate  
   Selection.EntireRow.Hidden = False  
   Range("6:7,129:157,225:234,261:284").Select  
   Range("C261").Activate  
   Selection.EntireRow.Hidden = True  
т.е. сначало, даже если есть какие либо скрытые строки - они отобразятся, затем скроется нужные диапазоны строк

{quote}{login=Юрий М}{date=04.11.2011 03:41}{thema=Re: Re: }{post}{quote}{login=intervisionist}{date=04.11.2011 03:33}{thema=Re: }{post}{quote}{login=Hugo}{date=04.11.2011 03:02}{thema=}{post}{/post}{/quote}Сократить то можно, но эти макросы второй раз уже не сработают... их скроет, но при повторном нажатии на эту кнопку возникнет ошибка.... а топорный вариант будет работать при любых условиях:{/post}{/quote}Это лечится простой строкой: On Error Resume Next, а топорный так и останется топорным :-) Вы действительно считаете, что Ваш вариант менее трудоёмкий?{/post}{/quote}  
Согласен! топорный на все сто! Просто я же говорю... применил его к своей книге, где есть около ста листов .... написал этот чудо-макрос в worde :))) один раз (оставить листы 1-5 скрыть листы 6-96)... а для остальных случаев просто с помощью Найти-заменить менял false на true для других листов, копировал и вставлял в редактор... так что не сильно трудоемко получалось.... да и вообще нам этот эксель лишь год назад начали преподавать ... хочу к выпуску из школы стать ассом... по крайней мере по просьбе отца уже сделал ему книгу из 100 листов

{quote}{login=intervisionist}{date=04.11.2011 03:33}{thema=Re: }{post}{quote}{login=Hugo}{date=04.11.2011 03:02}{thema=}{post}Я записью получил вот что:  
 
   Sheets(Array("Sheet2", "Sheet3")).Select  
   Sheets("Sheet3").Activate  
   ActiveWindow.SelectedSheets.Visible = False  
 
Можно сократить так:  
 
   Sheets(Array("Sheet2", "Sheet3")).Visible = False  
 
 
А Вы листы по одному что ли скрывали?{/post}{/quote}  
 
Сократить то можно, но эти макросы второй раз уже не сработают.... Например на 1 листе нужна кнопка, которая запускает макрос, скрывающий лист2 и лист 3... Ваш пример:  
Sub макрос1()  
   Sheets(Array("Лист2", "Лист3")).Visible = False  
End Sub  
их скроет, но при повторном нажатии на эту кнопку возникнет ошибка.... а топорный вариант будет работать при любых условиях:  
Sub макрос2()  
   Sheets("Лист1").Visible = True  
   Sheets("Лист2").Visible = False  
   Sheets("Лист3").Visible = False  
End Sub  
 
естественно когда листов около 100, то можно через цикл{/post}{/quote}  
 
у меня есть такая книга, на перых десяти листах - заявления на открытие ИП, на второй десятке - заявления на закрытие ИП и т.д. и в зависимоти от ситуации нужно скрывать одни листы и при этом открывать другие... сделал несколько кнопок на первом листе с таким топорным вариантом и всё! зачем в этом случае выяснять или получать список скрытых или активных  листов, писать условие отображения?

{quote}{login=Hugo}{date=04.11.2011 03:02}{thema=}{post}Я записью получил вот что:  
 
   Sheets(Array("Sheet2", "Sheet3")).Select  
   Sheets("Sheet3").Activate  
   ActiveWindow.SelectedSheets.Visible = False  
 
Можно сократить так:  
 
   Sheets(Array("Sheet2", "Sheet3")).Visible = False  
 
 
А Вы листы по одному что ли скрывали?{/post}{/quote}  
 
Сократить то можно, но эти макросы второй раз уже не сработают.... Например на 1 листе нужна кнопка, которая запускает макрос, скрывающий лист2 и лист 3... Ваш пример:  
Sub макрос1()  
   Sheets(Array("Лист2", "Лист3")).Visible = False  
End Sub  
их скроет, но при повторном нажатии на эту кнопку возникнет ошибка.... а топорный вариант будет работать при любых условиях:  
Sub макрос2()  
   Sheets("Лист1").Visible = True  
   Sheets("Лист2").Visible = False  
   Sheets("Лист3").Visible = False  
End Sub  
 
естественно когда листов около 100, то можно через цикл

{quote}{login=Юрий М}{date=04.11.2011 12:20}{thema=}{post}Да ладно вам - человек старался... :-){/post}{/quote}  
Я только учусь :))))) Записал макрос, а потом посмотрел его код, там еще больше строк было.... это я еще лишние убрал :)))

{quote}{login=Lego 555}{date=03.11.2011 04:44}{thema=отображение скрытых листов}{post}Какими действиями отобразить сразу несколько скрытых листов, а не щелкать по одному, если это возможно{/post}{/quote}  
простой макрос поможет... если например в книге 63 листа и Вам нужно все листы скрыть, а листы с 3 по 7 отобразить, то пишите:  
Sub скрыть_отобразить()  
   Sheets("1").Visible = False  
   Sheets("2").Visible = False  
   Sheets("3").Visible = True  
   Sheets("4").Visible = True  
   Sheets("5").Visible = True  
   Sheets("6").Visible = True  
   Sheets("7").Visible = True  
   Sheets("8").Visible = False  
   Sheets("9").Visible = False  
   Sheets("10").Visible = False  
   Sheets("11").Visible = False  
   Sheets("12").Visible = False  
   Sheets("13").Visible = False  
   Sheets("14").Visible = False  
   Sheets("15").Visible = False  
   Sheets("16").Visible = True  
   Sheets("17").Visible = False  
   Sheets("18").Visible = False  
   Sheets("19").Visible = False  
   Sheets("20").Visible = False  
   Sheets("21").Visible = False  
   Sheets("22").Visible = False  
   Sheets("23").Visible = False  
   Sheets("24").Visible = False  
   Sheets("25").Visible = False  
   Sheets("26").Visible = False  
   Sheets("27").Visible = False  
   Sheets("28").Visible = False  
   Sheets("29").Visible = False  
   Sheets("30").Visible = False  
   Sheets("31").Visible = False  
   Sheets("32").Visible = False  
   Sheets("33").Visible = False  
   Sheets("37").Visible = False  
   Sheets("38").Visible = False  
   Sheets("39").Visible = False  
   Sheets("40").Visible = False  
   Sheets("41").Visible = False  
   Sheets("42").Visible = False  
   Sheets("43").Visible = False  
   Sheets("44").Visible = False  
   Sheets("45").Visible = False  
   Sheets("46").Visible = False  
   Sheets("47").Visible = False  
   Sheets("48").Visible = False  
   Sheets("49").Visible = False  
   Sheets("50").Visible = False  
   Sheets("51").Visible = False  
   Sheets("52").Visible = False  
   Sheets("53").Visible = False  
   Sheets("54").Visible = False  
   Sheets("55").Visible = False  
   Sheets("56").Visible = False  
   Sheets("57").Visible = False  
   Sheets("58").Visible = False  
   Sheets("59").Visible = False  
   Sheets("60").Visible = False  
   Sheets("61").Visible = False  
   Sheets("62").Visible = False  
   Sheets("63").Visible = False  
End Sub  
 
можно сделать несколько макросов, которые будут активироваться при нажатии на разные кнопки...

{quote}{login=V}{date=01.11.2011 09:16}{thema=}{post}можно так.{/post}{/quote}  
ДА! Спасибо!

{quote}{login=intervisionist}{date=01.11.2011 08:22}{thema=Re: .}{post}{quote}{login=}{date=31.10.2011 05:18}{thema=.}{post}так Вы и не говорили об этом.{/post}{/quote}  
ПРОШУ автора этого решения связаться со мной с помощью почты  vyv068@mail.ru    
Есть предложение!{/post}{/quote}  
Спасибо всем!!!!

{quote}{login=}{date=31.10.2011 05:18}{thema=.}{post}так Вы и не говорили об этом.{/post}{/quote}  
ПРОШУ автора этого решения связаться со мной с помощью почты  vyv068@mail.ru    
Есть предложение!

{quote}{login=intervisionist}{date=01.11.2011 07:48}{thema=Связанные выпадающие списки с помощью ГПР}{post}Имеется порядка 30 населенных пунктов, в каждом от 0 до 78 улиц. Нужно сделать 2 выпад списка.В первом - выбор населенных пунктов, во втором - в зависимости от выбранного пункта в первом должны появляться улицы. Решил это с помощью ГПР (смотреть пример). Есть более изящное и простое решение?{/post}{/quote}  
И как при этом варианте убрать "пустые"(нулевые) улицы из второго списка???

Имеется порядка 30 населенных пунктов, в каждом от 0 до 78 улиц. Нужно сделать 2 выпад списка.В первом - выбор населенных пунктов, во втором - в зависимости от выбранного пункта в первом должны появляться улицы. Решил это с помощью ГПР (смотреть пример). Есть более изящное и простое решение?

{quote}{login=Intervisionist}{date=31.10.2011 10:49}{thema=Однотипные данные в таблицу с помощью формы}{post}Помогите! Нужно, чтобы после выбора человека из выпадающего списка, была возможность ввести его место рождения с помощью формы ввода как указано в желтых полях. Эти данные должны попасть в соотвествующие строки на листе "таблица". Максимальное количество строк в таблице всегда равно 8-ми. Пример прилагается.{/post}{/quote}  
Забыл!!!! Должна сохраниться возможность редактирования уже введенных данных.

Помогите! Нужно, чтобы после выбора человека из выпадающего списка, была возможность ввести его место рождения с помощью формы ввода как указано в желтых полях. Эти данные должны попасть в соотвествующие строки на листе "таблица". Максимальное количество строк в таблице всегда равно 8-ми. Пример прилагается.