Przejdź do głównej zawartości

Jak utworzyć kalendarz w programie Excel?

Kalendarz w programie Excel pomaga śledzić ważne wydarzenia, na przykład rozpoczęcie nowej pracy lub konieczność dostarczenia czegoś. Dzięki temu przeglądanie tych dat jest łatwe i przejrzyste. W tym przewodniku pokażę Ci, jak tworzyć kalendarze miesięczne i roczne w Excelu. Przyjrzymy się używaniu szablonów do szybkiej konfiguracji, a także sposobowi stworzenia takiego od podstaw dla tych, którzy chcą większej kontroli. W ten sposób możesz zachować porządek, niezależnie od tego, czy chodzi o plany służbowe, czy osobiste.

Utwórz kalendarz roczny, korzystając z szablonów kalendarzy programu Excel

Szybko utwórz miesięczny lub roczny kalendarz za pomocą Kutools for Excel

Utwórz miesięczny kalendarz z kodem VBA


Utwórz kalendarz roczny, korzystając z szablonów kalendarzy programu Excel

W przypadku tej metody musisz upewnić się, że komputer łączy się z siecią, aby można było pobrać plik Szablony kalendarza.

1. Iść do filet tab, kliknij Nowości w lewym okienku i kliknij Kalendarze od Sugerowane wyszukiwania. Zobacz zrzut ekranu:

2. wybierz jeden z szablonów kalendarza, który Ci się podoba, kliknij go dwukrotnie, aby utworzyć kalendarz roczny.

Wynik


Szybko utwórz miesięczny lub roczny kalendarz za pomocą Kutools for Excel

Perpetual Calendar narzędzie kutools dla programu Excel można szybko utworzyć dostosowany kalendarz miesięczny lub roczny w nowym skoroszycie, a kalendarz każdego miesiąca będzie zawarty w nowym arkuszu.

Uwaga: Aby to zastosować Perpetual Calendar funkcji, po pierwsze, należy pobrać i zainstalować Kutools dla programu Excel.

Po zainstalowaniu Kutools dla programu Excel kliknij Kutools Plus > Ćwiczenie > Perpetual Calendar. W wyskakującym okienku Perpetual Calendar w oknie dialogowym, wykonaj następujące czynności:

  • Aby utworzyć kalendarz miesięczny, określ miesiące, w których chcesz utworzyć kalendarz za pomocą Od maszyn ciężkichDo listę rozwijaną i kliknij Stwórz.
  • Aby utworzyć kalendarz roczny, określ rok, w którym chcesz utworzyć kalendarz, za pomocą opcji Od maszyn ciężkich Do listę rozwijaną i kliknij Stwórz.
Wynik
  • Kalendarz miesięczny:
  • Kalendarz roczny:
Wskazówka: Aby móc korzystać z tej funkcji, należy zainstalować Kutools dla programu Excel najpierw proszę kliknij, aby pobrać i mieć 30-dniowy bezpłatny okres próbny teraz.

Utwórz miesięczny kalendarz z kodem VBA

Za pomocą następującego kodu VBA możesz szybko utworzyć kalendarz miesięczny. Wykonaj następujące czynności:

1. naciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.

2. Pojawi się nowe okno. Kliknij wstawka > Moduł, następnie wprowadź w module następujące kody:

 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. Następnie kliknij run lub naciśnij F5 klucz do uruchomienia aplikacji. Teraz pojawi się okno zachęty, możesz wprowadzić miesiąc i rok w pustym polu.

Wynik

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks guys for helping. Would like to be able to have a yearly Calendar in which I can enter items. If you can help that would be great.
This comment was minimized by the moderator on the site
Hi, How can I make it start on Monday instead? Thanks in advance
This comment was minimized by the moderator on the site
Excellent job. Billions thanks for your great design of the Excel calendar template. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations