, med denne metode, skal de sikre, at deres computer tilsluttes nettet, således at man kan downloade, kalender, skabeloner,.,, gå til sagsakter, klik, nye, til venstre... og klik, kalender, fra office.com skabeloner,.se skærmbillede:,,,,, så kan du vælge en kalender mappe, og klik på det, vil der være flere former for kalenderen, vælg en, du kan lide, og klik, downloade, knap på den rigtige side, efter at downloade kalender skabelon, får du kalenderen i en ny dagbog.,,,,, skabe en månedlig kalender med vba kode,,, med følgende vba kode, du kan hurtigt skabe en månedlig tidsplan.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 abbrevi(fortsættelse) "_, & chr (13) &" og 4 cifre for året ",,, myinput = inputbox (" form i måned og år for kalender "), hvis myinput =" "så forlade afrika, genoptage,,, afrika,, så klik, knap til at løbe den kode, og en hurtig rubrik dukker op, kan du input - måned og år i den tomme kasse.se skærmbillede:,,,,, og klik, okay.og en ny månedlig tidsplan er blevet skabt i den nuværende arbejdsplan.se skærmbillede:,,,,, vba kode er svært for de fleste af os, og med det andet kode, du kan kun skabe en månedlig tidsplan, hvis man ønsker at skabe en årlige kalender, hurtigt og nemt, er der en enkel metode til at gøre dette?,,,,, hurtigt skabe en månedlige eller årlige kalender, med kutools for excel,,,, evig kalender, værktøj, kutools for excel, kan hurtigt skabe en differentieret måned kalender år kalender i en ny dagbog, og hver måned kalender vil være indeholdt i en ny arbejdsplan.,,,, kutools for excel, med mere over 120 handy excel - tilføje ins, gratis prøve uden begrænsning i 30 dage.få det nu,,, hvis du har installeret kutools i excel - klikkes, enterprise >, arbejdsplan værktøjer, > den evige kalender, og den evige kalender, dialog boks vil vise.hvis man ønsker at skabe en løbende månedlig tidsplan, bare træde 1 i, antallet af måneder, kasse og klik, skabe, button.se skærmbillede:,,,,, og en løbende månedlig tidsplan er blevet genereret i en ny dagbog.,,,,,, og hvis man ønsker at skabe en årlig kalender for 2012, indtast nummer 12 i, antallet af måneder, kasse og angivet i den første måned til januar, 2012, i venstre side.se skærmbillede:,,,,, så klik, skabe, vil det skabe 2012 år kalender i en ny dagbog.,,,,,,