Preskoči na glavno vsebino

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 mesečni koledar s kodo VBA


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.

Opomba: Če želite uporabiti to Večni koledar funkcijo, morate najprej prenesti in namestiti Kutools za Excel.

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:
Nasvet: Če želite uporabljati to funkcijo, morate namestiti Kutools za Excel najprej, prosim kliknite za prenos in pridobite 30-dnevno brezplačno preskusno različico zdaj.

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

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks guys for helping. Would like to be able to have a yearly Calendar in which I can enter items. If you can help that would be great.
This comment was minimized by the moderator on the site
Hi, How can I make it start on Monday instead? Thanks in advance
This comment was minimized by the moderator on the site
Excellent job. Billions thanks for your great design of the Excel calendar template. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations