Как сделать календарь в excel
Перейти к содержимому

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

  • автор:

Шаблоны календарей в Excel

Многие шаблоны календарей доступны для использования в Microsoft Excel. Шаблон предоставляет базовый макет календаря, который можно легко адаптировать в соответствии с вашими потребностями.

Шаблон календаря Excel может иметь одну или несколько из следующих функций:

  • Двенадцать месяцев на одном или отдельных листах.
  • Тринадцать месяцев, начиная с июля или августа и заканчивая июлем или августом следующего года, чтобы представлять учебный год.
  • Печать календаря на одной странице или двенадцати страницах (тринадцать страниц для календарей учебного года).
  • Отображение рабочих дней с воскресенья по субботу или с понедельника по воскресенье.
  • Книжная или альбомная ориентация для печатных страниц.
  • Управляемый столбец для заметок.
  • Планировщик отпусков.
  • Списки задач.
  • Средства отслеживания задач.
  • Средства отслеживания бюджета.
  • Средство отслеживания ежедневного расписания.

Скачайте шаблон календаря:

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

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

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

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

Многие шаблоны календарей доступны для использования в Excel. Шаблон предоставляет базовый макет календаря, который можно легко адаптировать в соответствии с вашими потребностями.

Вы можете скачать шаблоны календаря с полезными и творческими темами, щелкнув Файл > Создать в Excel .

Кнопка

    Выберите Поиск онлайн-шаблонов, введите календарь и выберите лупу

Какую версию Excel вы используете?

  • Какую версию Excel вы используете?
  • Более новые версии
  • Excel для Mac 2011
  1. В меню Файл выберите команду Создать из шаблона.
  2. В правой части в поле поиска Поиск по всем шаблонам введите Календарь.
  3. Выберите нужный шаблон календаря и нажмите кнопку Создать. Вы можете легко применить свой собственный вид к календарю. Шаблоны календарей форматируются с помощью тем, которые позволяют применять шрифты, цвета и графические эффекты форматирования в книге всего лишь щелчком мыши. На вкладке Разметка страницы в разделе Темы выберите из десятков встроенных тем, доступных в коллекции темы, или найдите параметры для изменения только шрифтов или цветов темы.

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

Совет: Вы также можете искать другие шаблоны календарей в Интернете. Шаблоны скачиваются во временную папку на компьютере. Вы можете сразу сохранить шаблон в другом месте, чтобы его было проще найти. Чтобы быстро найти все шаблоны календаря, доступные на Office.com или на компьютере, в поле поиска Excel Workbook Gallery

введите calendar.

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

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

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

Важно: Формулы существуют во всех ячейках, включая ячейки, которые кажутся пустыми. Эти формулы позволяют календарю обновляться автоматически. Если вручную изменить данные в ячейках, календарь больше не сможет обновляться автоматически.

  1. В меню Файл выберите команду Создать из шаблона.
  2. В области навигации слева в разделе Шаблоны щелкните Управление временем.
  3. Дважды щелкните шаблон Одностраничный календарь . Excel открывает новый лист, основанный на шаблоне одностраничного ежегодного календаря.
  4. Щелкните ячейку, в которой отображается год, и во всплывающем списке выберите нужный год. При выборе листа календаря автоматически обновляется.

Примечание: Чтобы изменить доступные годы в этом списке, измените данные на листе подстановки.

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

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

  1. В меню Файл выберите команду Создать из шаблона.
  2. В области навигации слева в разделе Шаблоны щелкните Управление временем.
  3. Дважды щелкните шаблон Многостраничный календарь . Excel открывает новую книгу, основанную на шаблоне ежемесячного календаря на нескольких листах.
  4. Щелкните ячейку K1 и во всплывающем списке выберите нужный календарный год. При выборе листы календаря за все месяцы в книге автоматически обновляются.

Примечание: Чтобы изменить доступные годы в этом списке, измените данные на листе подстановки.

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

См. также

Создавать письма в Интернете можно быстро и легко.

Шаблон календаря в Excel для Интернета

Выберите один из наших шаблонов календаря и откройте его в Office в Интернете программе, чтобы сделать его вашим (некоторые календари предназначены для редактирования в Excel в Интернете, некоторые в Word в Интернете, а другие работают в Веб-приложение PowerPoint ).

Совет: Если вы уже используете Excel в Интернете, просмотрите все шаблоны календаря, выбрав Файл > Создать, а затем под изображениями шаблонов щелкните Дополнительно на Office.com.

Щелкните ссылку

Вы перейдете на страницу Шаблоны для Excel. В списке категорий выберите Календари.

В процессе работы над письмом, возможно, понадобится переименовать его.

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

Когда все будет готово, распечатайте письмо или отправьте его в электронном виде. Это можно сделать, если календарь все еще открыт в Excel в Интернете. Нет необходимости предварительно сохранять его (это уже сделано за вас).

печать

Чтобы напечатать его, нажмите клавиши CTRL+P и нажмите кнопку Печать для предварительного просмотра. Нажмите кнопку Печать еще раз, чтобы распечатать лист.

Совет: Чтобы напечатать все листы в шаблоне, щелкните каждый ярлычок листа и напечатайте их по одному.

Общий доступ

Чтобы поделиться календарем в Интернете, отправьте ссылку на него.

Щелкните

  1. В верхней части экрана нажмите кнопку Общий доступ.
  2. В разделе Общий доступ щелкните элемент Получить ссылку.

Щелкните

В списке Выберите один из вариантов выберите пункт Только просмотр.

Совет: Если у вас есть блог или веб-сайт, вы можете внедрить в него представление календаря.

См. также

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

См. также

Facebook

LinkedIn

Электронная почта

Нужна дополнительная помощь?

Нужны дополнительные параметры?

Изучите преимущества подписки, просмотрите учебные курсы, узнайте, как защитить свое устройство и т. д.

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

Создание календаря в Excel на год

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

Готовый результат

Для тех, кто просто хочет скачать календарь в Excel на текущий год, на картинке ниже показан как он выглядит. Красным отмечены праздничные дни, розовым — выходные. Текущий день, также автоматически выделяется заливкой.

Добавил календарь на 2021 год с праздниками и выходными в соответствии с постановлением правительства.

Календарь в Excel

Пошаговая инструкция создания календаря в Excel

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

Делаем заголовки

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

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

Для создания заголовков последующих месяцев будем использовать еще одну очень полезную функцию =ДАТАМЕС(B3;1). Эта функция возвращает дату отстоящую от указанной на заданное число месяцев (в нашем случае на один). Таким образом, у нас получается следующая картина (дополнительно я добавил немного форматирования):

Проставляем числа

Для автоматического проставления чисел в календаре мы будем использовать всего одну формулу — формулу массива. На вид звучит страшновато, но если разобраться — все легко и просто. Выделяем ячейки B5:H10 и вводим следующую формулу (не спешим жать Enter):
=ДАТА(ГОД(B3);МЕСЯЦ(B3);1-1)-(ДЕНЬНЕД(ДАТА(ГОД(B3);МЕСЯЦ(B3);1-1))-1)+*7+

Вместо 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

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

P.S.

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

Создание и вставка календаря в Excel

Эта статья содержит образец макроса Microsoft Visual Basic для приложений (подпрограммы), который запрашивает у вас месяц и год и создает календарь на месяц с помощью рабочего листа.

Решение

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

Для создания календаря выполните следующие действия.

Microsoft Excel 2003

  1. Создайте новую книгу.
  2. В меню Сервис выберите Макрос, затем выберите Редактор Visual Basic.
  3. В меню Вставка выберите пункт Модуль.
  4. Вставьте сценарий Visual Basic для приложений из раздела «Образец процедуры Visual Basic» на лист модуля.
  5. В меню Файл нажмите Закрыть и вернуться в Microsoft Excel.
  6. Выберите вкладку Лист1.
  7. В меню Сервис выберите пункт Макрос, а затем нажмите Макросы.
  8. Нажмите CalendarMaker, а затем нажмите Выполнить для создания календаря.

Microsoft Excel 2007 или более поздние версии

  1. Создайте новую книгу.
  2. На ленте Разработчик выберите Visual Basic.
  3. В меню Вставка выберите пункт Модуль.
  4. Вставьте сценарий Visual Basic для приложений из раздела «Образец процедуры Visual Basic» на лист модуля.
  5. В меню Файл нажмите Закрыть и вернуться в Microsoft Excel.
  6. Выберите вкладку Лист1.
  7. На ленте Разработчик щелкните Макрос.
  8. Нажмите CalendarMaker, а затем нажмите *Выполнить для создания календаря.

Если вкладка «Разработчик» не отображается, перейдите на вкладку «Параметры Excel» и включите ее. В Excel 2007 этот пункт размещен в меню Популярное. В Excel 2010 этот пункт размещен в меню Настроить ленту.

Пример процедуры Visual Basic

 Sub CalendarMaker() ' Unprotect sheet if had previous calendar to prevent error. ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _ Scenarios:=False ' Prevent screen flashing while drawing calendar. Application.ScreenUpdating = False ' Set up error trapping. On Error GoTo MyErrorTrap ' Clear area a1:g14 including any previous calendar. Range("a1:g14").Clear ' Use InputBox to get desired month and year and set variable ' MyInput. MyInput = InputBox("Type in Month and year for Calendar ") ' Allow user to end macro with Cancel in InputBox. If MyInput = "" Then Exit Sub ' Get the date value of the beginning of inputted month. StartDay = DateValue(MyInput) ' Check if valid date but not the first of the month ' -- if so, reset StartDay to first day of month. If Day(StartDay) <> 1 Then StartDay = DateValue(Month(StartDay) & "/1/" & _ Year(StartDay)) End If ' Prepare cell for Month and Year as fully spelled out. Range("a1").NumberFormat = "mmmm yyyy" ' Center the Month and Year label across a1:g1 with appropriate ' size, height and bolding. With Range("a1:g1") .HorizontalAlignment = xlCenterAcrossSelection .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True .RowHeight = 35 End With ' Prepare a2:g2 for day of week labels with centering, size, ' height and bolding. With Range("a2:g2") .ColumnWidth = 11 .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Orientation = xlHorizontal .Font.Size = 12 .Font.Bold = True .RowHeight = 20 End With ' Put days of week in a2:g2. Range("a2") = "Sunday" Range("b2") = "Monday" Range("c2") = "Tuesday" Range("d2") = "Wednesday" Range("e2") = "Thursday" Range("f2") = "Friday" Range("g2") = "Saturday" ' Prepare a3:g7 for dates with left/top alignment, size, height ' and bolding. With Range("a3:g8") .HorizontalAlignment = xlRight .VerticalAlignment = xlTop .Font.Size = 18 .Font.Bold = True .RowHeight = 21 End With ' Put inputted month and year fully spelling out into "a1". Range("a1").Value = Application.Text(MyInput, "mmmm yyyy") ' Set variable and get which day of the week the month starts. DayofWeek = WeekDay(StartDay) ' Set variables to identify the year and month as separate ' variables. CurYear = Year(StartDay) CurMonth = Month(StartDay) ' Set variable and calculate the first day of the next month. FinalDay = DateSerial(CurYear, CurMonth + 1, 1) ' Place a "1" in cell position of the first day of the chosen ' month based on DayofWeek. Select Case DayofWeek Case 1 Range("a3").Value = 1 Case 2 Range("b3").Value = 1 Case 3 Range("c3").Value = 1 Case 4 Range("d3").Value = 1 Case 5 Range("e3").Value = 1 Case 6 Range("f3").Value = 1 Case 7 Range("g3").Value = 1 End Select ' Loop through range a3:g8 incrementing each cell after the "1" ' cell. For Each cell In Range("a3:g8") RowCell = cell.Row ColCell = cell.Column ' Do if "1" is in first column. If cell.Column = 1 And cell.Row = 3 Then ' Do if current cell is not in 1st column. ElseIf cell.Column <> 1 Then If cell.Offset(0, -1).Value >= 1 Then cell.Value = cell.Offset(0, -1).Value + 1 ' Stop when the last day of the month has been ' entered. If cell.Value > (FinalDay - StartDay) Then cell.Value = "" ' Exit loop when calendar has correct number of ' days shown. Exit For End If End If ' Do only if current cell is not in Row 3 and is in Column 1. ElseIf cell.Row > 3 And cell.Column = 1 Then cell.Value = cell.Offset(-1, 6).Value + 1 ' Stop when the last day of the month has been entered. If cell.Value > (FinalDay - StartDay) Then cell.Value = "" ' Exit loop when calendar has correct number of days ' shown. Exit For End If End If Next ' Create Entry cells, format them centered, wrap text, and border ' around days. For x = 0 To 5 Range("A4").Offset(x * 2, 0).EntireRow.Insert With Range("A4:G4").Offset(x * 2, 0) .RowHeight = 65 .HorizontalAlignment = xlCenter .VerticalAlignment = xlTop .WrapText = True .Font.Size = 10 .Font.Bold = False ' Unlock these cells to be able to enter text later after ' sheet is protected. .Locked = False End With ' Put border around the block of dates. With Range("A3").Offset(x * 2, 0).Resize(2, _ 7).Borders(xlLeft) .Weight = xlThick .ColorIndex = xlAutomatic End With With Range("A3").Offset(x * 2, 0).Resize(2, _ 7).Borders(xlRight) .Weight = xlThick .ColorIndex = xlAutomatic End With Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _ Weight:=xlThick, ColorIndex:=xlAutomatic Next If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _ .Resize(2, 8).EntireRow.Delete ' Turn off gridlines. ActiveWindow.DisplayGridlines = False ' Protect sheet to prevent overwriting the dates. ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _ Scenarios:=True ' Resize window to show all of calendar (may have to be adjusted ' for video configuration). ActiveWindow.WindowState = xlMaximized ActiveWindow.ScrollRow = 1 ' Allow screen to redraw with calendar showing. Application.ScreenUpdating = True ' Prevent going to error trap unless error found by exiting Sub ' here. Exit Sub ' Error causes msgbox to indicate the problem, provides new input box, ' and resumes at the line that caused the error. MyErrorTrap: MsgBox "You may not have entered your Month and Year correctly." _ & Chr(13) & "Spell the Month correctly" _ & " (or use 3 letter abbreviation)" _ & Chr(13) & "and 4 digits for the Year" MyInput = InputBox("Type in Month and year for Calendar") If MyInput = "" Then Exit Sub Resume End Sub 

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

Обратная связь

Были ли сведения на этой странице полезными?

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *