Microsoft Excel est un environnement optimal pour créer et maintenir un calendrier. En utilisant les différentes cellules , vous pouvez facilement passer d'un jour à mettre à jour le calendrier ou ajouter de nouveaux événements et de rendez-vous. Il n'est pas difficile de créer un calendrier dans Excel. Microsoft a fourni une macro CalendarMaker simple qui s'insère dans l'éditeur Visual Basic dans Excel qui créera le calendrier pour vous . Tout ce que vous devez faire est de copier le code pour avoir votre calendrier mensuel dans Excel. Instructions
1
Ouvrez Microsoft Excel. Cliquez sur le menu " Outils" , pointez sur "Macro" et cliquez sur " Visual Basic Editor " si vous utilisez Excel 2003 ou plus tôt. Pour Excel 2007/2010 , cliquez sur l'onglet " développeur" puis cliquez sur " Visual Basic ". Si vous ne voyez pas l'onglet "Developer ", cliquez sur le bouton " Office " puis " Options Excel ". Sur le premier écran , cliquez sur la case à côté de " Afficher l'onglet Développeur sur le ruban " puis cliquez sur "OK". L'onglet "Developer " devrait montrer maintenant .
2
Cliquez sur le menu " Insertion" dans l'éditeur Visual Basic . Cliquez sur " Module " pour lancer un nouveau module de code
3
copie de la première partie du code suivant dans le nouveau module: .
" CalendarMaker Sub ( ) < Ôter la feuille br>
' si eu civile précédente pour prévenir toute erreur
DrawingObjects de ActiveSheet.Protect : . = faux, Contenu: = False , _
scénarios : = False
< p> ' Empêcher l'écran clignote tout en tirant calendrier.
Application.ScreenUpdating = False
»mis en place la récupération d'erreur .
On Error GoTo MyErrorTrap
' Vider la zone A1: G14 , y compris un calendrier précédent
Range (" A1: G14 " ) . . Effacer
' utilisation InputBox pour obtenir le mois et l'année désirée et régler Variable:
« myInput .
myInput = InputBox (" Tapez le mois et l'année de calendrier " )
« Autoriser l'utilisateur à mettre fin macro avec Annuler dans InputBox .
Si myInput = " " Puis Exit Sub
' obtenir la valeur de la date du début du mois entrée.
StartDay = DateValue ( myInput )
« Vérifier si la date valide, mais pas la première de le mois
» - si c'est le cas , réinitialiser StartDay au premier jour du mois
Si jour ( StartDay ) <> 1 Then
StartDay = DateValue ( mois . ( StartDay ) & " /1 /" & _
Année ( StartDay ) )
End If cellule Préparer
' pour le mois et l'année épelé en . Photos
Range (" A1") NumberFormat = "mmmm yyyy"
' Centrer le mois et l'année étiquette à travers A1 : G1 avec approprié
. taille, la hauteur et la mise en gras .
Range (" A1: G1" ) . . .
CadrageHorizontal = xlCenterAcrossSelection
VerticalAlignment = xlCenter
Font.Size = 18 < br . . >
RowHeight = 35
End With
« Préparer a2 : g2 pour le jour de la semaine étiquettes avec centrage , la taille < . hauteur et bolding br>
'
Range (" A2: G2" )
ColumnWidth = 11 &
VerticalAlignment = xlCenter
< p. . > . CadrageHorizontal = xlCenter
. VerticalAlignment = xlCenter
. Orientation = xlHorizontal
. Font.Size = 12
. Font.Bold = True
RowHeight = 20
End With
' Mettre jours de la semaine dans A2: . . g2
Range (" A2 ") = "Dimanche "
Range (" B2 ") = "Monday"
Range (" c2 ") = " mardi"
Range (" D2 ") = "Mercredi "
Range (" E2 ") = "Jeudi "
Range (" F2 ") = " Friday"
Range (" G2" ) = "Saturday "
< p > « Préparer a3 : g7 pour les dates avec gauche /haut alignement , la taille , la hauteur
. caractères gras et
Range (" A3 : g8 " ) .
CadrageHorizontal = xlRight
. VerticalAlignment = xlTop
. Font.Size = 18
. Font.Bold = True
. RowHeight = 21
< p> End With
' Mettre mois et l'année entré pleinement en épelant «A1» .
Range (" A1") . Value = Application.Text ( myInput , "mmmm yyyy" ) Photos
' ensemble de variables et d'obtenir le jour de la semaine, le mois commence .
DayofWeek = semaine ( StartDay )
' Set variables à identifier l'année et le mois comme séparé < ' des variables .
CurYear = Année ( StartDay )
CurMonth = mois ( StartDay )
« br>
Set de variables et de calculer le premier jour du mois suivant .
FinalDay = DateSerial ( CurYear , CurMonth + 1, 1 )
« Placer un " 1 " dans la position de la cellule de la première journée de la
choisi ' mois en fonction sur DayofWeek . "
Retirer les guillemets sur la première et la dernière ligne du code.
4
Copiez le reste du code qui prend le format du code ci-dessus et de créer le calendrier réel . Collez le code juste sous lequel le code à partir des extrémités supérieures .
" Select Case DayofWeek
Cas 1
Range (" A3 " ) . Value = 1
< p> cas 2
Range (" B3 " ) . Value = 1
cas 3
Range (" C3 " ) . Value = 1
Case 4
Range (" D3" ) . Value = 1
Case 5
Range (" E3 " ) . Value = 1
Case 6 Photos
Range (" F3 " ) . Value = 1
Case 7
Range (" G3 " ) . Value = 1
End Select < br >
'Boucle sur toute la plage A3 : g8 incrémentation chaque cellule après le "1"
«cellule
pour chaque cellule Range (" A3 : g8 " ) .
< p> RowCell = cell.Row
ColCell = cell.Column
' faire si "1" est dans la première colonne .
Si cell.Column = 1 et cellule. Row = 3 Ensuite
' faire si cellule courante n'est pas dans la 1ère colonne.
ElseIf cell.Column <> 1 Then
Si cell.Offset (0, -1). Valeur> = 1 alors
Cell.Value = cell.Offset (0 , -1). Value + 1
' arrêt lorsque le dernier jour du mois a été Photos
' entrée
Si Cell.Value > ( FinalDay - StartDay ) . Ensuite
Cell.Value = ""
' Exit boucle lorsque le calendrier a bon nombre de
' jours indiqués.
sortie pour ma
End If End If
« ne uniquement si la cellule actuelle n'est pas dans la ligne 3 et est en colonne 1.
ElseIf cell.Row > 3 et cell.Column = 1 alors
Cell.Value = cell.Offset (-1, 6) . Value + 1
' arrêt lorsque le dernier jour du mois a été saisi
Si Cell.Value > ( FinalDay - StartDay ) . Ensuite
Cell.Value = ""
«boucle de sortie lorsque le calendrier a bon nombre de jours
'représenté .
sortie pour ma
End If
End If
Suivant
« créer des cellules d'entrée , format eux centrés, envelopper le texte et la bordure
' autour des jours .
Pour x = 0 To 5.
Range (" A4 " ) Offset ( x * 2, 0) EntireRow.Insert
Range (" A4 : G4 »). . Offset ( x * 2, 0) Photos
. RowHeight = 65
. CadrageHorizontal = xlCenter
. VerticalAlignment = xlTop
. WrapText = True
. Font.Size = 10 &
. Font.Bold = False
« débloquer ces cellules pour pouvoir saisir du texte plus tard, après
« feuille est protégée .
. verrouillé = False
End With
'border Mettez autour du bloc de dates.
Range (" A3 " ) . Offset ( x * 2 , 0). Redimensionner ( 2, _
7). frontières ( xlLeft )
. Poids = xlThick
ColorIndex = xlAutomatic
End With
< p
. > Avec Range (" A3 " ) . Offset ( x * 2 , 0). Resize (2, _
7). frontières ( xlRight )
. Poids = xlThick
< p> . ColorIndex = xlAutomatic
End With
Range (" A3 " ) . Offset ( x * 2 , 0). Resize (2, 7). BorderAround _
< p > Poids: = xlThick , ColorIndex : . . = xlAutomatic
Suivant
Si Range (" A13 " ) Valeur = "" Then Range (" A13 " ) Offset ( 0, 0) _ Photos
. Resize (2, 8). EntireRow.Delete
« Désactiver le quadrillage .
ActiveWindow.DisplayGridlines = False
« protéger feuille de prévenir écraser les dates
DrawingObjects de ActiveSheet.Protect : . = true, Contenu: = true, _
scénarios: la fenêtre de redimensionnement = True
»pour montrer tous calendrier ( mai doivent être ajustés
»pour la configuration vidéo ) .
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
recherche: ' Laissez écran pour redessiner avec calendrier montrant .
Application.ScreenUpdating = True
«d'éviter d'aller au piège d'erreur , sauf erreur trouvé par la sortie Sub
' ici .
Exit Sub
' erreur provoque msgbox pour indiquer le problème , fournit une nouvelle zone de saisie , AB
»et reprend à la ligne qui a provoqué l'erreur
MyErrorTrap : .
MsgBox " vous n'avez pas entré votre mois et année correctement . " _
& Chr (13 ) & " Sort du mois correctement " _
& " (ou utiliser 3 lettre abréviation ) "_
& Chr (13 ) &" et 4 chiffres pour l'année »
myInput = InputBox (" Tapez le mois et l'année de calendrier " )
< p> Si myInput = "" Then Exit Sub
CV
End Sub "
Retirer les guillemets sur la première et la dernière ligne du code. Cliquez sur l'icône «Enregistrer» sur la barre d'outils . Cliquez sur le menu «Fichier» puis « Fermer et retourner à Microsoft Excel. "
5
Exécutez le module " CalendarMaker " . Dans Excel 2007/2010 , cliquez sur l'onglet " développeur" puis cliquez sur " Macros ". Dans les versions antérieures d'Excel, cliquez sur " Outils ", puis sur " Macros " puis cliquez sur " Macros ". Sélectionnez la macro « CalendarMaker " de la liste dans la fenêtre qui s'affiche , puis cliquez sur " Exécuter".
