Gå til hovedindhold

Hvordan oprettes en kalender i Excel?

En Excel-kalender hjælper dig med at holde styr på vigtige begivenheder, som når nogen starter på et nyt job, eller når noget skal leveres. Det gør det nemt og overskueligt at se disse datoer. I denne guide viser jeg dig, hvordan du laver både månedlige og årlige kalendere i Excel. Vi vil se på at bruge skabeloner til en hurtig opsætning og også hvordan man laver en fra bunden for dem, der ønsker mere kontrol. På denne måde kan du holde dig organiseret, uanset om det er til arbejde eller personlige planer.

Opret en årlig kalender ved hjælp af Excel-kalenderskabeloner

Opret hurtigt en månedlig eller årlig kalender med Kutools til Excel

Opret en månedlig kalender med VBA-kode


Opret en årlig kalender ved hjælp af Excel-kalenderskabeloner

Med denne metode skal du sikre dig, at din computer opretter forbindelse til netværket, så du kan downloade Kalenderskabeloner.

1. Gå til filet fanebladet, klik på Ny knappen i venstre rude, og klik Kalendere fra Foreslåede søgninger. Se skærmbillede:

2. vælg en af ​​de kalenderskabeloner, du kan lide, dobbeltklik på den for at oprette den årlige kalender.

Resultat


Opret hurtigt en månedlig eller årlig kalender med Kutools til Excel

Perpetual Calendar værktøj til kutools til Excel kan hurtigt oprette en tilpasset månedskalender eller årskalender i en ny projektmappe, og hver månedskalender vil blive indeholdt i et nyt regneark.

Bemærk: At anvende dette Perpetual Calendar funktion, for det første skal du downloade og installere Kutools til Excel.

Efter installation af Kutools til Excel skal du klikke Kutools Plus > Arbejdsark > Perpetual Calendar. I pop-up'en Perpetual Calendar dialogboks, skal du gøre som følger:

  • For at oprette en månedskalender skal du angive de måneder, du vil oprette kalenderen via Fra ,Til rullemenuen, og klik på Opret.
  • For at oprette en årlig kalender skal du angive det år, du vil oprette kalenderen via Fra , Til rullemenuen, og klik på Opret.
Resultat
  • En månedlig kalender:
  • En årlig kalender:
Tip: For at bruge denne funktion skal du installere Kutools til Excel først, tak klik for at downloade og få en 30-dages gratis prøveperiode nu.

Opret en månedlig kalender med VBA-kode

Med den følgende VBA-kode kan du hurtigt oprette en månedlig kalender. Gør følgende:

1. Trykke andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.

2. Der vises et nyt vindue. Klik på indsatte > Moduler, indtast derefter følgende koder i modulet:

 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. Klik derefter på Kør knappen eller tryk på F5 nøglen til at køre programmet. Nu vil en promptboks poppe ud, du kan indtaste måneden og året i den tomme boks.

Resultat

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