Hoe maak je een kalender in Excel?
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 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 New 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.
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:
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
Gerelateerde artikelen
Hoe maak je een vervolgkeuzelijstkalender (datumkiezer) in Excel?
Met de vervolgkeuzekalender in het Excel-werkblad kunt u eenvoudig een specifieke datum eruit selecteren zonder handmatig te typen. Deze tutorial laat zien hoe je een kalender in Excel-werkblad maakt met behulp van het ActiveX-besturingselement.
Hoe een kalender openen wanneer ik op een specifieke cel in Excel klik?
Dit artikel gaat over het openen van een kalender wanneer je op cellen in een bepaald bereik klikt, en het vervolgens automatisch invoegen van de datum in de geselecteerde cel nadat je de datum in de kalender hebt geselecteerd.
Hoe maak ik een afspraak van Excel-blad naar Outlook-agenda?
Soms moet u misschien afspraken maken in de Outlook-agenda, maar heeft u ooit geprobeerd afspraken in een Excel-werkblad weer te geven en ze vervolgens in de Outlook-agenda te importeren zoals onderstaand screenshot laat zien?
Hoe maak je een dynamische maandkalender in Excel?
Dit artikel laat u in detail zien hoe u een dynamische maandkalender in Excel kunt maken.
De beste tools voor kantoorproductiviteit
Kutools for Excel - Helpt u zich te onderscheiden van de menigte
Kutools voor Excel beschikt over meer dan 300 functies, Ervoor zorgen dat wat u nodig heeft slechts één klik verwijderd is...
Office-tabblad - Schakel lezen en bewerken met tabbladen in Microsoft Office in (inclusief Excel)
- Een seconde om te schakelen tussen tientallen geopende documenten!
- Verminder elke dag honderden muisklikken voor u, zeg maar dag tegen muishand.
- Verhoogt uw productiviteit met 50% bij het bekijken en bewerken van meerdere documenten.
- Brengt efficiënte tabbladen naar Office (inclusief Excel), net als Chrome, Edge en Firefox.