Note: The other languages of the website are Google-translated. Back to English

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

Tabblad Office Bewerking en browsen met tabbladen in Office inschakelen en uw werk veel gemakkelijker maken ...
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
  • Hergebruik alles: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en gebruik ze in de toekomst snel opnieuw.
  • Meer dan 20 tekstfuncties: Nummer uit tekststring halen; Extract of verwijder een deel van teksten; Converteer cijfers en valuta's naar Engelse woorden.
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Voeg dubbele rijen en som samen.
  • Hulpmiddelen splitsen: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen.
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Stuur gepersonaliseerde e-mails in bulk naar meerdere ontvangers.
  • Superfilter: Maak geavanceerde filterschema's en pas deze toe op elk blad Sorteer per week, dag, frequentie en meer; Filteren door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig te implementeren in uw onderneming of organisatie.

pijl blauw rechts belMaak 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:

doc-create-calendar1

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.


pijl blauw rechts bel 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")
.HorizontalAlignment = 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")
.HorizontalAlignment = xlRight
.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
.Locked = False
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 = False
ActiveSheet.Protect DrawingObjects: = True, Inhoud: = True, _
Scenario's: = waar
ActiveWindow.WindowState = xlMaximized
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 doc-callendar-2 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:

doc-create-calendar2

En klik dan OK. En er is een nieuwe maandkalender gemaakt in het huidige werkblad. Zie screenshot:

doc-create-calendar3

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?


pijl blauw rechts bel 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:

doc-create-calendar4

En dan is er een actuele maandkalender gegenereerd in een nieuwe werkmap.

doc-create-calendar5

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:

doc-create-calendar6

Dan klikken creëren knop, zal het de jaarkalender 2012 in een nieuwe werkmap maken.

doc-create-calendar7


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-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken!
officetab onderkant
Comments (3)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Goed gedaan. Miljarden bedankt voor je geweldige ontwerp van de Excel-kalendersjabloon. :lol:
Deze opmerking is gemaakt door de moderator op de site
Hallo, hoe kan ik ervoor zorgen dat het op maandag begint? Bij voorbaat dank
Deze opmerking is gemaakt door de moderator op de site
Bedankt jongens voor het helpen. Ik zou graag een jaarkalender willen hebben waarin ik items kan invoeren. Als je kunt helpen zou dat geweldig zijn.
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties