Jak vytvořit kalendář v aplikaci Excel?
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ř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 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:
2. Vyberte jednu ze šablon kalendáře, která se vám líbí, poklepáním na ni vytvořte roční kalendář.
Výsledek
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.
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.
- 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.
Výsledek
- Měsíční kalendář:
- Roční kalendář:
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.
Výsledek
Související články
Jak vytvořit kalendář rozevíracího seznamu (výběr data) v aplikaci Excel?
Díky rozevíracímu kalendáři v listu aplikace Excel můžete z něj snadno vybrat konkrétní datum, aniž byste museli ručně psát. Tento kurz vám ukáže, jak vytvořit kalendář v listu aplikace Excel pomocí ovládacího prvku ActiveX.
Jak zobrazit kalendář při kliknutí na konkrétní buňku v aplikaci Excel?
Tento článek pojednává o zobrazení kalendáře při kliknutí na buňky v určitém rozsahu a následném vložení data do vybrané buňky automaticky po výběru data v kalendáři.
Jak vytvořit schůzku z listu aplikace Excel do kalendáře aplikace Outlook?
Někdy , možná budete muset vytvořit schůzky v kalendáři aplikace Outlook, ale zkusili jste někdy zobrazit schůzky v listu aplikace Excel a poté je importovat do kalendáře aplikace Outlook, jak je ukázáno níže?
Jak vytvořit dynamický měsíční kalendář v aplikaci Excel?
Tento článek vám podrobně ukáže způsob vytvoření dynamického měsíčního kalendáře v Excelu.
Nejlepší kancelářské nástroje produktivity
Kutools pro Excel - pomůže vám vyniknout před davem
Kutools pro Excel se může pochlubit více než 300 funkcemi, Zajištění toho, že to, co potřebujete, je jen jedno kliknutí...
Záložka Office - Povolte čtení a úpravy na záložkách v Microsoft Office (včetně Excelu)
- Jednu sekundu přepnete mezi desítkami otevřených dokumentů!
- Snižte stovky kliknutí myší každý den, sbohem s myší rukou.
- Zvyšuje vaši produktivitu o 50% při prohlížení a úpravách více dokumentů.
- Přináší efektivní karty do Office (včetně Excelu), stejně jako Chrome, Edge a Firefox.