Comment créer un calendrier avec Excel

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 "

« 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 _

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".