Kako ustvariti koledar v Excelu?
Excelov koledar vam pomaga spremljati pomembne dogodke, na primer ko nekdo začne novo službo ali ko je treba nekaj dostaviti. Zaradi tega je ogled teh datumov preprost in jasen. V tem priročniku vam bom pokazal, kako narediti mesečne in letne koledarje v Excelu. Ogledali si bomo uporabo predlog za hitro nastavitev in tudi, kako jo narediti iz nič za tiste, ki želijo več nadzora. Tako lahko ostanete organizirani, ne glede na to, ali gre za službene ali osebne načrte.
Ustvarite letni koledar z uporabo Excelovih predlog koledarja
Hitro ustvarite mesečni ali letni koledar s programom Kutools za Excel
Ustvarite letni koledar z uporabo Excelovih predlog koledarja
S to metodo morate zagotoviti, da se računalnik poveže z omrežjem, da lahko prenesete datoteko Predloge koledarja.
1. Pojdi do file jeziček, kliknite Novo v levem podoknu in kliknite Koledarji iz Predlagana iskanja. Oglejte si posnetek zaslona:
2. izberite eno izmed predlog koledarja, ki vam je všeč, dvokliknite nanjo, da ustvarite letni koledar.
Rezultat
Hitro ustvarite mesečni ali letni koledar s programom Kutools za Excel
Večni koledar orodje za kutools za Excel lahko hitro ustvari prilagojeni mesečni koledar ali letni koledar v novem delovnem zvezku in vsak mesečni koledar bo vsebovan v novem delovnem listu.
Po namestitvi Kutools za Excel kliknite Kutools Plus > Delovni list > Večni koledar. V pojavnem oknu Večni koledar pogovorno okno, naredite naslednje:
- Če želite ustvariti mesečni koledar, določite mesece, v katerih želite ustvariti koledar od inDa spustnega seznama in kliknite ustvarjanje.
- Če želite ustvariti letni koledar, določite leto, v katerem želite ustvariti koledar od in Da spustnega seznama in kliknite ustvarjanje.
Rezultat
- Mesečni koledar:
- Letni koledar:
Ustvarite mesečni koledar s kodo VBA
Z naslednjo kodo VBA lahko hitro ustvarite mesečni koledar. Naredite naslednje:
1. Pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.
2. Prikazalo se bo novo okno. Kliknite Vstavi > Moduli, nato v modul vnesite naslednje kode:
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. Nato kliknite Run ali pritisnite F5 ključ za zagon aplikacije. Zdaj se bo pojavilo okence za poziv, v prazno polje lahko vnesete mesec in leto.
Rezultat
Sorodni članki
Kako ustvariti koledar spustnega seznama (izbirnik datumov) v Excelu?
S spustnim koledarjem na Excelovem delovnem listu lahko preprosto izberete določen datum z njega, ne da bi ga ročno vnesli. Ta vadnica vam pokaže, kako ustvarite koledar na Excelovem delovnem listu z uporabo ActiveX Control.
Kako odpreti koledar, ko kliknete določeno celico v Excelu?
Ta članek govori o pojavnem koledarju, ko kliknete celice v določenem obsegu, nato pa samodejno vstavite datum v izbrano celico po izbiri datuma v koledarju.
Kako ustvariti sestanek iz Excelovega lista v koledarju Outlook?
Včasih , boste morda morali ustvariti sestanke v Outlookovem koledarju, vendar ste že kdaj poskušali uvrstiti sestanke na Excelov delovni list in jih nato uvoziti v Outlookov koledar, kot je prikazano na spodnji sliki zaslona?
Kako ustvariti dinamični mesečni koledar v Excelu?
Ta članek vam bo podrobno pokazal metodo za ustvarjanje dinamičnega mesečnega koledarja v Excelu.
Najboljša orodja za pisarniško produktivnost
Kutools za Excel - vam pomaga izstopati iz množice
Kutools za Excel se ponaša z več kot 300 funkcijami, Zagotavljanje, da je vse, kar potrebujete, le en klik stran ...
Kartica Office - omogočite branje in urejanje z zavihki v programu Microsoft Office (vključite Excel)
- Eno sekundo za preklop med desetinami odprtih dokumentov!
- Vsak dan zmanjšajte na stotine klikov z miško, poslovite se od roke miške.
- Poveča vašo produktivnost za 50% pri ogledu in urejanju več dokumentov.
- Prinaša učinkovite zavihke v Office (vključno z Excelom), tako kot Chrome, Edge in Firefox.