. Met deze methode, moet je zorgen dat je de computer aangesloten op het netwerk, zodat je kunt downloaden, kalender,,,,, dossier, op de nieuwe, in de linker raam, klik, kalenders, office.com model.Kijk 's:,,,,, dan kun je kiezen voor een kalenderjaar de MAP, klik, zal het een stijl van de kalender, één van je favoriete, download de knop op de ruit,., na het downloaden van de kalender, je zou in een nieuw boek in de,,,, en een kalender van de VBA per maand. De kalender, de code van de VBA, met de volgende code, je kan de snelle totstandbrenging van een kalender.Please do as follows:,,Click ,Developer, > ,Visual Basic,, a new, Microsoft Visual Basic for applications, window will be displayed, click ,Insert, > ,Module,, and input the following code into the ,Module,:,,,VBA: create a monthly calendar in Excel,,,,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 abbreviInformatie _) ",,, & CHR (13) &" en de 4 - cijferige jaar ",,, myinput = inputbox (" binnen een maand en jaar van de kalender, "), als myinput =" "en de uitgang,,,,,,, cv, terminals, en drukt op de knop voor de werking de code, en zal er een doos, je kan binnen een maand en jaar van de lege doos.Kijk 's:,,,,, en daarna goed.In de huidige werkzaamheden in het creëren van een nieuwe tabel van de kalender.Kijk naar de VBA:,,,,, de code is een van onze meest moeilijk door de VBA code, je kan alleen maar het creëren van een op de kalender, als je wilt dat het creëren van een jaarlijkse kalender snel en gemakkelijk, maar er zijn ook andere eenvoudige manieren om dit te doen?,,,,, de snelle totstandbrenging van een maand, of een jaar kutools kalender, Excel,,,, kalender, instrumenten, kutools Excel, snel kunnen leiden tot een gewoonte kalender en een kalender in een nieuw boek, en elke maand de agenda zal worden opgenomen in een nieuwe baan, tabel.,,, kutools Excel, Excel - 120: meer te vergemakkelijken, kunnen proberen om in de 30 dagen zonder beperkingen.Zie nu,,, als u geïnstalleerd kutools Excel, alsjeblieft, de ondernemingen, de > >, tabel, gereedschap, kalender, en, kalender, zal een dialoog.Als je wilt dat het creëren van een huidige kalender, is alleen vereist voor de invoer van 1 maand, een maand, een druk op de knop en klik, het creëren van een knop.Kijk 's:,,,,, dan de huidige maandelijkse kalender is in die nieuwe in het Werkboek.,,,,, als je wilt dat het creëren van een jaarlijkse kalender in 2012, alsjeblieft, 12 maanden, doos, en de aanwijzing van de eerste maand januari 2012, in de linker raam.Kijk 's:,,,,, en daarna, de oprichting, de knop, zal het in een nieuw boek om in 2012 de kalender.,,,,,,