Hoe maakt u een maandelijkse of jaarlijkse kalender in Excel?
Soms moet u een kalender voor een specifieke maand of een specifiek jaar maken in Excel. Hoe kunt u dit snel oplossen? Deze handleiding beschrijft handige trucs om snel een maandelijkse of jaarlijkse kalender te maken in Excel.
Maak een maandelijkse of jaarlijkse kalender met een Excel-sjabloon
Maak een maandelijkse kalender met VBA
Maak eenvoudig een maandelijkse of jaarlijkse kalender met Permanente kalender
Maak een maandelijkse of jaarlijkse kalender met een Excel-sjabloon
In Excel kunt u eenvoudig een maandelijkse of jaarlijkse kalender maken met een kalendersjabloon.
1. Klik in Excel 2010/2013 op Bestand > Nieuw, of klik in Excel 2007 op Office-knop > Nieuw. Typ vervolgens in het rechtergedeelte van het venster dat verschijnt kalender in de zoekbalk. Zie schermafbeelding:
In Excel 2010/2013
In Excel 2007
2. Druk op Enter. Vervolgens worden meerdere soorten kalenders weergegeven in het venster. Selecteer het type kalender dat u nodig hebt en klik op Downloaden (of Maken) in het rechterdeelvenster. Zie schermafbeelding:
Er is nu een kalender aangemaakt op een nieuw werkblad. Zie de schermafbeelding:
Maak een maandelijkse kalender met VBA
Soms wilt u een kalender maken voor één specifieke maand, bijvoorbeeld januari 2015. Met de bovenstaande methode kan het lastig zijn om een dergelijke sjabloon te vinden. Hieronder vindt u een VBA-code waarmee u eenvoudig een kalender voor een willekeurige maand kunt genereren.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen. Klik op Invoegen > Module en plak de onderstaande VBA-code in het venster.
VBA: Maak eenvoudig een maandkalender.
Sub CalendarMaker()
' Unprotect sheet if had previous calendar to prevent error.
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
Scenarios:=False
' Prevent screen flashing while drawing calendar.
Application.ScreenUpdating = False
' Set up error trapping.
On Error GoTo MyErrorTrap
' Clear area a1:g14 including any previous calendar.
Range("a1:g14").Clear
' Use InputBox to get desired month and year and set variable
' MyInput.
MyInput = InputBox("Type in Month and year for Calendar ")
' Allow user to end macro with Cancel in InputBox.
If MyInput = "" Then Exit Sub
' Get the date value of the beginning of inputted month.
StartDay = DateValue(MyInput)
' Check if valid date but not the first of the month
' -- if so, reset StartDay to first day of month.
If Day(StartDay) <> 1 Then
StartDay = DateValue(Month(StartDay) & "/1/" & _
Year(StartDay))
End If
' Prepare cell for Month and Year as fully spelled out.
Range("a1").NumberFormat = "mmmm yyyy"
' Center the Month and Year label across a1:g1 with appropriate
' size, height and bolding.
With Range("a1:g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
.RowHeight = 35
End With
' Prepare a2:g2 for day of week labels with centering, size,
' height and bolding.
With Range("a2:g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.Font.Size = 12
.Font.Bold = True
.RowHeight = 20
End With
' Put days of week in a2:g2.
Range("a2") = "Sunday"
Range("b2") = "Monday"
Range("c2") = "Tuesday"
Range("d2") = "Wednesday"
Range("e2") = "Thursday"
Range("f2") = "Friday"
Range("g2") = "Saturday"
' Prepare a3:g7 for dates with left/top alignment, size, height
' and bolding.
With Range("a3:g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = True
.RowHeight = 21
End With
' Put inputted month and year fully spelling out into "a1".
Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
' Set variable and get which day of the week the month starts.
DayofWeek = WeekDay(StartDay)
' Set variables to identify the year and month as separate
' variables.
CurYear = Year(StartDay)
CurMonth = Month(StartDay)
' Set variable and calculate the first day of the next month.
FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
' Place a "1" in cell position of the first day of the chosen
' month based on DayofWeek.
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
' Loop through range a3:g8 incrementing each cell after the "1"
' cell.
For Each cell In Range("a3:g8")
RowCell = cell.Row
ColCell = cell.Column
' Do if "1" is in first column.
If cell.Column = 1 And cell.Row = 3 Then
' Do if current cell is not in 1st column.
ElseIf cell.Column <> 1 Then
If cell.Offset(0, -1).Value >= 1 Then
cell.Value = cell.Offset(0, -1).Value + 1
' Stop when the last day of the month has been
' entered.
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
' Exit loop when calendar has correct number of
' days shown.
Exit For
End If
End If
' Do only if current cell is not in Row 3 and is in Column 1.
ElseIf cell.Row > 3 And cell.Column = 1 Then
cell.Value = cell.Offset(-1, 6).Value + 1
' Stop when the last day of the month has been entered.
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
' Exit loop when calendar has correct number of days
' shown.
Exit For
End If
End If
Next
' Create Entry cells, format them centered, wrap text, and border
' around days.
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
' Unlock these cells to be able to enter text later after
' sheet is protected.
.Locked = False
End With
' Put border around the block of dates.
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
' Turn off gridlines.
ActiveWindow.DisplayGridlines = False
' Protect sheet to prevent overwriting the dates.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
' Resize window to show all of calendar (may have to be adjusted
' for video configuration).
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
' Allow screen to redraw with calendar showing.
Application.ScreenUpdating = True
' Prevent going to error trap unless error found by exiting Sub
' here.
Exit Sub
' Error causes msgbox to indicate the problem, provides new input box,
' and resumes at the line that caused the error.
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 SubDeze VBA-code komt van deze website https://support.microsoft.com/en-us/kb/150774
2. Druk op F5 of op de knop Uitvoeren. Er verschijnt nu een dialoogvenster waarin u wordt gevraagd de specifieke maand in te voeren waarvoor u een kalender wilt maken. Zie schermafbeelding:
3. Klik op OK. Er is nu een kalender voor januari 2015 gemaakt in het huidige werkblad.
De bovenstaande methoden hebben echter beperkingen. Als u bijvoorbeeld in één keer een kalender wilt maken van januari tot mei, moet u met beide methoden vijf afzonderlijke kalenders aanmaken. Hieronder stel ik een handige tool voor om dit snel en eenvoudig op te lossen.
Maak eenvoudig een maandelijkse of jaarlijkse kalender met Permanente kalender
Permanente kalender is een van de krachtige hulpmiddelen in Kutools voor Excel en helpt u om in één keer snel een maandelijkse of jaarlijkse kalender te maken in Excel.
1. Klik op KUTOOLS PLUS > Werkblad > Permanente kalender.
2. Geef in het dialoogvenster dat verschijnt de periode op waarvoor u de kalender wilt maken en klik op Maken. Zie schermafbeelding:
Er is nu een nieuw werkblad aangemaakt met vijf kalenderwerkbladen. Zie de schermafbeelding:
Tip:
Als u een kalender voor slechts één specifieke maand wilt maken, selecteert u diezelfde maand zowel in het veld ‘Van’ als in het veld ‘Tot’ in het dialoogvenster.
Klik hier voor meer informatie over Permanente kalender
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins