Comment créer un calendrier dans Excel?
Un calendrier Excel vous aide à suivre les événements importants, comme lorsque quelqu'un commence un nouveau travail ou lorsque quelque chose doit être livré. Cela permet de voir ces dates facilement et clairement. Dans ce guide, je vais vous montrer comment créer des calendriers mensuels et annuels dans Excel. Nous verrons comment utiliser des modèles pour une configuration rapide et comment en créer un à partir de zéro pour ceux qui souhaitent plus de contrôle. De cette façon, vous pouvez rester organisé, que ce soit pour le travail ou pour vos projets personnels.
Créez un calendrier annuel à l'aide de modèles de calendrier Excel
Créez rapidement un calendrier mensuel ou annuel avec Kutools for Excel
Créez un calendrier annuel à l'aide de modèles de calendrier Excel
Avec cette méthode, vous devez vous assurer que votre ordinateur se connecte au réseau afin de pouvoir télécharger le Modèles de calendrier.
1. Aller à Déposez votre dernière attestation onglet, cliquez sur Nouveauté dans le volet de gauche, puis cliquez sur Calendriers du Recherches suggérées. Voir la capture d'écran:
2. sélectionnez l'un des modèles de calendrier que vous aimez, double-cliquez dessus pour créer le calendrier annuel.
Résultat
Créez rapidement un calendrier mensuel ou annuel avec Kutools for Excel
Calendrier perpétuel outil de kutools pour Excel peut créer rapidement un calendrier mensuel personnalisé ou un calendrier annuel dans un nouveau classeur, et chaque calendrier mensuel sera contenu dans une nouvelle feuille de calcul.
Après avoir installé Kutools pour Excel, veuillez cliquer sur Kutools Plus > Feuille > Calendrier perpétuel. Dans le pop-up Calendrier perpétuel boîte de dialogue, procédez comme suit:
- Pour créer un calendrier mensuel, spécifiez les mois pendant lesquels vous souhaitez créer le calendrier via le A partir de etÀ liste déroulante, et cliquez Création.
- Pour créer un calendrier annuel, spécifiez l'année pendant laquelle vous souhaitez créer le calendrier via le A partir de et À liste déroulante, et cliquez Création.
Résultat
- Un calendrier mensuel :
- Un calendrier annuel :
Créer un calendrier mensuel avec le code VBA
Avec le code VBA suivant, vous pouvez créer rapidement un calendrier mensuel. Veuillez procéder comme suit:
1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Une nouvelle fenêtre s'affichera. Cliquez sur insérer > Module, puis saisissez les codes suivants dans le module:
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. Puis clique Courir bouton ou appuyez sur F5 clé pour exécuter l’application. Maintenant, une boîte de dialogue apparaîtra, vous pouvez saisir le mois et l'année dans la case vide.
Résultat
Articles connexes
Comment créer un calendrier de liste déroulante (sélecteur de date) dans Excel?
Avec le calendrier déroulant dans la feuille de calcul Excel, vous pouvez facilement sélectionner une date spécifique à partir de celui-ci sans taper manuellement. Ce didacticiel vous montre comment créer un calendrier dans une feuille de calcul Excel à l'aide du contrôle ActiveX.
Comment faire apparaître un calendrier en cliquant sur une cellule spécifique dans Excel?
Cet article parle de l'affichage d'un calendrier lorsque vous cliquez sur des cellules dans une certaine plage, puis de l'insertion automatique de la date dans la cellule sélectionnée après avoir sélectionné la date dans le calendrier.
Comment créer un rendez-vous à partir d'une feuille Excel vers le calendrier Outlook?
Parfois, vous devrez peut-être créer des rendez-vous dans le calendrier Outlook, mais avez-vous déjà essayé de répertorier les rendez-vous dans la feuille de calcul Excel, puis de les importer dans le calendrier Outlook comme illustré ci-dessous?
Comment créer un calendrier mensuel dynamique dans Excel?
Cet article vous montrera en détail la méthode pour créer un calendrier mensuel dynamique dans Excel.
Les meilleurs outils de productivité de bureau
Kutools for Excel - vous aide à vous démarquer de la foule
Kutools pour Excel possède plus de 300 fonctionnalités, Assurez-vous que ce dont vous avez besoin est à portée de clic...
Onglet Office - Activer la lecture et l'édition par onglets dans Microsoft Office (y compris Excel)
- Une seconde pour basculer entre des dizaines de documents ouverts!
- Réduisez chaque jour des centaines de clics de souris, dites adieu à la souris.
- Augmente votre productivité de 50% lors de l'affichage et de l'édition de plusieurs documents.
- Apporte des onglets efficaces à Office (y compris Excel), tout comme Chrome, Edge et Firefox.