Hoe maak je een kalender in Excel?
De kalender in Excel is een handig object. Met een agenda in Excel kun je veel berichten in de agenda opnemen. Zoals: de datum waarop een nieuwe medewerker bij het bedrijf komt, de datum waarop de goederen zijn afgeleverd enzovoort. Met de kalender zien deze berichten er visueel en eenvoudig uit. Hoe maak je een maandelijkse kalender of een jaarkalender in Excel?
Maak een jaarkalender door Excel-kalendersjablonen te downloaden
Maak een maandelijkse kalender met VBA-code
Maak snel een maandelijkse of jaarlijkse kalender met Kutools voor Excel
Maak een jaarkalender door Excel-kalendersjablonen te downloaden
Bij deze methode moet u ervoor zorgen dat uw computer verbinding maakt met het netwerk, zodat u het Kalendersjablonen.
Ga naar Dien in, Klik Nieuw in het linkerdeelvenster en klik op Kalender van Office.com-sjablonen. Zie screenshot:
Vervolgens kun je een agendamap kiezen en erop klikken, er zullen verschillende stijlen van de agenda zijn, selecteer er een die je leuk vindt en klik op Downloaden knop in het rechterdeelvenster.
Na het downloaden van het kalendersjabloon, krijgt u de kalender in een nieuwe werkmap.
Maak een maandelijkse kalender met VBA-code
Met de volgende VBA-code kunt u snel een maandelijkse kalender maken. Ga als volgt te werk:
Klik Ontwikkelaar > Visual Basic, Een nieuw Microsoft Visual Basic voor applicaties venster wordt weergegeven, klik op Invoegen > Moduleen voer de volgende code in het Module:
VBA: maak een maandelijkse kalender in Excel
Sub CalendarMaker ()
ActiveSheet.Protect DrawingObjects: = False, Inhoud: = False, _
Scenario's: = False
Application.ScreenUpdating = False
Bij een fout ga naar MyErrorTrap
Bereik ("a1: g14"). Wissen
MyInput = InputBox ("Typ maand en jaar in voor kalender")
If MyInput = "" Verlaat dan Sub
StartDay = DateValue (MyInput)
Als Dag (StartDag) <> 1 Dan
StartDay = DateValue (Month (StartDay) & "/ 1 /" & _
Jaar (StartDay))
End If
Bereik ("a1"). NumberFormat = "mmmm jjjj"
Met bereik ("a1: g1")
.HorizontaleUitlijning = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
Lettergrootte = 18
.Font.Bold = Waar
.Rijhoogte = 35
Eindigt met
Met bereik ("a2: g2")
.Kolombreedte = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
Oriëntatie = xlHorizontal
Lettergrootte = 12
.Font.Bold = Waar
.Rijhoogte = 20
Eindigt met
Range ("a2") = "zondag"
Range ("b2") = "Maandag"
Range ("c2") = "dinsdag"
Range ("d2") = "woensdag"
Range ("e2") = "Donderdag"
Range ("f2") = "Friday"
Range ("g2") = "Zaterdag"
Met bereik ("a3: g8")
.Horizontale Uitlijning = xlRechts
.VerticalAlignment = xlTop
Lettergrootte = 18
.Font.Bold = Waar
.Rijhoogte = 21
Eindigt met
Bereik ("a1"). Waarde = Application.Text (MyInput, "mmmm jjjj")
DayofWeek = Weekdag (StartDay)
CurYear = Jaar (StartDay)
CurMonth = Maand (StartDay)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
Selecteer Case DayofWeek
Case 1
Bereik ("a3"). Waarde = 1
Case 2
Bereik ("b3"). Waarde = 1
Case 3
Bereik ("c3"). Waarde = 1
Case 4
Bereik ("d3"). Waarde = 1
Case 5
Bereik ("e3"). Waarde = 1
Case 6
Bereik ("f3"). Waarde = 1
Case 7
Bereik ("g3"). Waarde = 1
End Select
Voor elke cel binnen bereik ("a3: g8")
RowCell = cel.Rij
ColCell = cel.Kolom
Als cell.Column = 1 En cell.Row = 3 Dan
ElseIf cel.Kolom <> 1 Dan
Als cell.Offset (0, -1) .Value> = 1 Then
cell.Value = cel.Offset (0, -1) .Value + 1
Als celwaarde> (FinalDay - StartDay) Dan
cell.Value = ""
Afsluiten voor
End If
End If
ElseIf cell.Row> 3 And cell.Column = 1 Then
cell.Value = cel.Offset (-1, 6) .Value + 1
Als celwaarde> (FinalDay - StartDay) Dan
cell.Value = ""
Afsluiten voor
End If
End If
Volgende
Voor x = 0 naar 5
Bereik ("A4"). Offset (x * 2, 0) .EntireRow.Insert
Met bereik ("A4: G4"). Offset (x * 2, 0)
.Rijhoogte = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = Waar
Lettergrootte = 10
.Lettertype.Bold = False
.Vergrendeld = Onwaar
Eindigt met
Met bereik ("A3"). Offset (x * 2, 0). Formaat (2, _
7) .Randen (xlLeft)
.Gewicht = xlDik
.ColorIndex = xlAutomatisch
Eindigt met
Met bereik ("A3"). Offset (x * 2, 0). Formaat (2, _
7) .Randen (xlRight)
.Gewicht = xlDik
.ColorIndex = xlAutomatisch
Eindigt met
Bereik ("A3"). Offset (x * 2, 0). Formaat (2, 7) .BorderAround _
Gewicht: = xlDik, ColorIndex: = xlAutomatisch
Volgende
If Range ("A13"). Value = "" Then Range ("A13"). Offset (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = Onwaar
ActiveSheet.Protect DrawingObjects: = True, Inhoud: = True, _
Scenario's: = waar
ActiveWindow.WindowState = xlGemaximaliseerd
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
Exit Sub
MijnErrorTrap:
MsgBox "Mogelijk hebt u uw maand en jaar niet correct ingevoerd." _
& Chr (13) & "Spel de maand correct" _
& "(of gebruik een afkorting van 3 letters)" _
& Chr (13) & "en 4 cijfers voor het jaar"
MyInput = InputBox ("Typ maand en jaar in voor kalender")
If MyInput = "" Verlaat dan Sub
Hervat
End Sub
Dan klikken 
knop om de code uit te voeren, en er verschijnt een promptvenster, u kunt de maand en het jaar invoeren in het lege vak. Zie screenshot:
En klik dan OK. En er is een nieuwe maandkalender gemaakt in het huidige werkblad. Zie screenshot:
De VBA-code is voor de meesten van ons moeilijk, en met deze VBA-code kun je alleen een maandelijkse kalender maken, als je snel en gemakkelijk een jaarkalender wilt maken, is er dan een andere eenvoudige methode om dit te doen?
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.
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Get it Now
Als u Kutools voor Excel hebt geïnstalleerd, klikt u op Enterprise > Werkbladhulpmiddelen > Perpetual CalendarEn een Perpetual Calendar dialoogvenster wordt weergegeven. Als u een actuele maandkalender wilt maken, voert u 1 in het Aantal maanden vak en klik creëren knop. Zie screenshot:
En dan is er een actuele maandkalender gegenereerd in een nieuwe werkmap.
En als je een jaarkalender van 2012 wilt maken, vul dan nummer 12 in in het Aantal maanden box, en specificeerde de eerste maand tot Januari, 2012 in het linkerdeelvenster. Zie screenshot:
Dan klikken creëren knop, zal het de jaarkalender 2012 in een nieuwe werkmap maken.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
