Hogyan készíthetünk naptárat az Excel programban?
Az Excel-naptár segít nyomon követni a fontos eseményeket, például amikor valaki új munkát kezd, vagy amikor valamit át kell adni. Ez megkönnyíti és egyértelművé teszi ezeknek a dátumoknak a megtekintését. Ebben az útmutatóban megmutatom, hogyan készíthet havi és éves naptárakat Excelben. Megvizsgáljuk a sablonok használatát a gyors beállításhoz, és azt is, hogyan készítsenek egyet a semmiből azok számára, akik több irányítást szeretnének. Így szervezett maradhat, legyen szó munkáról vagy személyes terveiről.
Hozzon létre egy éves naptárt az Excel naptársablonok használatával
Hozzon létre gyorsan egy havi vagy éves naptárt a Kutools for Excel segítségével
Hozzon létre egy éves naptárt az Excel naptársablonok használatával
Ezzel a módszerrel biztosítani kell, hogy számítógépe csatlakozzon a hálózathoz, hogy letölthesse a Naptár sablonok.
1. Menj filé fülre kattintva Új gombot a bal oldali ablaktáblán, és kattintson Naptárak ból ből Javasolt keresések. Lásd a képernyőképet:
2. Válassza ki a kívánt naptársablonok egyikét, majd kattintson rá duplán az éves naptár létrehozásához.
Eredmény
Hozzon létre gyorsan egy havi vagy éves naptárt a Kutools for Excel segítségével
öröknaptár eszköze kutools az Excelhez gyorsan létrehozhat egy testreszabott havi naptárt vagy évnaptárt egy új munkafüzetben, és minden hónap naptárát egy új munkalap tartalmazza.
A Kutools for Excel telepítése után kattintson Kutools Plus > Munkalap > öröknaptár. A felugró ablakban öröknaptár párbeszédpanelt, kérjük, tegye a következőket:
- Havi naptár létrehozásához adja meg azokat a hónapokat, amelyekben a naptárt létre szeretné hozni a következőn keresztül Tól től és aNak nek legördülő listát, és kattintson rá Teremt.
- Éves naptár létrehozásához adja meg a naptár létrehozásának évet a következőn keresztül Tól től és a Nak nek legördülő listát, és kattintson rá Teremt.
Eredmény
- Havi naptár:
- Éves naptár:
Hozzon létre havi naptárat VBA kóddal
A következő VBA kóddal gyorsan létrehozhat egy havi naptárat. Kérjük, tegye a következőket:
1. nyomja meg más + F11 gombokkal nyissa meg a Microsoft Visual Basic for Applications ablakot.
2. Új ablak jelenik meg. Kattintson a gombra betétlap > Modulok, majd írja be a következő kódokat a modulba:
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. Ezután kattintson futás vagy nyomja meg a gombot F5 kulcs az alkalmazás futtatásához. Ekkor megjelenik egy prompt mező, az üres mezőbe beírhatja a hónapot és az évet.
Eredmény
Kapcsolódó cikkek
Hogyan hozhatunk létre legördülő listás naptárt (dátumválasztót) az Excelben?
Az Excel munkalapon található legördülő menüben könnyedén kiválaszthat egy adott dátumot kézi gépelés nélkül. Ez az oktatóanyag bemutatja, hogyan hozhat létre naptárt az Excel munkalapon az ActiveX vezérlő használatával.
Hogyan jelenjen meg egy naptár, amikor egy adott cellára kattint az Excelben?
Ez a cikk arról szól, hogy egy adott tartományban lévő cellákra kattintva megjelenik egy naptár, majd a dátum kiválasztása után automatikusan beszúrja a dátumot a kijelölt cellába.
Hogyan hozzunk létre találkozót az Excel lapról az Outlook naptárra?
Néha előfordulhat, hogy találkozókat kell létrehoznia az Outlook naptárában, de megpróbálta már kinevezni a találkozókat az Excel munkalapon, majd importálja azokat az Outlook naptárába az alábbi képernyőképen?
Hogyan lehet dinamikus havi naptárt létrehozni az Excelben?
Ez a cikk részletesen bemutatja, hogyan hozhat létre dinamikus havi naptárat Excelben.
A legjobb irodai termelékenységi eszközök
Kutools for Excel - segít kitűnni a tömegből
A Kutools for Excel több mint 300 funkcióval büszkélkedhet, Győződjön meg arról, hogy amire szüksége van, csak egy kattintásnyira van...
Office lap – A lapos olvasás és szerkesztés engedélyezése a Microsoft Office programban (beleértve az Excelt is)
- Egy másodperc a tucatnyi nyitott dokumentum közötti váltáshoz!
- Csökkentse az egérkattintások százait az Ön számára minden nap, búcsút mondjon az egér kezének.
- 50% -kal növeli a termelékenységet több dokumentum megtekintésekor és szerkesztésekor.
- Hatékony lapokat hoz az Office-ba (beleértve az Excelt is), akárcsak a Chrome, az Edge és a Firefox.