Календаря в excel 2007

При создании таблиц с определенным типом данных иногда нужно применять календарь. Кроме того, некоторые пользователи просто хотят его создать, распечатать и использовать в бытовых целях. Программа Microsoft Office позволяет несколькими способами вставить календарь в таблицу или на лист. Давайте выясним, как это можно сделать.

Если инструкция по созданию календаря в Microsoft Excel вам покажется сложной, в качестве альтернативы рекомендуем рассмотреть веб-платформу Canva, доступную онлайн из любого браузера. Это сервис с огромной библиотекой редактируемых шаблонов различной направленности и стилистики, в числе которых есть и календари. Любой из них можно изменить на свое усмотрение либо создать таковой с нуля и затем сохранить на компьютер в предпочтительном формате или распечатать.

Создание различных календарей

Все календари, созданные в Excel, можно разделить на две большие группы: охватывающие определенный отрезок времени (например, год) и вечные, которые будут сами обновляться на актуальную дату. Соответственно и подходы к их созданию несколько отличаются. Кроме того, можно использовать уже готовый шаблон.

Способ 1: создание календаря на год

Прежде всего, рассмотрим, как создать календарь за определенный год.

1. Разрабатываем план, как он будет выглядеть, где будет размещаться, какую ориентацию иметь (альбомную или книжную), определяем, где будут написаны дни недели (сбоку или сверху) и решаем другие организационные вопросы.
2. Для того, чтобы сделать календарь на один месяц выделяем область, состоящую из 6 ячеек в высоту и 7 ячеек в ширину, если вы решили писать дни недели сверху. Если вы будете их писать слева, то, соответственно, наоборот. Находясь во вкладке «Главная», кликаем на ленте по кнопке «Границы», расположенной в блоке инструментов «Шрифт». В появившемся списке выбираем пункт «Все границы».



3. Выравниваем ширину и высоту ячеек, чтобы они приняли квадратную форму. Для того, чтобы установить высоту строки кликаем на клавиатуре сочетание клавиш Ctrl+A. Таким образом, выделяется весь лист. Затем вызываем контекстное меню кликом левой кнопки мыши. Выбираем пункт «Высота строки».
   

   Открывается окно, в котором нужно установить требуемую высоту строки. Ели вы впервые делаете подобную операцию и не знаете, какой размер установить, то ставьте 18. Потом жмите на кнопку «OK».

   

   Теперь нужно установить ширину. Кликаем по панели, на которой указаны наименования столбцов буквами латинского алфавита. В появившемся меню выбираем пункт «Ширина столбцов».

   

   В открывшемся окне установите нужный размер. Если не знаете, какой размер установить, можете поставить цифру 3. Жмите на кнопку «OK».

   

   После этого, ячейки на листе приобретут квадратную форму.
4. Теперь над расчерченным шаблоном нам нужно зарезервировать место для названия месяца. Выделяем ячейки, находящиеся выше строки первого элемента для календаря. Во вкладке «Главная» в блоке инструментов «Выравнивание» жмем на кнопку «Объединить и поместить в центре».



5. Прописываем дни недели в первом ряду элемента календаря. Это можно сделать при помощи автозаполнения. Вы также можете на свое усмотрение отформатировать ячейки этой небольшой таблицы, чтобы потом не пришлось форматировать каждый месяц в отдельности. Например, можно столбец, предназначенный для воскресных дней залить красным цветом, а текст строки, в которой находятся наименования дней недели, сделать полужирным.





6. Копируем элементы календаря ещё для двух месяцев. При этом не забываем, чтобы в область копирования также входила объединенная ячейка над элементами. Вставляем их в один ряд так, чтобы между элементами была дистанция в одну ячейку.



7. Теперь выделяем все эти три элемента, и копируем их вниз ещё в три ряда. Таким образом, должно получиться в общей сложности 12 элементов для каждого месяца. Дистанцию между рядами делайте две ячейки (если используете книжную ориентацию) или одну (при использовании альбомной ориентации).



8. Затем в объединенной ячейке пишем название месяца над шаблоном первого элемента календаря – «Январь». После этого, прописываем для каждого последующего элемента своё наименование месяца.



9. На заключительном этапе проставляем в ячейки даты. При этом, можно значительно сократить время, воспользовавшись функцией автозаполнения, изучению которой посвящен отдельный урок.

После этого, можно считать, что календарь готов, хотя вы можете дополнительно отформатировать его на своё усмотрение.

Урок: Как сделать автозаполнение в Excel

Способ 2: создание календаря с использованием формулы

Но, все-таки у предыдущего способа создания есть один весомый недостаток: его каждый год придется делать заново. В то же время, существует способ вставить календарь в Excel с помощью формулы. Он будет каждый год сам обновляться. Посмотрим, как это можно сделать.

1. В левую верхнюю ячейку листа вставляем функцию:
   ="Календарь на " & ГОД(СЕГОДНЯ()) & " год"
   Таким образом, мы создаем заголовок календаря с текущим годом.



2. Чертим шаблоны для элементов календаря помесячно, так же как мы это делали в предыдущем способе с попутным изменением величины ячеек. Можно сразу провести форматирование этих элементов: заливка, шрифт и т.д.



3. В место, где должно отображаться названия месяца «Январь», вставляем следующую формулу:
   =ДАТА(ГОД(СЕГОДНЯ());1;1)
   

   Но, как видим, в том месте, где должно отобразиться просто название месяца установилась дата. Для того, чтобы привести формат ячейки к нужному виду, кликаем по ней правой кнопкой мыши. В контекстном меню выбираем пункт «Формат ячеек…».

   

   В открывшемся окне формата ячеек переходим во вкладку «Число» (если окно открылось в другой вкладке). В блоке «Числовые форматы» выделяем пункт «Дата». В блоке «Тип» выбираем значение «Март». Не беспокойтесь, это не значит, что в ячейке будет слово «Март», так как это всего лишь пример. Жмем на кнопку «OK».



4. Как видим, наименование в шапке элемента календаря изменилось на «Январь». В шапку следующего элемента вставляем другую формулу:
   =ДАТАМЕС(B4;1)
   В нашем случае, B4 – это адрес ячейки с наименованием «Январь». Но в каждом конкретном случае координаты могут быть другими. Для следующего элемента уже ссылаемся не на «Январь», а на «Февраль», и т.д. Форматируем ячейки так же, как это было в предыдущем случае. Теперь мы имеем наименования месяцев во всех элементах календаря.



5. Нам следует заполнить поле для дат. Выделяем в элементе календаря за январь все ячейки, предназначенные для внесения дат. В Строку формул вбиваем следующее выражение:
   =ДАТА(ГОД(D4);МЕСЯЦ(D4);1-1)-(ДЕНЬНЕД(ДАТА(ГОД(D4);МЕСЯЦ(D4);1-1))-1)+{0:1:2:3:4:5:6}*7+{1;2;3;4;5;6;7}
   Жмем сочетание клавиш на клавиатуре Ctrl+Shift+Enter.



6. Но, как видим, поля заполнились непонятными числами. Для того, чтобы они приняли нужный нам вид. Форматируем их под дату, как это уже делали ранее. Но теперь в блоке «Числовые форматы» выбираем значение «Все форматы». В блоке «Тип» формат придется ввести вручную. Там ставим просто букву «Д». Жмем на кнопку «OK».



7. Вбиваем аналогичные формулы в элементы календаря за другие месяцы. Только теперь вместо адреса ячейки D4 в формуле нужно будет проставить координаты с наименованием ячейки соответствующего месяца. Затем, выполняем форматирование тем же способом, о котором шла речь выше.



8. Как видим, расположение дат в календаре все ещё не корректно. В одном месяце должно быть от 28 до 31 дня (в зависимости от месяца). У нас же в каждом элементе присутствуют также числа из предыдущего и последующего месяца. Их нужно убрать. Применим для этих целей условное форматирование.

   Производим в блоке календаря за январь выделение ячеек, в которых содержатся числа. Кликаем по значку «Условное форматирование», размещенному на ленте во вкладке «Главная» в блоке инструментов «Стили». В появившемся перечне выбираем значение «Создать правило».

   

   Открывается окно создания правила условного форматирования. Выбираем тип «Использовать формулу для определения форматируемых ячеек». В соответствующее поле вставляем формулу:
   =И(МЕСЯЦ(D6)1+3*(ЧАСТНОЕ(СТРОКА(D6)-5;9))+ЧАСТНОЕ(СТОЛБЕЦ(D6);9))
   D6 – это первая ячейка выделяемого массива, который содержит даты. В каждом конкретном случае её адрес может отличаться. Затем кликаем по кнопке «Формат».

   

   В открывшемся окне переходим во вкладку «Шрифт». В блоке «Цвет» выбираем белый или цвет фона, если у вас установлен цветной фон календаря. Жмем на кнопку «OK».

   

   Вернувшись в окно создания правила, жмем на кнопку «OK».



9. Используя аналогичный способ, проводим условное форматирование относительно других элементов календаря. Только вместо ячейки D6 в формуле нужно будет указывать адрес первой ячейки диапазона в соответствующем элементе.



10. Как видим, числа, которые не входят в соответствующий месяц, слились с фоном. Но, кроме того, с ним слились и выходные дни. Это было сделано специально, так как ячейки, где содержаться числа выходных дней мы зальём красным цветом. Выделяем в январском блоке области, числа в которых выпадают на субботу и воскресение. При этом, исключаем те диапазоны, данные в которых были специально скрыты путем форматирования, так как они относятся к другому месяцу. На ленте во вкладке «Главная» в блоке инструментов «Шрифт» кликаем по значку «Цвет заливки» и выбираем красный цвет.
    

    Точно такую же операцию проделываем и с другими элементами календаря.



11. Произведем выделение текущей даты в календаре. Для этого, нам нужно будет опять произвести условное форматирование всех элементов таблицы. На этот раз выбираем тип правила «Форматировать только ячейки, которые содержат». В качестве условия устанавливаем, чтобы значение ячейки было равно текущему дню. Для этого вбиваем в соответствующее поля формулу (показано на иллюстрации ниже).
    =СЕГОДНЯ()
    В формате заливки выбираем любой цвет, отличающийся от общего фона, например зеленый. Жмем на кнопку «OK».
    

    После этого, ячейка, соответствующая текущему числу, будет иметь зеленый цвет.
12. Установим наименование «Календарь на 2017 год» посередине страницы. Для этого выделяем всю строку, где содержится это выражение. Жмем на кнопку «Объединить и поместить в центре» на ленте. Это название для общей презентабельности можно дополнительно отформатировать различными способами.

В целом работа над созданием «вечного» календаря завершена, хотя вы можете ещё долго проводить над ним различные косметические работы, редактируя внешний вид на свой вкус. Кроме того, отдельно можно будет выделить, например, праздничные дни.

Урок: Условное форматирование в Excel

Способ 3: использование шаблона

Те пользователи, которые ещё в недостаточной мере владеют Экселем или просто не хотят тратить время на создание уникального календаря, могут воспользоваться готовым шаблоном, закачанным из интернета. Таких шаблонов в сети довольно много, причем велико не только количество, но и разнообразие. Найти их можно, просто вбив соответствующий запрос в любую поисковую систему. Например, можно задать следующий запрос: «календарь шаблон Excel».

Примечание: В последних версиях пакета Microsoft Office огромный выбор шаблонов (в том числе и календарей) интегрирован в состав программных продуктов. Все они отображаются непосредственно при открытии программы (не конкретного документа) и, для большего удобства пользователя, разделены на тематические категории. Именно здесь можно выбрать подходящий шаблон, а если такового не найдется, его всегда можно скачать с официального сайта Office.com.

По сути, такой шаблон — уже готовый календарь, в котором вам только останется занести праздничные даты, дни рождения или другие важные события. Например, таким календарем является шаблон, который представлен на изображении ниже. Он представляет собой полностью готовую к использованию таблицу.

Вы можете в нем с помощью кнопки заливки во вкладке «Главная» закрасить различными цветами ячейки, в которых содержатся даты, в зависимости от их важности. Собственно, на этом вся работа с подобным календарем может считаться оконченной и им можно начинать пользоваться.

Мы разобрались, что календарь в Экселе можно сделать двумя основными способами. Первый из них предполагает выполнение практически всех действий вручную. Кроме того, календарь, сделанный этим способом, придется каждый год обновлять. Второй способ основан на применении формул. Он позволяет создать календарь, который будет обновляться сам. Но, для применения данного способа на практике нужно иметь больший багаж знаний, чем при использовании первого варианта. Особенно важны будут знания в сфере применения такого инструмента, как условное форматирование. Если же ваши знания в Excel минимальны, то можно воспользоваться готовым шаблоном, скачанным из интернета.

Всплывающий календарь

Если вам часто приходится вводить даты в ячейки листа, то делать это вручную неудобно. Для ввода именно сегодняшней даты можно воспользоваться функцией СЕГОДНЯ (TODAY), сочетанием клавиш Ctrl+; или макросом, но если нужны разные даты из прошлого или будущего, то вбивать их руками долго. 

К сожалению, в стандартном арсенале средств Excel нет встроенного выпадающего календаря (в отличие от Word), да еще и в последних версиях, начиная с Excel 2007, Microsoft зачем-то убрала из стандартного комплекта поставки библиотеку mscalc.osx, которая позволяла быстро создать пользовательскую форму с календарем.

Естественно, это «узкое место» не осталось без внимания опытных пользователей и экспертов Excel MVP, которые оперативно создали несколько интерактивных календарей на макросах для удобного ввода дат. Вот подборка неплохих, на мой взгляд, бесплатных вариантов:

	Windows Date Picker Автор: Ron de Bruin Цена: бесплатно Ссылка Устанавливается как надстройка (есть версии для старых Excel 200-2003 и для новых Excel 2007-2010 и, отдельно, для Excel 2013.  Вызывается через контекстное меню ячейки (правой кнопкой мыши по ячейке — Date Picker).  Позволяет вставлять дату в нескольких форматах, вплоть до номера недели (по разным стандартам).  Автоматически подстраивается под российский стандарт недели (с понедельника).
	Excel Date Picker Автор: Jim Cone Цена: бесплатно Ссылка Макрос (не надстройка!) с открытым кодом VBA — можно посмотреть как всё устроено и модернизировать «под себя». Но надо копировать код в каждый используемый файл и вызывать нажатием на кнопку или сочетанием клавиш, т.е. универсальность хромает.  Удобная система прокрутки лет и месяцев.  Российскую неделю (с понедельника) знает.  Каких-либо настроек нет.
	Mini Calendar and Date Picker Автор: VERTEX Цена: бесплатно. Ссылка в Office Apps Store Работает только в Excel 2013, добавляется через магазин приложений Office App Store на вкладке Вставка — Приложения для Office (Insert — Office Apps Store).  Вставляется на лист как постоянный графический объект и добавляет выбранную дату в любую выделенную предварительно ячейку.  Умеет менять стандарты недели, отображать номера недель, вводить не только дату, но и время.  Есть возможность задавать темы оформления.  Нет кнопки перехода к текущему дню.
	Date Picker Автор: Sam Radakovitz, руководитель команды программистов Excel в Microsoft Цена: бесплатно  Сайт автора умер, ссылки не работают, но можно скачать заботливо сохраненную мной когда-то копию здесь. Устанавливается как надстройка.  Вызывается через правую кнопку мыши по ячейке — Pick from calendar или с помощью удобного всплывающего значка календарика справа от ячейки с датой.  Красивый дизайн, отображение количества дней до выбранной даты от текущей.  Использует USA-стандарт недели (отображает неделю с воскресенья).  Настроек нет.

P.S.

Установка надстроек:

• в Excel 2003 и старше — меню Сервис — Надстройки — Обзор (Tools — Add-ins — Browse)
• в Excel 2007 и новее — Файл — Параметры — Надстройки — Перейти — Обзор (File — Options — Add-ins — Go To — Browse)

Ссылки по теме

• Всплывающий календарь из надстройки PLEX
• Автоматический ввод даты при изменении ячейки

Вместо Enter нажимаем сочетание клавиш Ctrl+Shift+Enter, вставляя таким образом формула массива. В результате в выделенном диапазоне получаем числа указанного в ячейке B3 месяца.

Аналогичную операцию проводим с другими месяцами или просто копируем диапазон дат января в следующие месяца. Получаем следующую картину:

Форматируем

Отформатируем ячейки таким образом, чтобы они содержали только числа (а не полностью даты). Выделяем даты, открываем формат ячеек (Ctrl+1) и вводим вручную следующий формат:

Календарь принимает все более привычный вид.

Добавляем условного форматирования

Сейчас в январе календарь содержит даты 29, 30, 31 декабря, а также часть дат февраля. Давайте немного скроем эти числа. Для этого будем использовать условное форматирование. Выделяем ячейки B5:H10 и создаем правило условного форматирования. Форматироваться будут ячейки, для которых следующая формула будет являться ИСТИНОЙ:
=И(МЕСЯЦ(B5)<>1+3*(ЧАСТНОЕ(СТРОКА(B5)-5;9))+ЧАСТНОЕ(СТОЛБЕЦ(B5);9))

В качестве формата я выбрал серый текст шрифта и получил следующую картину:

Автоматически выделяем текущую дату в календаре

Для этого создаем еще одно правило условного форматирования. Ячейка будет форматироваться только в том случае, если ее значение будет равно текущей дате (=СЕГОДНЯ()):

Выделим выходные дни в календаре Excel

На этот раз обойдемся обычной заливкой ячеек. Выбирайте на свой вкус. У меня получилось так:

Добавляем праздничные дни

Создадим новый лист Excel (Праздники) и добавим на него умную таблицу со столбцом Праздничные дни. В этот столбец занесем все праздничные дни. Я это уже сделал, можете спокойно копировать и использовать.

Вернемся в наш календарь и создадим еще одно правило условного форматирования. Формула условного форматирования будет проверять является ли дата праздником. И в случае если формула вернет ИСТИНА ячейка будет форматироваться. Вот эта формула:
=НЕ(ЕОШИБКА(ПОИСКПОЗ(B5;ДВССЫЛ(«Праздники[Праздничные дни]»);0))). Стоит отметить, что при добавлении или изменении праздничных дней, календарь будет автоматически форматироваться.

Осталось скопировать ячейки B5:H10 в другие месяца и наш автоматический календарь готов и может служить нам не один год.

Изменение цветовой гаммы календаря Excel

Если при создании календаря использовать цвета темы, то потом их можно будет изменить одним простым движением. Просто сменив цвета темы на вкладке Разметка страницы. Выбирайте понравившийся.

В архив для скачивания помимо моего календаря, буду складывать календари других пользователей. Поблагодарить их можно ниже в комментариях. Если у вас также есть чем поделиться, укажите ссылку на свой вариант календаря в комментарии, я с удовольствием его добавлю.

Как сделать календарь в Excel

Календари — неотъемлемая часть нашего быта, без которого современному человеку не обойтись и хотя их очень много и они есть везде — и в телефонах и в компьютерах, иногда возникает необходимость в создании своего специализированного календаря. Наверное, лучше начать с более простых способов.

Создание календаря из шаблона

В Excel есть множество встроенных шаблонов, в том числе и для календарей. Это очень удобно, поскольку эти шаблоны очень разные и скорее всего, то, что вы собираетесь сделать, уже подготовлено другими людьми. Главное преимущество заготовок — их работоспособность. Они созданы с учетом всех правил и принципов Excel, их не придется перенастраивать, а значит, не придется вникать во все тонкости и сложности этого дела.

Шаг 1. Для начала запустите программу и откройте в меню «Файл».

Шаг 2. Перейдите в раздел «Создать». Теперь воспользуйтесь поиском или нажмите на ссылку «Календари», чтобы просмотреть все доступные варианты.

Как видите, в программе много разных встроенных календарей. Они скомпонованы по категориям, что облегчит поиск. Найдите подходящий шаблон. Не обращайте внимание на стиль и цветовое решение, все это можно будет с легкостью изменить. Ориентируйтесь на формат календаря и возможности, которые он предлагает.

Шаг 3. Щелкните по миниатюре понравившегося вам шаблона. Скачайте его, нажав на кнопку «Создать».

Шаг 4. Теперь выбранный вами шаблон откроется в новом окне.

Измените его по своему усмотрению, добавьте свои данные и др. Теперь это будет лично ваш календарь с дополнительными возможностями.

Важно! Не забудьте сохранять свою таблицу каждый раз, когда вы вносите в нее какие-либо изменения.

Есть смысл загрузить этот документ на Google Docs. Это облачное хранилище файлов любого типа со встроенным пакетом программ, аналогичным Microsoft Office. Загрузив его на облако, вы сможете получить доступ к своему календарю в любое время с любого компьютера, редактировать его онлайн самостоятельно и вместе с другими людьми, но самый важный плюс — это автосохранение, любые действия с таблицей будут сохраняться системой.

Специализированный календарь для работы и дежурств

Создание нового календаря каждый месяц — пустая трата времени, но многие люди делают это, так как думают, что им придется перестраивать его, чтобы получить правильные выходные и праздничные дни. Но на самом деле, с несколькими формулами, 2 условными правилами форматирования, 1 выпадающим списком и 5 строками кода VBA, вы можете создать автоматический календарь, который не придется менять.

Шаг 1. Создания списка месяцев. Начнем с написания имени сотрудников в столбце A.

Перед тем как переходить к следующему этапу убедитесь, что на вашей панели инструментов есть раздел «Разработчика». Если нет, добавьте его:

Перейдите в меню «Файл»>«Параметры».

Шаг 2. Теперь выберите «Разработчик»> «Вставка»> «Поле со списком».

Шаг 3. Теперь нам нужно создать список месяцев в другом месте на нашем листе.

Шаг 4. Теперь подключите, ранее созданный элемент «Поле со списком» с этим списком месяцев:

Выберите объект «Поле со списком».

Шаг 5. Поле со списком для каждого года.

Сделайте все точно так же, как и в предыдущем шаге, но вместо месяцев введите года, которые вам нужны. В разделе «Связь с ячейкой» укажите A2.

Шаг 6. Впишите первую дату посредством функции. Здесь мы собираемся повторно использовать элементы A1 (выбранный месяц) и A2 (выбранный год) и поместить их в функцию «DATE». Эта функция выглядит следующим образом: «=ДАТА(год; месяц; день)».

Итак, в качестве года указываем A2+2017 (A2 содержит цифру 1, чтобы получить 2018, нам нужно прибавить к ней 2017), а в качестве месяца — A1. Впишите получившуюся формулу в ячейку B6 «=ДАТА (A2+2017;A1;1).

Шаг 7. Растяните дату на нужное число столбцов.

Этот шаг очень прост. Мы просто должны добавить 1 к предыдущей ячейке, чтобы увеличить день на 1. В C6, напишите следующую формулу и скопируйте ее во все остальные ячейки. Формула «= B6+1».

Примечание! Чтобы растянуть формулу, а другие ячейки, схватите B6 за зеленый квадратик и буквально растяните его на нужное число ячеек.

Шаг 8. Измените формат даты.

Теперь мы сосредоточимся на формате даты. У нас уже есть год и месяц в верхнем левом углу, поэтому нам не нужна эта информация в ячейках. Можно изменить формат даты в строке 6, чтобы отображался только день. Мы хотим отобразить короткое имя дня, а также цифру.

Выберите все даты.

Шаг 9. Теперь вам остается только отформатировать таблицу по своему усмотрению, изменить цвет фона и шрифты.

Читайте интересную информацию из нашей новой статьи — «Как написать формулу в Excel? Обучение азам работы в Excel».

Видео — Как сделать календарь в Excel самостоятельно

Понравилась статья?
Сохраните, чтобы не потерять!

Вставка календаря в excel

Выпадающий календарь для ввода дат

Наша задача — добавить в книгу Excel пользовательскую форму (окно) с автоматическим календарем. Вот такое:

Окошко будет появляться при нажатии сочетания клавиш и после выбора в нем нужной даты — она попадает в текущую ячейку листа. Просто и красиво!

Откройте редактор Visual Basic через меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor).

Создайте в нем новую пустую пользовательску форму, выбрав в меню Insert — User form .

Автоматически должна появиться панель Toolbox :

Если не появилась — жмите в меню View — Toolbox .

На этой панели представлены различные управляющие элементы окон: кнопки, списки, счетчики и т.д. Но нам нужен элемент (календарь), которого пока на панели не видно. Чтобы добавить его, щелкните по серому фону панели правой кнопкой мыши и выберите Additional Controls . Появится вот такое окно:

В нем надо найти и отметить Элемент управления Календарь 11.0 (Calendar Control 11.0). Версии могут отличаться (11.0, 10.0 и т.д.) в зависимости от версии Microsoft Office, это несущественно. После нажатия на ОК на панели появится новая кнопка — Calendar :

Щелкните по ней, а затем нарисуйте календарь на поле формы, удерживая нажатой левую кнопку мыши:

При желании подправьте размеры формы и календаря и введите текст заголовка окна в панели свойств слева.

Теперь переключитесь в режим ввода программного кода созданной формы (меню View — Code ) и скопируйте туда этот текст:

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat=»dd/mm/yy»
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

Теперь надо заставить Excel показывать нам созданную форму, когда мы этого захотим. Для этого вставьте новый модуль ( Insert — Module ) и скопируйте туда этот текст:

Sub ShowCalendar()
UserForm1.Show
End Sub

Осталось закрыть редактор Visual Basic и, вернувшись в Excel, назначить созданному макросу ShowCalendar любое подходящее сочетание клавиш (меню Сервис — Макрос — Макросы — кнопка Параметры ).

Если у Вас установлена не полная версия Office, то элемента управления Календарь может не оказаться в списке Additional Controls . Тогда скачайте этот файл (MSCal.ocx.zip) , поместите его в папку C:Windowssystem32 и зарегистрируйте новый элемент управления через меню Пуск — Выполнить , далее набрать Regsvr32 c:windowssystem32mscal.ocx и нажать ОК .

(За дополнение спасибо Vadim )

Если Вы хотите, чтобы календарь автоматически появлялся на экране, когда пользователь выделяет определенные ячейки (диапазон) на листе, то щелкните правой кнопкой мыши по ярлычку этого листа и выберите Исходный текст (View Source). В открывшееся окно редактора Visual Basic скопируйте следующий код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range(«A1:A20»), Target) Is Nothing Then
UserForm1.Show
End If
End Sub

Теперь при выделении любой ячейки из диапазона А1:А20 календарь будет автоматически отображаться на экране.

Выпадающий календарь в Excel без макросов.

​Смотрите также​14.​​Прочитал, сколько сейчас​ ​Это просто режим​​ знают!»​ * 2, i​
​ демонстрирует, как можно​ свойство Value этих​ даты. Ссылка на​ предоставить ежемесячный отчет​
​ календарь или на​: Вопрос немного в​ slancalendar.Show End Sub​»Показать календарь», далее​ откройте его в​ Формулы существуют во всех​>​Можно сделать без​При смене года​ стало возникать проблем​ работы формы. Читайте​Sasha_Smirnov​
​ * twip, twip​ использовать календарь ‘​ элементов. txt.text=DTP.value или​ ячейку в аргументе​ за прошлый месяц​ панели выскочит значок​ другом. Не как​Sasha_Smirnov​ ваш код, по​
​ программе Office Online​ ячейках, которые содержат​создать​ макросов простой​ или месяца время​ с `Элементом управления​ описание!​​: И ещё завалявшийся​ * 2, twip​ без подключения его​ TXT=DTP​ первого раза использования​
​ о взаиморасчетах поставщику​ календаря data pikcer​ выбрать дату, а​: На крайняк: Ручной​​ внесению данных в​ (некоторые календари предназначены​ дату, а также​в Excel.​выпадающий календарь в​ теперь устанавливается на​ Календарь` (`Calendar Control`)​Зачем Вам ?​ пример: excel2010.ru/tryuk-89-kak-dobavit-element-upravleniya-kalendar-v-lyubuyu-rabochuyu-knigu-excel.html​​ .Locked = i​​ к проекту, для​​mentos_has_arisen​ функции МЕСЯЦ –​ в день поставки​MaNika​Night Ranger​
​ ввод даты (автоподстановки,​ ячейку, и в​ для редактирования в​ в строках даты,​Примечание:​

​Excel​ 00:00:00. Это логично,​и понял, что​ Можно же двойным​Alenis​ = 0 End​ этого нужна только​: в ексцесе —​
​ относительная, так как​
​ товара и сэкономить​: buxrasid,​: Да ну и​ контроль правильности) (рисунок​ конце скрыть календарь.​ Excel Online, другие —​ которые выводятся в​

excel-office.ru

Создание календаря на основе шаблона

​ В Excel 2007 нажмите​​. Для этого установим​ ведь в заголовке​ нужен календарь, не​ кликом выбрать!​: Большое спасибо) Ваша​ With Next j,​ форма ‘ совместимость​ вставка — элемент​ проверятся будут несколько​ на курьерских услугах.​У меня начальница​ что, пожалуйста, вместо​ Excel 2007).​ELSE GOTO END​ в Word Online,​ виде пустых ячеек.​ кнопку​ выпадающие списки.​ формы пишется 1-е​ зависящий от библиотек​

​VovaK​ надстройка очень помогла.​ i With btn​ версий любая ‘—————————————————————————————​ ActiveX — календарь​ ячеек в столбце​ Для этого следует​ хочет видеть именно​

​ MsgBox, поставьте TextBox​Hugo121​

​как то так.​ а третьи — для​ Эти формулы обеспечивают​Microsoft Office​​Как сделать выпадающие​​ число месяца.​​ сторонних производителей.​​: Добавил ввод времени.​

​Olga-22​​ .Caption = «Сегодня»​ Const jstart =​​ 10.0… а дальше​​ C. После функции​​ выделить все даты​​ автоматически выскакивающий календарик​

1. ​ и всё​​: Ещё можно посчитать​​SanShiney​​ работы в PowerPoint​​ автоматическое обновление календаря.​​_з0з_, а затем —​​ списки, смотрите в​

2. ​15.​К сожалению, по​​VovaK​​: Хочу сделать в​

​ .Move jstart, iNext​ 5, istart =​

• ​ все как описано​ стоит оператор сравнения​
• ​ предполагаемых поставок, припадающие​
• ​Сижу вот ковыряюсь​

1. ​Позже выложу решение,​​ количество выделенных ячеек​​: Не хотел умничать,​​ Online).​​ Если вручную изменить​

2. ​создать​​ статье «Выпадающий список​​Для исключения ошибок​ образованию я –​​: Нашел неприятную недоработку.​​ ячейке Excel 2007​

3. ​ + fr.Height +​ 5 Const twip​​ выше.​​ с номером текущего​

   ​ на вторник.​buxrasid​ но только оно​ — если >1,​ просто я понимаю,​Совет:​ данные в этих​.​ в Excel».​ в макросе допустимый​ не программист. Опыт​​ При изменении года​​ выпадающий календарь для​​ istart, lb.Width, lb.Height​​ = 18, cc​iam2005​ месяца. Там уже​Для решения выше описанной​: попробуйте​ будет не настолько​ то календарь не​

   ​ что это возмонжо,​​ Если вы уже открыли​ ячейках, календарь больше​Выберите​Сначала сделаем на​ диапазон годов был​ VBA у меня​ нажатием на SpinButton,​ ввода дат. Следуя​ End With btn_Click​ = 6 Dim​: Один из вариантов:​ используется абсолютная ссылка​ задачи мы, используя​

​Постовой​​ примитивное,​ открывать.​ но корректно окончательный​ Excel Online, выберите​ нельзя будет обновлять​Поиск шаблонов в сети​ отдельном листе списки​ ограничен от 2​ не большой.​ на нем фиксируется​ пошаговой инструкции (по​ ‘Дата сегодня !​ tt(cc, cc) As​Запускаем установку Microsoft​ (значение аргумента неизменяемое).​ специальную формулу в​: Ребята доброго всем​а кнопка будет​​Собственно обычно так​​ код написать не​

​Файл​ автоматически.​, введите​ в столбцах для​ до 9998.​Я прекрасно понимал,​ фокус и при​ разделу сайта «приёмы:​ Filling lbUpdate End​ MSForms.ToggleButton Dim lb​ Office,​​ Если результаты вычислений​​ условном форматировании выполним​​ времени суток! красивый​​ выдавать запрос в​ и делают.​ способен, т.к. не​ >​Важно:​Календарь​ выпадающего календаря. В​

​При этом следует​​ сколько(!) особенностей должен​ переводе курсора на​ выпадающий календарь для​ Sub Private Sub​ As MSForms.Label Dim​в группе Microsoft​ по обе стороны​ поиск ближайшей даты​ календарик все работает​ интернет, связанный с​riko_ltd​ знаю, как отображается​Создать​

Создание одностраничного календаря на год

​ Формулы существуют во всех​​и нажмите кнопку с​ одном столбце напишем​ отметить, что Excel​ учитывать хороший календарь.​ выбор времени не​ ввода дат») вызываю​ UserForm_MouseUp(ByVal Button As​ WithEvents fr As​ Access отмечаем (устанавливаем​ оператора сравнения совпадают,​

1. ​ в Excel для​​ но можно ли​​ датой​​: В проложении файл​​ и скрывается форма​

2. ​, чтобы перейти к​ ячейках, в том​​изображением увеличительного стекла​​ числа с 1​​ работает только с​​ Таким образом, самостоятельное​

3. ​ фокусируются SpinButtons подбора​ «additional controls», но​​ Integer, ByVal Shift​​ MSForms.Frame Dim WithEvents​

   ​галочку) на компоненте​ тогда формула возвращает​ вторников и выделим​ немного его извратить​и получать ответ​

4. ​ с надстройкой календаря.​ календаря.​ шаблонам календарей, и​ числе в ячейках,​_з0з_.​

   ​ до 31. Во​ датами после 01.01.1900.​ его создание было​

   ​ времени. По сути​​ там отсутствует «элемент​ As Integer, ByVal​ tb As MSForms.ToggleButton​ ‘Элемент управления Календарь’​

5. ​ значение ИСТИНА и​

Создание календаря на несколько листов ежемесячно

​ цветом эти ячейки.​ с учетом некоторых​ связанный с этими​Кидай в ЭксельСтарт​С/У​ под изображениями шаблонов​ которые отображаются пустыми.​Щелкните интересующий вас шаблон​ втором столбце напишем​Более ранние даты​ для меня грандиозной(!!!)​ надо принудительно переводить​

1. ​ управления календарь». Подскажите​​ X As Single,​​ Dim WithEvents cbMonth​​finnsky​​ к текущей ячейке​

2. ​ Автоматическое выделения цветом​ потребностей:​​ новостями​​ — и на​​Санж​​ щелкните ссылку​

3. ​ Эти формулы обеспечивают​​ и нажмите кнопку​​ название месяцев. В​

   ​ воспринимаются только как​ задачей.​ фокус на ComboBox​ пожалуйста, что сделать,​

4. ​ ByVal Y As​ As MSForms.ComboBox Dim​: Всеравно не пойму…​ присваивается пользовательский формат​

   ​ календарных дат:​1) Привязать его​Alex77755​ любой ячейке с​

   ​Sanja​​Еще на Office.com​ автоматическое обновление календаря.​создать​ третьем столбце напишем​

5. ​ текстовые строки или​Поэтому​ выбора месяца. Выглядит​ для того, чтобы​ Single) On Error​ WithEvents cbYear As​

   ​У меня есть​​ (заливка зеленым цветом).​Выделите диапазон ячеек B2:B10​ не к кнопке​: В принципе можно​ форматом дата -​: В модуль нужного​

6. ​.​

​ Если вручную изменить​.​ года в порядке​

​ как даты после​ВЫРАЖАЮ ОГРОМНУЮ БЛАГОДАРНОСТЬ​ это очень непрезентабельно.​ в «additional controls»​ Resume Next: Err.Clear​ MSForms.ComboBox Dim WithEvents​ MSCOMCT2.OCX, но как​Теперь усложним задачу. Допустим​ и выберите инструмент:​ как это в​ и использовать DTPicker​

​ при наведении будет​​ листа​Вы перейдете на​​ данные в ячейках,​​Какую версию Excel​​ возрастания.​​ 2000 года (например,​всем авторам, представившим​В прилагаемом файле​ появился «элемент управления​​ Set tb =​​ btn As MSForms.CommandButton​

​ его установить в​ у нас список​ «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило».​ Вашем примере а​​ (вместо самописного класса)​​ появляться иконка календаря.​

​Private Sub Worksheet_SelectionChange(ByVal​ страницу шаблонов для​ календарь больше нельзя​

Предоставление доступа к календарю

​ вы используете? ​Мы сделали в​ следующее содержание ячейки:​ здесь свои календари!!!​ все исправил. Если​ календарь»? Спасибо.​ tt((X — jstart)​ Public ThisDate As​ Excel?​ проектов охватывает не​

печать

​Выберите: «Использовать формулу для​ допустим к ячейке​ на другой (отдельной​​ac1-caesar​​ Target As Range)​ Excel. В списке​​ будет обновлять автоматически.​​Какую версию Excel вы​ списке года с​

​ 1.1.1 может быть​​George87​ найдете еще косяки,​Black__Hole​ twip ​ Date, iNext&, cr​

Общий доступ

​А пока я​ полугодие, а несколько​ определения форматируемых ячеек».​

1. ​ «А1» листа 2,​ форме) и вызывать​​:​​ On Error GoTo​

2. ​ категорий выберите​​В меню​​ используете?​​ 1950 по 2050.​​ воспринято как 01.01.2001).​

   

3. ​: На форуме заметил​​ пишите…​​: Импортируйте календарь из​​ 2, (Y -​​ As Boolean Private​

   

4. ​ пытаюсь разобраться с​​ лет:​​Чтобы выбрать дни вторников​

5. ​ то есть при​ так же по​Alex77755​ 0 If Target.Address​Календари​Файл​Более новые версии​

​ Список годов можно​​К тому же​ интересное предложение по​duckky​ вложения и пользуйтесь​ iNext) twip)​

support.office.com

выбор даты в ячейке из всплывающего календаря

​ Sub btn_Click() cr​​ MSCAL.Calendar.7 — у​
​Тогда возникает сложность ведь​ в Excel для​ активации данной ячейки​ даблклику по текстбоксу.​, приспособил для текстбокса​ <> «$A$1» Then​.​выберите команду​
​Excel для Mac 2011​ менять, добавлять в​ необходимо помнить о​ улучшению одного из​: VovaK, можно ли​
​ на здоровье!​ If Err =​ = False ThisDate​ меня есть TextBox​
​ в разные года​ поля ввода введите​ (навел курсор кликнул​в модуле​ основной формы формы.​ UserForm1.Hide: Exit Sub​В процессе работы над​Создать из шаблона​

​В меню​​ него года. Смотрите​ смене календарей в​
​ календарей:​ в вашем календаре​
​Olga-22​ 0 Then With​ = Date cbMonth.ListIndex​ в форме, двойным​ номера месяцев будут​
​ формулу: =ДЕНЬНЕД(B2;2)=2 и​
​ и вот результат)​

​Public NMформа 2​​ Но получается в​ UserForm1.Show 0 End​ письмом, возможно, понадобится​.​Файл​ статью «Чтобы размер​ России:​Решил попробовать свои​ сделать время «с​
​: Скажите, а в​
​ tb If .Enabled​

​ = Month(ThisDate) -​​ нажатием по TextBox​ совпадать и условное​
​ нажмите на кнопку​2) Привязать его​Private Sub TextBox1_DblClick(ByVal​ классе записать только​ Sub$A$1 замените адресом​ переименовать его.​В области навигации слева​выберите команду​ таблицы Excel менялся​

​- «Декрет о​​ силы.​ 08:00 до 20:00​ какую папку эти​ And .Locked =​ 1 cbYear.Text =​ у меня запускается​ форматирование будет выделять​

​ «Формат», чтобы задать​​ к столбцу «В»​ Cancel As MSForms.ReturnBoolean)​ для одного конкретного​
​ нужной ячейки​Когда все будет готово,​ в разделе​Создать из шаблона​
​ автоматически» тут.​ введении в Российской​В результате получились​

​ и с 20:00​​ два вложения импортировать?​ False Then For​ Year(ThisDate) cr =​

​ календарь — не​​ лишние даты. Поэтому​ желаемый цвет заливки​ листа 1 начиная​ NM = TextBox1.Name​ текстбокса основной формы.​The_Prist​ распечатайте письмо или​шаблоны​.​Все это можно​

​ республике западноевропейского календаря»​​ следующие дополнения и​

planetaexcel.ru

Как в MS Excel сделать выпадающий календарь при выборе ячейки мышкой

​ до 08:00″? Так​​Юрий М​ i = 1​ True Update End​ пойму, как должен​ необходимо модернизировать формулу:​

​ для ячеек. Например,​​ с 3 строки​ UserForm1.Show End Subв​Public WithEvents Tb​: Private Sub Calendar1_Click()​

​ отправьте его в​​щелкните​В диалоговом окне​

​ написать быстро копированием.​​ от 26.01.1918 г.:​ изменения:​
​ как мне надо​: Olga-22, Вы по​
​ To cc: For​ Sub Private Sub​

​ заполняться TextBox той​​Готово:​​ зеленый. Нажмите ОК​​ и до последней​ форме 1 вместо​ As MSForms.Label Private​ ActiveCell = Calendar1.Value​ электронном виде. Это​Управление временем​Поиск по всем шаблонам​ Как это сделать,​после 31.01.1918 наступило​1.​ только такой диапазон.​

​ этой ссылке смотрели​​ j = 0​ lbUpdate() If cr​ датой, которую я​Мы добавили в формулу​
​ на всех открытых​ заполненной​MsgBox «Новая дата:​ Sub Tb_Click() slancalendar.Hide​ Unload Me’закрываем форму​ можно сделать прямо​.​в правой части​ смотрите в статье​ 14.02.1918​Добавлен выбор режима​hbs-group​ календарь? Почитайте P.S.​ To cc With​

​ = False Then​​ выберу в календаре???​ две функции, которые​ окнах.​3) И наконец​

​ » & .Value​​ UserForm_AD_EVALUATION.TextBox_EFFECTIVE_DATE = CDate(Tb.Tag)​ после выбора даты​ в Excel Online.​Дважды щелкните один из​ экрана введите​
​ «Копирование в Excel»​- Смена календаря​

​ вставки дат на​​: Огромное спасибо за​ перед комментариями.​
​ tt(j, i) .Value​ Exit Sub lb.Caption​И ещё по​ позволяют нам выбрать​Результат выделения цветом каждого​ самое главное как​

​ oldVal = .Value​​ End SubА как​​ End SubP.S. Оформляйте​​ Нет необходимости предварительно​ шаблонов​Календарь​ здесь. Получились такие​ Петром I с​ лист:​
​ выпадающий список!​EducatedFool​ = (.Name =​ = Format(ThisDate, «mmmm​ поводу MSCAL.Calendar.7 -​ дни определенного месяца​ вторника в списке​ нить прикрутить часики.​ UserForm2.Controls(NM) = .Value​ сделать к примеру:​ коды тегами(кнопочка над​ сохранять его (это​календаря на странице​.​ списки.​

​ 01.01.1700 г.​​– вставить только​Azakia​:​ tb.Name) If .Value​
​ yyyy г») If​ как его внешне​ и года:​

​ дат поставок товаров:​​[color=green]Это нужно для​​ Me.Hide​​ — вызов календаря​

​ полем сообщения)​​ уже сделано за​.​Выберите нужный шаблон календаря​
​Присвоим имена этим спискам.​- С 1492​ одну дату и​: VovaK, пожалуйста подскажите​Black__Hole​ Then ThisDate =​ Split(lb.Caption)(0) <> cbMonth.Text​ изменить — фон,​=ГОД() – функция работает​В формуле мы использовали​ того что бы​Night Ranger​ бросаю на событие​Павел Запивахин​ вас).​Excel откроет новый лист,​ и нажмите кнопку​ Как присвоить имя​ года новый год​ время (форма работает​ как при наличии​: Скажите, а в​ DateSerial(cbYear.Text, cbMonth.ListIndex +​ Then cbMonth_Click End​ цвет, шрифт?​ по тому же​ функцию =ДЕНЬНЕД(), которая​ иметь разницу во​: Ну а я​ KeyPress текстбокса, календарь​: Ввод в TextBox​Чтобы напечатать его, нажмите​ основанный на шаблоне​создать​ диапазону списка, смотрите​ начали отмечать с​ в модальном режиме​ двух текстбоксов с​ какую папку эти​ 1, .Caption) End​ Sub Private Sub​Если говорите, что​ принципу что и​ возвращает номер дня​ времени.​ про что!, можно​ появляется, выбираем дату,​ даты из календаря​ клавиши CTRL+P и​ на год с​.​ в статье «Диапазон​ 01 или 21​ и закрывается после​ помощью вашего календаря​ два вложения импортировать?{/post}{/quote}​

​ If End With​​ Update() lbUpdate Filling​ DTPicker (MSCOMCT2.OCX) лучше,​ =МЕСЯЦ(). Разница только​

​ недели для исходной​​Я с формы​ смело делать массив​ а теперь чтобы​ и закрытие календаря:​
​ нажмите кнопку​ одной страницей в​Вы можете легко применить​ в Excel».​
​ сентября.​ вставки даты на​ вбить две даты?​В проект -​
​ Next j, i​ End Sub Private​ то как его​

​ в том, что​​ даты. В первом​ на листе 2​ форм, и у​ дата записалась на​Private Sub Calendar1_Click()​Печать​ календаре.​
​ свой внешний взгляд​
​Смотрим в диспетчере​
​- Раньше новый​ лист)​т.е. вызвав юзерформ​ файлы сами попадут​ End If: End​
​ Sub cbMonth_Click() If​ подрубить?​ возвращает из даты​ аргументе функции указываем​ вношу данные на​

​ каждой формы свой​​ тот текстбокс из​ UserForm2.TextBox1 = Format(Calendar1.Value,​для предварительного просмотра.​Щелкните ячейку, в которой​ к календарю. Шаблоны​ задач на закладке​
​ год отмечали 01​– вставить несколько​ на ней в​
​ в нужные папки​ With: End If​ cr = False​Спасибо​

​ номер года.​​ ссылку на исходную​ лист 1 пусть​ календарь​
​ которого был вызван​ «dd.mm.yyyy»: Unload Me​ Нажмите кнопку​
​ отображается год, а​ календарей отформатированы с​ «Формулы» перечень имен​
​ или 21 марта.​
​ дат​ текстбокс1 указать например​Skif-F​ End Sub Sub​

​ Then Exit Sub​​finnsky​=И() – данное имя​ дату. Ссылка относительная​ они отображаются в​
​и так-же связать​ календарь?​

​ End SubВ UserForm2:​​Печать​

​ затем в появившемся​

​ помощью тем, которые​
​ списков.​Таким образом, я​2.​

CyberForum.ru

Выпадающий календарь (Календарь выпадает при нажатии на кнопку)

​ 01.01.2016 а во​​: Просто надо пересохранить​
​ Filling() For j​ ThisDate = DateSerial(Year(ThisDate),​
​: по поводу DTPicker​ функции говорит само​ так как будет​ столбце «А» это​ строго с определенным​Alex77755​
​Private Sub TextBox1_Enter()​

​еще раз, чтобы​​ всплывающем списке выберите​ позволяют применять к​

​Теперь на другом листе​​ не могу гарантировать​
​Добавлен выбор способа​ второй например 31.03.2016​ в другом формате.​ = 0 To​ cbMonth.ListIndex + 1,​http://relib.com/forums/topic.asp?id=854920​ за себя. То​
​ проверятся каждая дата​

​ при открытии позиции​​ классом или TextBox-ом​​: В массив их​​ Calendar.Show ‘ вызов​ распечатать лист.​
​ нужный год.​
​ книге шрифты, цвета​

​ делаем обычные выпадающие​​ точное соответствие дней​ вставки даты на​VovaK​Цитата​ cc ‘Понедельники вторники​ Day(ThisDate)) Update End​Подключение OCX​ есть должны совпадать​ в столбце B.​

​А вечером при​​но хочу заметить​
​ загнать, что б​ календаря End Sub​Совет:​
​Когда вы сделаете выбор,​

​ и эффекты форматирования​​ списки через функцию​

​ недели и чисел​​ лист: одиночным или​: Azakia, прочитайте весь​al-Ex, 19.01.2016 в​ даты и тд​ Sub Private Sub​Microsoft Visual Basic​ и номера месяцев​
​ Во втором аргументе​ закрытии в пустые​ форма нужна обязательно,​ процедура одна на​The_Prist​ Чтобы напечатать все листы​ лист календаря автоматически​ рисунка, выполнив только​ «Проверка данных» на​ месяцев до 1918​
​ двойным щелчком по​ пост на Ваш​ 12:03, в сообщении​ With tt(j, 0)​ cbYear_Click() If cr​ for Applications​
​ и их номера​ обязательно следует указать​ ячейки столбца «В»​
​ так-как надо поймать​ всех была​: Павел Запивахин, оформляйте​ в шаблоне, щелкните​
​ обновляется.​ щелчок мышью. На​ закладке «Данные» в​ года.​ числу на календаре.​ вопрос уже есть​ № 119200?’200px’:»+(this.scrollHeight+5)+’px’);»>В коде​
​ .Caption = WeekdayName(j​ = False Then​Меню Tools-References-Browse-выбираем файл​ годов.​ число 2, чтобы​ на листе 1​ событие от неё​Имя вызвавшего (или​ тегами коды внутри​ каждый ярлычок листа​
​Примечание:​ вкладке​ разделе «Работа с​Прошу историков не​3.​ ответы. Подсказка -​ формы я добавил​ + 1, 1,​
​ Exit Sub ThisDate​ OCX.​Вся формула достаточно просто​ функция правильно выдавала​ должен проставить дату​Alex77755​

​ сам объект) запоминать​​ сообщений.​ и напечатайте их​ Чтобы изменить доступные годы​Разметка страницы​ данными». Получились списки​ судить строго данный​
​Добавлена возможность выбора​ глобальная переменная и​ функцию​
​ vbMonday) .Font.Bold =​ = DateSerial(cbYear.Text, Month(ThisDate),​Ищем на панели​ читается и ее​ нам очередности дней​ и время, при​
​: зачем массив форм​

​ в глобальной переменной​​Юрий М​ по одному.​ в этом списке,​
​в группе​ с полосами прокрутки.​ календарь.​ дат не текущего​ UserForm.Show 0.​А вот здесь​

​ 1 End With​​ Day(ThisDate)) Update End​​ новый элемент.​​ легко использовать для​ недели (1-понедельник, 2-вторник​ чем закрыть можно​ с каледарями? достаточного​ac1-caesar​: См. файл с​

excelworld.ru

Как выбрать дату на текущий месяц во всех ячейках таблицы Excel

​Чтобы поделиться буклетом в​ измените данные в​темы​ Получился такой​При необходимости можно​ месяца.​jakky​ я не согласен.​ Next: j =​ Sub Private Sub​Вывод даты в​ решения похожих задач​ и т.д.). Если​ и завтра и​ одного.​:​ календарём на стандартных​ Интернете, отправьте ссылку​ окне списка подСтановки.​выберите из десятков​выпадающий календарь в Excel​

Поиск даты в диапазоне дат Excel

​ будет внести поправки.​4.​: Спасибо, интересно!​ Календарик работает в​ 0 While Weekday(DateSerial(Year(ThisDate),​ UserForm_Initialize() maxWidth =​ TextBox​ с помощью условного​ не указать второй​ через любой другой​

1. ​Запоминать откуда вызвали.​Alex77755​ элементах (автор Слэн).​
2. ​ на него.​Сохраните книгу.​
3. ​ встроенных тем, доступных​без макросов.​16.​Добавлены всплывающие подсказки​Lanalina​ какой-то книге -​ Month(ThisDate), j)) <>​ twip * (cc​Private Sub Calendar1_DblClick()​ форматирования.​ аргумент, то функция​

​ промежуток времени​ Из какой формы​, спасибо!​

​ Вызов календаря при​В верхней части экрана​Книга с несколькими листами​ в галерее темы,​В таблице, бланке, где​В файл с​ с названием месяца​: Интересное решение!​ вот в неё​ 1 j =​ + 1) *​ UserForm1.TextBox1.Text = Format(UserForm.Calendar1.Value,​Читайте так же: как​ будет считать дни​В конце концов​ и какого контрола​Night Ranger​ активации ячейки В2,​ нажмите кнопку​ содержит двенадцать месяцев​ или найдите параметры,​ будем устанавливать такой​ календарём добавлена инструкция.​ над датами не​

​Azakia​ и надо сохранять​ j — 1​ 2 Width1 =​ ‘dd.mm.yyyy’) UserForm1.Hide End​ посчитать разницу между​ в английском формате:​ в соответствующих ячейках​Ну в смысле​

​: Всё это делается​

Выделения дат цветом только текущего месяца

​ в неё же​Общий доступ​ в одной книге,​ чтобы изменить только​ календарь, сделаем ячейки​al-Ex предлагал, чтобы​ текущего месяца. Если​: VovaK, по первым​ настройки (всегда можно​ Wend: jj =​ maxWidth 2​ SubКороче, вот как​ датами в днях.​ 1-sanday (неделя), 2-Monday​ столбца «С» листа​ одной формы с​ гораздо, гораздо проще​ будет вставлена дата.​.​ что очень удобно​

​ шрифты темы или​ поуже, по размеру​ при клике по​ не текущими месяцами​

1. ​ постам нашел за​ добавить скрытый лист).​ j For i​
2. ​ iNext = istart​ выглядит код:​[TUES]ZandR​
3. ​ (понедельник) и т.д.​ 1 я должен​ календарём​ !​ Для вставки даты​В разделе​ для личного планирования​ цвета темы.​ чисел, названию месяца.​

​ числам не текущего​ являются декабрь или​ глобальную переменную -​

​А засорять реестр​ = 1 To​ jNext = jstart​Forms:​: Помогите кто-нибудь !​Дальше идет оператор сравнения​ получить разницу в​Добавлено через 1 минуту​’————————————————————————————— ‘ Пример​ в любую активную​Общий доступ​ или для обращения​Важно:​В списке месяцев​ месяца месяц менялся​ январь, во всплывающие​ получилось!​ не стоит​ cc: For j​ ThisDate = Date​calend (форма календаря):​Как сделать, чтобы​ с числом 2.​ часах, так как​Совсем забыл про​ : Календарь ‘​

​ ячейку используйте кнопку.​щелкните элемент​ к датам в​ Формулы существуют во всех​ можно название месяцев​

​ на соответствующий так​ подсказки добавляется соответствующий​сделал для одного​котов​ = 0 To​ Me.Caption = «Календарь»​Dim Mycmd As​

​ при нажатии кнопки​

​ Если возвращаемое число​ оплату считает бухгалтер​ этот способ. А​ Дата и время​Павел Запивахин​

1. ​Получить ссылку​ течение любого года.​ ячейках, которые содержат​ написать в падеже​ же, как и​ год.​ текстбокса а вот​
2. ​:​ cc v =​ Set fr =​ Control Dim CommandButton1​ выходил календарь и​ функцией = 2​ по часам.​

​ в примерах валаятся​ : 13 января​: Понял, исправлюсь.​.​ Вы можете добавить​ дату, а также​

​ – января, февраля.​ при смене месяца​5.​

exceltable.com

Выбор даты в календаре

​ про юсерформ 0​​Skif-F​
​ DateSerial(Year(ThisDate), Month(ThisDate), jj)​ Me.Controls.Add(«Forms.Frame.1», «fr») Set​ As New Class1​ можно было бы​ значит формула возвращает​Пример: Ячейка «А3″​ же!​ 2015 12:54 ‘​
​Henior​

​В списке​​ собственный текст в​ в строках даты,​ Получится так.​ в выпадающем списке.​Добавлена опция выделения​ я не нашел…​, первый столбец выбора​

​ + 1 With​​ lb = Me.Controls.Add(«Forms.Label.1»,​ Private Sub UserForm_Initialize()​ выбрать нужную дату​ значение ИСТИНА и​ заполнена 01.02.2013г 09:15​

​Night Ranger​​ Автор : Night​: Всем привет! Как​
​Выберите один из вариантов​ высоту ячеек, расположенных​ которые выводятся в​
​Можно вместо названия​Это не сложно​ цветом субботы в​ да ещё и​
​ дат «съел» кнопку​

​ tt(j, i) .Caption​​ «lb») Set cbMonth​ Set Mycmd =​ и она помещалась​ к текущей ячейке​ в ячейке «В3″​: не знаю где​ Ranger ‘ Яндекс.Деньги​ в MS Excel​выберите пункт​ под ячейкой Date.​

​ виде пустых ячеек.​​ месяца указать в​ сделать.​ качестве выходного дня.​ не знаю как​ «принять». Верните, пожалуйста​ = Day(v) .Enabled​ = Me.Controls.Add(«Forms.ComboBox.1», «cbMonth»)​ Controls.Add(‘MSCAL.Calendar.7’) Set CommandButton1.CommandButton1​ бы в TextBox​ применяется пользовательский формат​ закрываю позицию 03.02.2013г.​ валялся, я нашел​ — 410012757639478 ‘​

​ сделать выпадающий календарь​​Только просмотр​В меню​ Эти формулы обеспечивают​ списке номер месяца​Однако не совсем​6.​

​ это)))​​ для 2003!​
​ = Month(v) =​ Set cbYear =​
​ = calend.Controls(1) Module1.Дата​ ?​
​ (красная заливка).​ 09:17 Получаю в​

​ сначало в гугле​​ [email][email protected][/email] ‘ [url]http://www.cyberforum.ru/vba/[/url]​
​ при выборе ячейки​.​Файл​ автоматическое обновление календаря.​
​ с точкой –​ понятно,​Добавлена опция выделения​если можете поясните​al-Ex​ Month(ThisDate) .Value =​ Me.Controls.Add(«Forms.ComboBox.1», «cbYear») Set​ = CommandButton1.CommandButton1.Value End​ZandR​​ Ячейке «С3» 48:02​ подсказку​
​ ‘ Описание :​ мышкой?​Нажмите кнопку​выберите команду​ Если вручную изменить​
​ 01., 02. И​зачем​ цветом праздничных дней.​ пожалуйста про юсерформ​
​: Можно и на​

​ .Enabled And .Caption​​ btn = Me.Controls.Add(«Forms.CommandButton.1»,​
​ Sub Class Modules:​

​[TUES]ZandR​
​В таблице представлен список​Постовой​
​ну и сделал​ Этот пример наглядно​
​Апострофф​Создать ссылку​
​Создать из шаблона​ данные в этих​
​ поставить точку у​?​Праздничные дни, которые​ 0​ листе сохранять, но​
​ = Day(ThisDate) End​
​ «btn») With lb​
​ Class1: Public WithEvents​: В элементах ActiveX​ проектов, которые должны​: Вот нашел что​ по своему​ демонстрирует, как можно​: 7-й пост в​.​.​ ячейках, календарь больше​ чисел. Тогда получится​Для перехода на​ не переносятся, выделяются​SLAVICK​если календарь работает​ With: jj =​ .Move jstart, istart,​ CommandButton1 As Calendar​ есть calendar, при​ быть реализованные на​ то подобное но​
​Alex77755​ использовать календарь ‘​ Полезные макросы, надстройки​Щелкните веб-адрес, чтобы выделить​
​В области навигации слева​ нельзя будет обновлять​ так.​ другой месяц есть​ цветом только после​

CyberForum.ru

Как в MS Excel сделать выпадающий календарь при выборе ячейки мышкой

​: Всем привет. Решил​​ как надстройка, тогда​ jj + 1​ Width1 .Font.Size =​ ——————— Private Sub​ нажатии клавиши с​

​ протяжении текущего полугодия.​​ изменить не могу.​​:​​ без подключения его​ и шаблоны (ТЕМА​​ его, а затем​​ в разделе​ автоматически.​
​Распечатываться будет так.​ 2 элемента: выпадающий​ 1990 года.​ добавить сюда и​ и сохранять надо​ Next j, i​ .Font.Size * 2​ CommandButton1_Click() Unload calend​ датой свойство calendar.value​ Список большой, но​ Как переправить на​Не по теме:​ к проекту ‘—————————————————————————————​ РЕОРГАНИЗУЕТСЯ)​ скопируйте и вставьте​шаблоны​Совет:​Далее рассмотрим, как​ список и кнопки​Конечно, и в​ свой вариант календаря.​ в надстройке.​ End Sub​ iNext = iNext​ End Sub Forms:​ принимает значение выбранной​ нас интересуют только​ 1 клик в​У меня в примерах​ Const twips =​krestsoft​ его в сообщение​щелкните​ Вы также можете искать​ сделать календарь на​ прокрутки.​ этот период праздничные​ Когда-то делал для​добавил лист «mySetting»​ac1-caesar​ + .Height +​ sformir_zayavku (форма, где​ даты, его и​ те проекты, которые​ ячейке «А1″​Только по ексель​ 15 Dim calend,​: Присоединяюсь к вопросу,​ электронной почты, текстовое​Управление временем​ другие шаблоны календарей​ любой месяц любого​А щелчком по​ даты менялись. Это​ одного задания.​и код изменил​: в файле​ istart jNext =​ textbox): Private Sub​ стоит записать​ должны быть реализованы​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_DoubleClick(ByVal Target​ около Гига разных​ i&, oldVal As​ вышеприведенная ссылка мертвая!​ сообщение или запись​.​ в Интернете. Скачанные​ года (вечный календарь)​ числу месяца пользователь​ можно отразить в​Предельно простой, без​ соответственно:​kalbasiatka​ jNext + .Width​ data_DblClick(ByVal cancel As​finnsky​ в текущем месяце.​ As Range, Cancel​ примеров и пр.​ Date Private Sub​Alex77755​ блога.​Дважды щелкните шаблон​ шаблоны помещаются во​ формулой. Смотрите статью​ вставляет дату на​ календаре. Однако такая​ лишних наворотов и​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​: Нашёл какой-то календарь,​ + jstart End​ MSForms.ReturnBoolean) calend.Show data​: Я знаю, что​ Визуально искать в​ As Boolean)​MaNika​ UserForm_Initialize() On Error​: Где-то попадалси примерчик​Совет:​календаря на несколько страниц​ временную папку на​ «Как создать календарь​ лист.​ работа требует много​ код на порядок​’ В Public​ добавил рамки при​ With With cbMonth​ = Module1.Дата End​ он есть в​ списке даты текущего​If Not Intersect(Target,​: Уважаемые Знатоки!​ Resume Next For​ с самодельным календариком.​ Если у вас есть​.​ компьютере. Вы можете​ в Excel формулой».​Наверное, такую смену​ времени и не​ меньше​ Function NewShow меняем:​ наведении курсора, чтобы​ .Move jNext, istart,​ SubГде, что неправильно?есть​ ActiveX, но не​ месяца – весьма​ Range(«D11:D12»)) Is Nothing​Просьба помочь в​ i = 10​Немного переработал: Убрал​ блог или веб-сайт,​Excel откроет новую книгу,​ сразу же сохранить​Примечание:​ месяца можно предложить​ является задачей моего​.​If IsEmpty(ThisWorkbook.Sheets(«mySetting»).Range(«A1»)) =​ по-взрослому было.​ (Width1 — jstart​ комментарии?​ знаю, где и​ неудобно. Можно использовать​ Then t: Target.Offset((Target.Row​ решении проблемы.​ To 1 Step​ 31 процедуру назначения.​ вы можете внедрить​ основанную на шаблоне​ шаблон в другом​ Мы стараемся как можно​ в качестве опции​ проекта.​Кнопки создаются динамически,​ True Then​Alex77755​ * 2) ​помогите…В раре с​ как его подключить​ условное форматирование, чтобы​ = 3) *​Мне необходимо написать​ -1: Err.Clear Set​Заменил 1 процедурой​ в него представление​ ежемесячного календаря на​ месте, чтобы его​ оперативнее обеспечивать вас​ при вставке даты​7.​ поэтому — легко​Me.Left = 350​: Я же говорю,​ 2, lb.Height For​ РегУтилитами есть *txt​mentos_has_arisen​ Excel нам автоматически​ 2 + 1).Select:​ макрос для календаря,​ calend = Me.Controls.Add(«MSComCtl2.DTPicker.»​ массива​ календаря.​ листах.​ было проще найти​ актуальными справочными материалами​ на лист ДВОЙНЫМ​Добавлена кнопка «Установить​ масштабируемый.​Me.Top = 250​ что таких календарей​ i = 1​ файл. там описано​: мне тоже очень​ выделил цветом интересующие​ Cancel = True​ чтобы он выпадал​ & i): If​Uchimata​Ольга Вайн​Щелкните ячейку K1, а​ в дальнейшем. Чтобы​ на вашем языке.​ щелчком. Пишите, если​ календарь на сегодня».​Для этого достаточно​Else​ есть…​

​ To 12 .AddItem​​ как пользоваться ими.​

​ интересна эта тема…​​ нас даты в​End Sub​ при нажатии на​ Err = 0​

​:​​: Добрый день.​ затем в появившемся​ быстро найти все​
​ Эта страница переведена​

​ кому-то это понадобится.​​8.​ поменять размер рамки​Me.Left = ThisWorkbook.Sheets(«mySetting»).Range(«A1»).Value​
​вот ещё 4​ Split(FormatDateTime(DateSerial(0, i, 1),​
​Для простоты скопируйте​​Будьте любезны, кто​ списке. Пример таблицы​RAN​ кнопку и заполнял​
​ Then Exit For​​Alex77755​Необходимо написать макрос,​ всплывающем списке выберите​ шаблоны календарей, доступные​

​ автоматически, поэтому ее​​Я –​​Добавлена возможность ручного​​ — все кнопки​
​Me.Top = ThisWorkbook.Sheets(«mySetting»).Range(«A2»).Value​Night Ranger​ vbLongDate))(1) Next jNext​ их в System32​ знает, как подрубить​ проектов на текущий​

​: А чье разрешение​​ значением ячейку.​
​ Next With calend​, не подскажете как​

​ который при выборе​​ нужный календарный год.​ в Office.com или​

​ текст может содержать​​любитель-самоучка​ ввода значений часов,​

CyberForum.ru

Выпадающий календарь для ввода дат

​ будут создаваться под​​End If​: Я выложил версию​ = jNext +​ винды, тудаже и​ календарь к TextBox???​ месяц в Excel:​ требуется? Наше, или​Заранее спасибо!​ ‘Размеры (Move [Left],​ сделать вызов формы​ конкретной ячейки (например​Когда вы сделаете выбор,​ на компьютере, в​ неточности и грамматические​. Поэтому сразу прошу​ минут и секунд​

​ новый размер .​​’========================================​ получше еще утром,​ .Width + jstart​

​ OCX. Далее по​​если можно поподробнее,​Нам необходимо из целой​ автора календаря?​

​buxrasid​​ [Top], [Width], [Height])​ календарика не кликнув​ В2) выводил на​ автоматически обновляются листы​

​ поле поиска в​​ ошибки. Для нас​

planetaexcel.ru

Выпадающий календарь (Для программирующих в среде VBA.)

​ так как не​​ таблицы выбрать дату​Если наше -​
​: Manika возьми эту​​ .Move twips, twips,​ на ячейку,а скажем​ экран календарь и​ календаря для всех​ коллекции книг Excel​
​ важно, чтобы эта​ моего кода. Да,​ значений).​: Azakia, найдите в​ сохраняем координаты на​датой можно оперировать​ cbYear .Move jNext,​Henior​
​ очень силёнь в​ в Excel на​

​ создайте опрос, не​​ надстройку и пользуйся​​ twips * 5,​​ двойной щелчок?ну либо​ далее при выборе​ месяцев в книге.​ _з0з_введите «​

​ статья была вам​​ я пишу очень​9.​
​ программном коде строку​ листе «mySetting»​ с помощью​ istart, (Width1 -​
​: Всем привет! Как​
​ vbA …​ текущий месяц:​
​ будет ли кто​
​MaNika​ twips oldVal =​
​ кнопку какую еще​ даты убирал данный​
​Примечание:​
​Календарь​
​ полезна. Просим вас​
​ широко. Но иначе​
​Добавлена возможность настройки​
​ DateForm.Show и допишите​
​Private Sub UserForm_QueryClose(Cancel​
​ThisDate​ jstart * 2)​ в MS Excel​
​Заранее благодарен!​Выделите диапазон ячеек B2:B11​ возражать против изменения​
​: buxrasid,​
​ .Value 'Запомнить текущее​
​ нажать,просто когда выделяю​

​ календарь с экрана.​​ Чтобы изменить доступные годы​».​ уделить пару секунд​ я сам потом​ внешнего вида основных​ 0 через пробел​ As Integer, CloseMode​, там-же я скинул​

​ 2, lb.Height​​ сделать выпадающий календарь​iam2005​

​ и выберите инструмент:​​ вами календаря из​
​Я бы с​

​ значение End With​​ ячейки вместе с​
​На данный момент​ в этом списке,​Вы можете легко применить​
​ и сообщить, помогла​ не могу прочитать​ элементов календаря без​

​ справа от этой​​ As Integer)​

​ файл с примером,​​ For i =​ при выборе ячейки​: Стандартный OCX(точнее что​ «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило».​ этой темы.​ удовольствием, если бы​ End Sub Private​ нужной строкой,открывается календарь)​ я вывела на​ измените данные в​ свой внешний взгляд​ ли она вам,​ даже свои макросы.​
​ изменения кода макроса.​ записи.​ThisWorkbook.Sheets(«mySetting»).Range(«A1»).Value = Me.Left​ а для кого​

​ Year(ThisDate) — 100​​ мышкой?​ с оффисом идет)​Снова выбираем: «Использовать формулу​Pelena​ знала как указать​ Sub UserForm_MouseMove(ByVal Button​ нельзя ли этого​ экран календарь, который​

​ окне списка подСтановки.​​ к календарю. Шаблоны​ с помощью кнопок​

​Проводить полное тестирование​​10.​DateForm — это​ThisWorkbook.Sheets(«mySetting»).Range(«A2»).Value = Me.Top​ я старался?:​ To Year(ThisDate) +​
​ac1-caesar​ устанавливается при установке​ для определения форматируемых​:​ ей куда вписываться​

​ As Integer, ByVal​​ избежать как то?​ «висит» всегда (не​Щелкните любую ячейку в​ календарей отформатированы с​ внизу страницы. Для​ календаря у меня​

​Перенесены макросы запуска​​ имя UserForm.​

​End Sub​​ac1-caesar,​

​ 100 .AddItem CStr(i)​​:​ Оффиса на комп.​ ячеек».​Постовой​
​ и по какому​ Shift As Integer,​Alex77755​ убирается).​ календаре, например первую​ помощью тем, которые​ удобства также приводим​
​ нет сейчас возможности.​ календаря и вставки​lazy​

​Цитата​​для тебя! (ну​ Next End With​Alex77755​ Но мне нравится​В поле ввода введите​
​, сколько можно постить​ условию появляться и​ ByVal X As​: Ставь вызов календаря​​И при выборе​
​ доступную ячейку, в​ позволяют применять к​ ссылку на оригинал​
​Приму любые замечания​ даты на лист.​: здравствуйте​котов, 06.03.2016 в​ и для себя​

​ With fr .Move​​, в этом календаре​ больше DTPicker который​ формулу: =МЕСЯЦ(B2)=МЕСЯЦ($C$2) и​ в чужих темах?​ пропадать…​ Single, ByVal Y​
​ в нужное тебе​ даты на календаре​

​ которой отображается надпись​​ книге шрифты, цвета​
​ (на английском языке).​ и пожелания.​11.​вставил этот макрос​ 06:19, в сообщении​ тоже, скоро он​ jstart, iNext, maxWidth,​ от​ находится в Библе​ нажмите на кнопку​ Вам предупредительного бана​

​(((​​ As Single) With​​ событие и пробуй​
​ она устанавливается в​ «пример текста», и​
​ и эффекты форматирования​В Excel имеются шаблоны​В меру своих знаний​Изменено направление прокрутки​​ в свой файл,​ № 122200?’200px’:»+(this.scrollHeight+5)+’px’);»>А засорять​ мне понадобиться)​ twip * (cc​
​Night Ranger​ MSCOMCT2.OCX которую необходимо​ «Формат», чтобы задать​ мало? Или Вы​Pelena​
​ calend If oldVal​ варианты​ любую активную ячейку.​ добавьте собственные данные.​ рисунка, выполнив только​ календарей, установленные на​ готов помочь в​
​ месяцев.​​ при использование появился​​ реестр не стоит​ac1-caesar​

​ + 1) .Enabled​​нет DatePcker. И​ отдельно устанавливать. Он​ желаемый цвет заливки​ нарочно это делаете?​
​:​ <> .Value Then​
​Private Sub Worksheet_BeforeDoubleClick(ByVal​Private Sub Calendar1_Click()​Примечание:​
​ щелчок мышью. На​​ компьютере. В коллекции​ работе над таким​12.​
​ вопрос, как можно​ а реестр, -​:​ = 0 .SpecialEffect​ сделан не плохо.​ идет с VB6​ для ячеек. Например,​
​ И чего добиваетесь?​MaNika​
​ ‘Если у формы​​ Target As Range,​ ActiveCell = Calendar1.Value​ При изменении года, содержащего​ вкладке​ книг Excel можно​
​ нужным проектом​​Исправлены ошибки, возникающие​ сделать так чтобы​ не «святая икона»​
​Night Ranger​​ = 0 End​’————————————————————————————— ‘ Решение​finnsky​ зеленый. Нажмите ОК​Допустим поставки товаров от​, может здесь найдете​ возникло событие MouseMove​ Cancel As Boolean)​ End Sub Private​
​ пользовательские данные, настраиваемые​​Главная​ просмотреть эти шаблоны​.​
​ при не корректном​​ при нажатие на​ для этого и​
​, да спасибо!​ With For i​ : Календарь ‘​: Да… и в​
​ на всех открытых​ поставщика 1 раз​ варианты:​ и дата поменялась​ ‘ Cancel =​ Sub UseForm_Activate() Me.Calendar1.Value​ данные, существовавшие в​в группе​ и создать новый​
​Рекламные ссылки удалены​​ ручном вводе значения​ объединённую ячейку (​
​ существует, собственно.​​Вот можно же​ = 0 To​ Дата и время​ том и другом​ окнах.​
​ в неделю. Банковские​​http://www.excelworld.ru/forum/3-612-6999-16-1310554335​ ‘это означает что​ True ‘если закомментировать​ = Date End​

​ календаре, не изменяют​​темы​ документ на основе​Размер файла с​
​ года.​​ в прописанном диапазоне​Skif-F​
​ сделать красивый и​​ cc: For j​ : 14 января​ случаее необходимо сначала​В результате визуально отчетливо​
​ транзакции взаиморасчетов с​​http://www.excelworld.ru/forum/2-3116-33638-16-1356274094​ был клик по​ будет активироваться ячейка​ Sub Sub ShowIt()​ положение ячейки при​выберите из десятков​ одного из них.​
​ календарём получился больше​​13.​ макроса) левой кнопкой​: Не понял, покажите​ для всех версий​ = 0 To​ 2015 01:15 ‘​ выбрать элемент из​
​ видно дни текущего​​ поставщиком товаров производятся​buxrasid​ дате MsgBox «Новая​ slancalendar.Show End Sub​ UseForm1.Show End SubЧто​
​ изменении дат.​ встроенных тем, доступных​Windows Mac Интернет​ 100 Kb, поэтому​
​Исправлена ошибка `-2147467259​ мыши календарик тоже​ картинку​ excel удобный календарь,​ cc Set tt(j,​ Автор : Night​ списка установленных на​ месяца:​
​ регулярно каждый вторник.​: Manika если зделаешь​ дата: » &​ Private Sub Worksheet_BeforeRightClick(ByVal​
​ необходимо исправить?​Сохраните книгу.​ в галерее темы,​ ​
​ к сообщению он​ (80004005)`, возникающая при​
​ выскакивал.​котов​ что мелкософтовцы так​
​ i) = fr.Controls.Add(«Forms.ToggleButton.1»,​ Ranger ‘ Яндекс.Деньги​ Вашем компе OCX.​В представленной формуле для​ Необходимо быстро проверить​
​ как написано в​ .Value oldVal =​ Target As Range,​
​SanShiney​Создавать письма в Интернете​ или найдите параметры,​Вы можете загружать шаблоны​ не прикрепился​ движении указателя мыши​
​George87​: фото al-Ex,​ избегают его?​
​ «tt» & i​ — 410012757639478 ‘​
​ Затем поместить на​​ условного форматирования главную​ в какие дни​
​ текстовом файле выложенный​ .Value End If​ Cancel As Boolean)​: Может через «IF»​ можно быстро и​ чтобы изменить только​ календарей с полезными​Вот ссылка на​
​ по числам месяца,​:​
​Skif-F,​Sasha_Smirnov​​ & j) With​​ [email][email protected][/email] ‘ [url]http://www.cyberforum.ru/vba/[/url]​
​ форму. Далее отслеживать​ роль играет функция​ дата поставки товара​ мною то при​ End With End​
​ Cancel = True​ написать, что если​ легко.​ шрифты темы или​
​ и творческими темами​ Yandex.диск:​ если курсор остался​Здравствуйте!​Skif-F​: Так закажите!​ tt(j, i) .Move​
​ ‘ Описание :​​ события этих элементов.​​ =МЕСЯЦ(), которая определяет​ совпадает с датой​ клике правой мышки​ Sub​ ‘если закомментировать будет​IF ActiveCell.Cell =​Выберите один из наших​ цвета темы.​
​ при выборе команды​Версия календаря (ноябрь​ в поле ввода​
​Понадобился календарь для​: Никогда!!!!​
​«А мужики-то не​ j * twip​ Этот пример наглядно​ и присваивать текстбоксу​​ номер месяца исходной​
​ взаиморасчетов. Это позволит​
​ первая строка будет​Alex77755​ появляться контекстное меню​ «B2» THEN​ шаблонов календарей и​
​Важно:​файл​
​ 2016 г.)​ значения года.​

excelworld.ru

​ проекта.​