Cum se creează un calendar în Excel?
Un calendar Excel vă ajută să urmăriți evenimentele importante, cum ar fi atunci când cineva începe o nouă slujbă sau când trebuie livrat ceva. Vederea acestor date face ușoară și clară. În acest ghid, vă voi arăta cum să faceți atât calendare lunare, cât și anuale în Excel. Ne vom uita la utilizarea șabloanelor pentru o configurare rapidă și, de asemenea, cum să facem unul de la zero pentru cei care doresc mai mult control. Astfel, poți rămâne organizat, fie că este vorba de serviciu sau de planuri personale.
Creați un calendar anual utilizând șabloane de calendar Excel
Creați rapid un calendar lunar sau anual cu Kutools pentru Excel
Creați un calendar anual utilizând șabloane de calendar Excel
Cu această metodă, trebuie să vă asigurați că computerul dvs. se conectează la rețea, astfel încât să puteți descărca fișierul Șabloane de calendar.
1. Mergi la Fișier fila, faceți clic pe Nou butonul din panoul din stânga și faceți clic Calendare din Căutări sugerate. Vedeți captura de ecran:
2. selectați unul dintre șabloanele de calendar care vă plac, faceți dublu clic pe el pentru a crea calendarul anual.
Rezultat
Creați rapid un calendar lunar sau anual cu Kutools pentru Excel
Perpetual Calendar instrument de kutools pentru Excel poate crea rapid un calendar lunar sau calendar personalizat într-un nou registru de lucru, iar fiecare calendar lunar va fi conținut într-o nouă foaie de lucru.
După instalarea Kutools pentru Excel, faceți clic pe Kutools Plus > Fisa de lucru > Perpetual Calendar. În popping-up Perpetual Calendar caseta de dialog, procedați după cum urmează:
- Pentru a crea un calendar lunar, specificați lunile în care doriți să creați calendarul prin intermediul De la șiLa lista verticală și faceți clic pe Crea.
- Pentru a crea un calendar anual, specificați anul în care doriți să creați calendarul prin intermediul De la și La lista verticală și faceți clic pe Crea.
Rezultat
- Un calendar lunar:
- Un calendar anual:
Creați un calendar lunar cu cod VBA
Cu următorul cod VBA, puteți crea rapid un calendar lunar. Vă rugăm să faceți următoarele:
1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.
2. Va fi afișată o nouă fereastră. Clic Insera > Module, apoi introduceți următoarele coduri în modul:
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. Apoi apasa Alerga sau apăsați F5 cheie pentru a rula aplicația. Acum va apărea o casetă promptă, puteți introduce luna și anul în caseta goală.
Rezultat
Articole pe aceeași temă
Cum se creează un calendar de listă verticală (selector de date) în Excel?
Cu calendarul drop-down în foaia de lucru Excel, puteți selecta cu ușurință o dată specifică din acesta fără a introduce manual. Acest tutorial vă arată cum să creați un calendar în foaia de lucru Excel utilizând controlul ActiveX.
Cum să deschideți un calendar când faceți clic pe o anumită celulă din Excel?
Acest articol vorbește despre afișarea unui calendar atunci când dați clic pe celule dintr-un anumit interval, apoi inserarea automată a datei în celula selectată după selectarea datei în calendar.
Cum se creează o întâlnire din foaia Excel în calendarul Outlook?
Uneori , este posibil să trebuiască să creați întâlniri în calendarul Outlook, dar ați încercat vreodată să listați întâlnirile în foaia de lucru Excel, apoi să le importați în calendarul Outlook așa cum este prezentat mai jos?
Cum se creează un calendar lunar dinamic în Excel?
Acest articol vă va arăta metoda de a crea un calendar lunar dinamic în Excel în detalii.
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel - Vă ajută să vă distingeți de mulțime
Kutools pentru Excel se mândrește cu peste 300 de caracteristici, Asigurați-vă că ceea ce aveți nevoie este la doar un clic distanță...
Fila Office - Activați lectura și editarea cu file în Microsoft Office (includeți Excel)
- O secundă pentru a comuta între zeci de documente deschise!
- Reduceți sute de clicuri de mouse pentru dvs. în fiecare zi, spuneți adio de la mâna mouse-ului.
- Vă crește productivitatea cu 50% atunci când vizualizați și editați mai multe documente.
- Aduce file eficiente la Office (inclusiv Excel), la fel ca Chrome, Edge și Firefox.