Přejít k hlavnímu obsahu

Jak vytvořit kalendář v aplikaci Excel?

Autor: Technická podpora Naposledy změněno: 2024-11-19

Excelový kalendář vám pomůže udržet si přehled o důležitých událostech, jako když někdo nastoupí do nové práce nebo když je potřeba něco doručit. Díky tomu je zobrazení těchto dat snadné a jasné. V této příručce vám ukážu, jak vytvořit měsíční i roční kalendáře v Excelu. Podíváme se na použití šablon pro rychlé nastavení a také na to, jak je vytvořit úplně od začátku pro ty, kteří chtějí větší kontrolu. Tímto způsobem si můžete udržet pořádek, ať už jde o pracovní nebo osobní plány.

vytvořit kalendář

Vytvořte si roční kalendář pomocí šablon kalendáře Excel

Rychle vytvořte měsíční nebo roční kalendář pomocí programu Kutools pro Excel

Vytvořte si měsíční kalendář s kódem VBA


Vytvořte si roční kalendář pomocí šablon kalendáře Excel

Pomocí této metody musíte zajistit, aby se váš počítač připojil k síti, abyste si mohli stáhnout soubor Šablony kalendáře.

1. Jít do Soubor klepněte na kartu Nový v levém podokně a klikněte Kalendář od Doporučená vyhledávání. Viz snímek obrazovky:

klikněte na tlačítko Nový a klikněte na Kalendáře

2. Vyberte jednu ze šablon kalendáře, která se vám líbí, poklepáním na ni vytvořte roční kalendář.

vyberte jednu ze šablon kalendáře

Výsledek

kalendář je vložen


Rychle vytvořte měsíční nebo roční kalendář pomocí programu Kutools pro Excel

věčný kalendář nástroj kutools pro Excel může rychle vytvořit přizpůsobený měsíční kalendář nebo kalendář roku v novém sešitu a každý měsíc kalendář bude obsažen v novém listu.

Kutools pro Excel nabízí více než 300 pokročilých funkcí pro zefektivnění složitých úkolů, zvýšení kreativity a efektivity. Vylepšené o schopnosti AI, Kutools automatizuje úkoly s přesností, takže správa dat je snadná. Podrobné informace o Kutools pro Excel...         Zkušební verze zdarma...

Po instalaci Kutools pro Excel klikněte prosím Kutools Plus > Pracovní list > věčný kalendář. Ve vyskakovacím okně věčný kalendář v dialogovém okně postupujte takto:

  • Chcete-li vytvořit měsíční kalendář, zadejte měsíce, ve kterých chcete kalendář vytvořit od siNa rozbalovacího seznamu a klepněte na tlačítko Vytvořit.

zadejte měsíce pro vytvoření měsíčního kalendáře

  • Chcete-li vytvořit roční kalendář, zadejte rok, ve kterém chcete kalendář vytvořit od si Na rozbalovacího seznamu a klepněte na tlačítko Vytvořit.

zadejte rok a vytvořte roční kalendář

Výsledek
  • Měsíční kalendář:

Je vložen měsíční kalendář

  • Roční kalendář:

Je vložen roční kalendář

Tip: Chcete-li používat tuto funkci, měli byste nainstalovat Kutools pro Excel nejprve, prosím kliknutím stáhněte a získejte 30denní bezplatnou zkušební verzi nyní.

Vytvořte si měsíční kalendář s kódem VBA

S následujícím kódem VBA můžete rychle vytvořit měsíční kalendář. Postupujte prosím následovně:

1. lis Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2. Zobrazí se nové okno. Klepněte na Vložit > Modul, poté vložte do modulu následující kódy:

 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. Pak klikněte na tlačítko Běh nebo stiskněte tlačítko F5 klíč ke spuštění aplikace. Nyní se objeví okno s výzvou, do prázdného pole můžete zadat měsíc a rok.

do textového pole zadejte měsíc a rok

Výsledek

je vložen měsíční kalendář