Ga naar hoofdinhoud

Hoe maak je een kalender in Excel?

Auteur: Technische ondersteuning Laatst gewijzigd: 2024-01-29

Met een Excel-kalender kunt u belangrijke gebeurtenissen bijhouden, bijvoorbeeld wanneer iemand een nieuwe baan begint of wanneer er iets moet worden opgeleverd. Het maakt het zien van deze data gemakkelijk en duidelijk. In deze handleiding laat ik u zien hoe u zowel maand- als jaarkalenders kunt maken in Excel. We zullen kijken naar het gebruik van sjablonen voor een snelle installatie en ook hoe u er een helemaal opnieuw kunt maken voor degenen die meer controle willen. Zo blijf je georganiseerd, of het nu om werk of persoonlijke plannen gaat.

Maak een jaarkalender met behulp van Excel-kalendersjablonen

Maak snel een maandelijkse of jaarlijkse kalender met Kutools voor Excel

Maak een maandelijkse kalender met VBA-code


Maak een jaarkalender met behulp van Excel-kalendersjablonen

Bij deze methode moet u ervoor zorgen dat uw computer verbinding maakt met het netwerk, zodat u het Kalendersjablonen.

1. Ga naar Dien in tab, klik Nieuw in het linkerdeelvenster en klik Kalenders oppompen van Voorgestelde zoekopdrachten. Zie screenshot:

2. Selecteer een van de kalendersjablonen die u leuk vindt, dubbelklik erop om de jaarkalender te maken.

Resultaat


Maak snel een maandelijkse of jaarlijkse kalender met Kutools voor Excel

Perpetual Calendar tool van kutools voor Excel kan snel een aangepaste maandkalender of jaarkalender maken in een nieuwe werkmap, en elke maandkalender wordt opgenomen in een nieuw werkblad.

Opmerking: Om dit toe te passen Perpetual Calendar functie, ten eerste moet u downloaden en installeren Kutools for Excel.

Klik na het installeren van Kutools voor Excel op Koetools Plus > Werkblad > Perpetual Calendar. In de pop-up Perpetual Calendar dialoogvenster, doe dan als volgt:

  • Om een ​​maandkalender te maken, geeft u de maanden op waarvoor u de kalender wilt maken via de Van enNaar vervolgkeuzelijst en klik op creëren.
  • Om een ​​jaarkalender te maken, geeft u het jaar op waarin u de kalender wilt maken via de Van en Naar vervolgkeuzelijst en klik op creëren.
Resultaat
  • Een maandkalender:
  • Een jaarkalender:
Tip: Om deze functie te gebruiken, moet u installeren Kutools for Excel eerst, alsjeblieft klik om te downloaden en krijg een gratis proefperiode van 30 dagen .

Maak een maandelijkse kalender met VBA-code

Met de volgende VBA-code kunt u snel een maandelijkse kalender maken. Ga als volgt te werk:

1. pers anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Er wordt een nieuw venster weergegeven. Klik Invoegen > Module, voer vervolgens de volgende codes in de module in:

 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. Dan klikken lopen knop of druk op F5 toets om de applicatie uit te voeren. Nu verschijnt er een promptvenster. U kunt de maand en het jaar in het lege vak invoeren.

Resultaat

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