Open Microsoft Excel 1 . Klik op het menu 'Extra' , ga naar " Macro " en klik op " Visual Basic Editor " bij gebruik van Excel 2003 of eerder . Voor Excel 2007/2010 , klikt u op het tabblad " Developer " en klik op " Visual Basic . " Als u niet het tabblad "Ontwikkelaar " zien, klik op de " Office " knop en dan ' Opties voor Excel . " Op het eerste scherm , klikt u op het selectievakje naast " Show tabblad Ontwikkelaars op het lint " en klik op " OK . " Het tabblad "Ontwikkelaar " moet nu laten zien .

Klik op de " Insert " menu- item in de Visual Basic Editor 2 . Klik op " Module " om een nieuwe code module te starten
3

Kopieer het eerste deel van de volgende code in de nieuwe module : .

" Sub CalendarMaker ( ) op < br >

' Beveiliging opheffen opgenomen wanneer moest vorige kalender om fouten te voorkomen

ActiveSheet.Protect DrawingObjects
: . = Vals , Inhoud : = False , _

Scenario
: = False

' Voorkom scherm knippert tijdens het tekenen kalender .

Application.ScreenUpdating = False

' Set up error trapping .

On Error GoTo MyErrorTrap

' duidelijke gebied a1 : g14 inclusief eventuele voorafgaande kalenderjaar

Range
( " a1 : g14 " ) . . Clear

' Gebruik InputBox om de gewenste maand en het jaar te krijgen en zet variabele

' MyInput .

MyInput = InputBox ( " Typ Maand en jaar voor Calendar " ) op Twitter

' gebruiker mag eindigen macro met Cancel in InputBox .

Als MyInput = " " dan Exit Sub

' de valutadatum van het begin van de ingevoerde maand Get .

Startdag = DateValue ( MyInput ) op

' Controleer of geldige datum , maar niet de eerste van de maand

' - zo ja , reset Startdag tot de eerste dag van de maand

Als dag ( Startdag ) < > 1 dan

Startdag = DateValue (maand
. ( Startdag ) & " /1 /" & _

Jaar
( Startdag ) )

Eind
als

' Prepare cel voor maand en jaar als volledig gespeld .

Range
( " a1 " ) NumberFormat = " mmmm yyyy "

' Centrum van de Maand en Jaar label over a1 : g1 met geschikte

' . grootte , hoogte en vetgedrukte .

Met Range ( " a1 : g1 " ) . . .

HorizontalAlignment xlCenterAcrossSelection

VerticalAlignment = = xlCenter

Font.Size = 18 < br . . >

Font.Bold = True

rowHeight = 35

End met

' Bereid a2 : g2 voor dag van de week labels met centrering , grootte, < . br >

' hoogte en vetgedrukte

Met Range ( " a2 : g2 " ) op Twitter

ColumnWidth 11 &

VerticalAlignment = = xlCenter

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlCenter

. Orientation = xlHorizontal

. Font.Size = 12

. Font.Bold = True < br >

rowHeight = 20

End met

' Put dagen van de week in a2 : . . g2

Range
( " a2 " ) = " zondag " < br

Range ( " b2 " ) > = " maandag "

Range
( " c2 " ) = " dinsdag "

Range
( " d2 " ) = " woensdag "

Range ( " e2 " ) = " donderdag "

Range
( " f2 " ) = " vrijdag "

Range
( " g2 " ) = " zaterdag "

' Bereid a3 : g7 voor data met links /boven uitlijning , grootte , hoogte

' . en vetgedrukte

met Range ( " a3 : g8 " ) .

HorizontalAlignment = xlRight

. VerticalAlignment = xlTop

. Font.Size = 18

. Font.Bold = True

. rowHeight = 21

End With

' Put ingevoerd maand en jaar volledig spelling uit in " a1 " .

Range
( " a1 " ) . Value = Application.Text ( MyInput , " mmmm yyyy " )

'Set variabele en krijgen welke dag van de week van de maand begint .

dagvandeweek
= WeekDay ( Startdag ) op

' Set variabelen om het jaar en de maand als afzonderlijke identificeren < ' variabelen .

CurYear
= Jaar ( Startdag )

CurMonth = maand

( Startdag ) ' br >

Set variabele en het berekenen van de eerste dag van de volgende maand .

FinalDay = DateSerial ( CurYear , CurMonth + 1 , 1 ) op Twitter

' Plaats een "1 " in de cel positie van de eerste dag van de gekozen

' maand op basis op dayOfWeek . "

Verwijder de aanhalingstekens op de eerste en de laatste regel van de code .

Copy 4 de rest van de code dat het formaat van de bovenstaande code neemt en creëren de eigenlijke kalender . Plak de code net onder waar de code van boven eindigt .

"Select Case dagvandeweek

Case 1

Range
( " a3 " ) . Value = 1

Case 2

Range
( " b3 " ) . Value = 1

zaak 3

Range
( " c3 " ) . Value = 1

case

Range 4
( " d3 " ) . Value = 1

case
5

Range
( " e3 " ) . Value = 1

case
6

Range
( " f3 " ) . Value = 1

zaak 7

Range
( " g3 " ) . Value = 1

End of Selecteer < br >

' Loop door gamma a3 : g8 verhogen elke cel na de " 1 "

' cell

Voor elke cel in Waaier ( " a3 : g8 " ) .

RowCell = cell.Row

ColCell
= cell.Column

' doen als " 1 " is in de eerste kolom .

Als cell.Column = 1 En cel . rij = 3 dan

' doen als de huidige cel niet in 1 kolom .

ElseIf cell.Column < > 1 dan

Als cell.Offset ( 0 , -1 ) . Value > = 1 dan

cell.Value = cell.Offset ( 0 , -1 ) . Value + 1

' Stop wanneer de laatste dag van de maand is geweest

' ingevoerd

Als cell.Value > ( FinalDay - Startdag ) . dan

= " "

cell.Value ' Exit lus als kalender heeft juiste aantal

' dagen getoond .

Exit
Voor

End
Als

End
Als

' Weet alleen als de huidige cel is niet in Row 3 en is in kolom 1 .

ElseIf cell.Row
> 3 en cell.Column = 1 dan

cell.Value = cell.Offset
( -1 , 6 ) . Value + 1

' Stop wanneer de laatste dag van de maand is ingevoerd

Als cell.Value > ( FinalDay - Startdag ) dan

cell.Value
. = " "

'Exit lus als kalender heeft juiste aantal dagen |

' getoond .

Exit
Voor

End
Als

end If

Volgende

'Create Entry cellen , formaat hen gecentreerd , wrap tekst en grens

' rond dagen .

Voor x = 0 To . 5

Range
( " A4 " ) Offset ( x * 2 , 0 ) EntireRow.Insert

Met Range ( " A4 : G4 ' ) . . Offset ( x * 2 , 0 )

. rowHeight = 65

. HorizontalAlignment xlCenter

. VerticalAlignment = = xlTop

. WrapText = True

. Font.Size = 10

. Font.Bold = False

' Unlock deze cellen in staat zijn om de tekst later in te voeren na

' werkblad beschermd is .

. Locked = False

End met

' Doe rand rond het blok van data .
p Met Range ( " A3 " ) . Offset ( x * 2 , 0 ) . Resize ( 2 , _

7 ) . Borders ( xlLeft ) op

. Weight = xlThick

. ColorIndex = xlAutomatic

End met

Met Range ( " A3 " ) . Offset ( x * 2 , 0 ) . Resize ( 2 , _

7 ) . Borders ( xlRight ) op

. Weight = xlThick

. ColorIndex = xlAutomatic

End
Met

Range
( " A3 " ) . Offset ( x * 2 , 0 ) . Resize ( 2 , 7 ) . rand rond _

Gewicht : = xlThick , ColorIndex : . . = xlAutomatic

Volgende

Als Range ( " A13 " ) Value = " " dan Range ( " A13 " ) Offset ( 0 , 0 ) op Twitter _

. Resize ( 2 , 8 ) . EntireRow.Delete

' Schakel rasterlijnen .

ActiveWindow.DisplayGridlines
= False

' blad beveiligen om te voorkomen overschrijven van de data

ActiveSheet.Protect DrawingObjects
: . = True , Contents: = True , _

Scenario
: = True

' venster Resize om al kalender (mei moeten worden aangepast

' voor video -configuratie ) .

ActiveWindow.WindowState = xlMaximized

ActiveWindow.ScrollRow
= 1

' Laat scherm om opnieuw te tekenen met kalender tonen .

Application.ScreenUpdating = True

' Voorkom gaat fout val tenzij fout gevonden door het verlaten Sub

' hier .

Exit Sub
< br >

' fout veroorzaakt msgbox om het probleem aan te geven , biedt nieuwe invoerveld ,

' en hervat op de lijn die de fout heeft veroorzaakt

MyErrorTrap
: .

MsgBox " je mag niet je Maand en Jaar correct ingevoerd . " _

& Chr ( 13 ) & " Spel de Maand correct " _

& " ( of gebruik 3 letters afkorting ) " _

& Chr ( 13 ) & " en 4 cijfers voor het jaar "

MyInput = InputBox ( " Typ Maand en jaar voor Calendar " ) op

Als MyInput = " " dan Exit Sub

Resume

End Sub
"

Verwijder de aanhalingstekens op de eerste en de laatste regel van de code . Klik op de " Opslaan" -pictogram op de werkbalk . Klik op de " File " menu en vervolgens " Sluiten en terugkeren naar Microsoft Excel . "
5

Run de " CalendarMaker " module . In Excel 2007/2010 , klikt u op het tabblad " Developer " en klik op " Macro's . " In eerdere versies van Excel , klikt u op 'Extra ', ga naar " Macro's " en vervolgens op " Macro's . " Selecteer de " CalendarMaker " macro uit de lijst in het venster dat verschijnt en klik vervolgens op "Uitvoeren . "