Як створити календар у Excel?
Календар Excel допомагає відстежувати важливі події, наприклад, коли хтось починає нову роботу або коли щось потрібно доставити. Це робить перегляд цих дат простим і чітким. У цьому посібнику я покажу вам, як створити місячний і річний календарі в Excel. Ми розглянемо використання шаблонів для швидкого налаштування, а також як створити його з нуля для тих, хто хоче більше контролювати. Таким чином ви зможете залишатися організованими, чи то для роботи, чи для особистих планів.
Створіть річний календар за допомогою шаблонів календарів Excel
Швидко створюйте місячний або річний календар за допомогою Kutools для Excel
Створіть річний календар за допомогою шаблонів календарів Excel
За допомогою цього методу ви повинні переконатись, що ваш комп'ютер підключений до мережі, щоб ви могли завантажити Шаблони календаря.
1 Йти до філе вкладка, клацніть Нові на лівій панелі та натисніть Календарі від Пропоновані пошуки. Дивіться знімок екрана:
2. виберіть один із шаблонів календаря, який вам подобається, двічі клацніть його, щоб створити річний календар.
Результат
Швидко створюйте місячний або річний календар за допомогою Kutools для Excel
Безстроковий календар інструмент kutools для Excel можна швидко створити індивідуальний календар місяця або рік у новій книзі, і кожен місячний календар буде міститися на новому аркуші.
Після встановлення Kutools для Excel натисніть Kutools Plus > Робочий аркуш > Безстроковий календар. У спливаючому вікні Безстроковий календар діалогове вікно, будь-ласка, зробіть наступне:
- Щоб створити місячний календар, укажіть місяці, для яких ви хочете створити календар Від та До і натисніть Створювати.
- Щоб створити річний календар, укажіть рік, у якому ви хочете створити календар Від та До і натисніть Створювати.
Результат
- Місячний календар:
- Річний календар:
Створіть щомісячний календар із кодом VBA
За допомогою наступного коду VBA ви можете швидко створити щомісячний календар. Будь ласка, виконайте наступне:
1. Прес інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.
2. З'явиться нове вікно. Клацніть Insert > Модулі, потім введіть наступні коди в модуль:
Sub CalendarMaker()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
Scenarios:=False
Application.ScreenUpdating = False
On Error GoTo MyErrorTrap
Range("a1:g14").Clear
MyInput = InputBox("Type in Month and year for Calendar ")
If MyInput = "" Then Exit Sub
StartDay = DateValue(MyInput)
If Day(StartDay) <> 1 Then
StartDay = DateValue(Month(StartDay) & "/1/" & _
Year(StartDay))
End If
Range("a1").NumberFormat = "mmmm yyyy"
With Range("a1:g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
.RowHeight = 35
End With
With Range("a2:g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.Font.Size = 12
.Font.Bold = True
.RowHeight = 20
End With
Range("a2") = "Sunday"
Range("b2") = "Monday"
Range("c2") = "Tuesday"
Range("d2") = "Wednesday"
Range("e2") = "Thursday"
Range("f2") = "Friday"
Range("g2") = "Saturday"
With Range("a3:g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = True
.RowHeight = 21
End With
Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
DayofWeek = Weekday(StartDay)
CurYear = Year(StartDay)
CurMonth = Month(StartDay)
FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
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
For Each cell In Range("a3:g8")
RowCell = cell.Row
ColCell = cell.Column
If cell.Column = 1 And cell.Row = 3 Then
ElseIf cell.Column <> 1 Then
If cell.Offset(0, -1).Value >= 1 Then
cell.Value = cell.Offset(0, -1).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
ElseIf cell.Row > 3 And cell.Column = 1 Then
cell.Value = cell.Offset(-1, 6).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
Next
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
.Locked = False
End With
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
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
Exit Sub
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
3. Потім натисніть прогін кнопку або натисніть F5 ключ для запуску програми. Тепер з’явиться вікно підказки, ви можете ввести місяць і рік у порожньому полі.
Результат
Статті по темі
Як створити календар випадаючого списку (засіб вибору дати) в Excel?
За допомогою спадного календаря на аркуші Excel ви можете легко вибрати певну дату з нього, не вводячи вручну. Цей підручник показує, як створити календар на аркуші Excel за допомогою елемента керування ActiveX.
Як спливати календар при натисканні певної комірки в Excel?
У цій статті йдеться про спливне вікно календаря під час натискання клітинок у певному діапазоні, а потім автоматичне вставлення дати у вибрану клітинку після вибору дати в календарі.
Як створити зустріч з аркуша Excel у календарі Outlook?
Іноді , вам може знадобитися створити зустрічі в календарі Outlook, але чи намагались ви коли-небудь перерахувати зустрічі на робочому аркуші Excel, а потім імпортувати їх до календаря Outlook, як показано на знімку екрана нижче?
Як створити динамічний щомісячний календар у Excel?
Ця стаття детально покаже вам метод створення динамічного місячного календаря в Excel.
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel - допомагає виділитися з натовпу
Kutools для Excel має понад 300 функцій, Переконайтеся, що те, що вам потрібно, знаходиться лише на відстані одного кліка...
Вкладка Office - увімкніть читання та редагування вкладок у Microsoft Office (включаючи Excel)
- Одна секунда для перемикання між десятками відкритих документів!
- Щодня зменшуйте сотні клацань мишею, прощайте руку миші.
- Збільшує вашу продуктивність на 50% під час перегляду та редагування декількох документів.
- Додає ефективні вкладки в Office (включно з Excel), як у Chrome, Edge та Firefox.