Med denne metoden, må du sikre at datamaskinen er koblet til nettverket, slik at du kan laste ned de Kalender Maler.
Gå til Fil, klikker du Ny på venstre ruten, og klikk Kalender fra Office.com Maler. Se skjermbilde:
Deretter kan du velge en kalender mappen, og klikk på den, vil det være flere stilarter av kalenderen, velger du en du liker, og klikk på Last ned-knappen på høyre ruten .
Etter nedlasting av kalenderen mal, vil du få kalenderen i en ny arbeidsbok.
Opprett en månedlig kalender med VBA-kode
Med følgende VBA-kode, kan du raskt lage en månedlig kalender. Gjør følgende:
Klikk Developer > Visual Basic, en ny Microsoft Visual Basic for Applications-vinduet vises, klikker du Sett > Modul, og skriv inn følgende kode i modulen:
VBA: opprette en månedlig kalender i Excel Klikk deretter på knappen for å kjøre koden, og en rask boks vil komme ut, kan du legge inn måned og år i den tomme boksen. Se skjermbilde: Og klikk deretter OK. Og en ny månedlig kalender har blitt opprettet i gjeldende regneark. Se skjermbilde: VBA-koden er vanskelig for de fleste av oss, og med denne VBA-kode, kan du bare opprette en månedlig kalender, hvis du ønsker å lage en årskalender raskt og enkelt er det noen annen enkel metode for å gjøre dette? Perpetual Calendar verktøy for kutools for Excel kan raskt lage et tilpasset måneders kalender eller år kalender i en ny arbeidsbok, og hver måned kalenderen vil ligge i et nytt regneark Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 30 dager . Få den nå Hvis du har installert Kutools for Excel, må du klikke Enterprise > Regneark Verktøy > Perpetual Calendar, og en Perpetual Calendar dialogboks vises. Hvis du ønsker å opprette en gjeldende månedskalender, er å sette inn en i antall måneder boksen og klikk Opprett. Se skjermbilde: Og så en gjeldende månedlig kalender har blitt generert i en ny arbeidsbok Og hvis du ønsker å lage en årskalender. 2012, vennligst skriv nummer 12 i antall måneder boksen, og spesifisert den første måneden til januar 2012 i den venstre ruten. Se skjermbilde. Klikk deretter Opprett-knappen, det vil skape den 2012 år kalenderen i en ny arbeidsbok
Sub CalendarMaker ()
ActiveSheet.Protect DrawingObjects: = False, Innhold : = False, _
Scenarier: = False
Application.ScreenUpdating = False
On Error GoTo MyErrorTrap
Range ("A1: G14") .Clear
MyInput = InputBox ("Type Måned og år for Calendar")
Hvis MyInput = "" Then Exit Sub
StartDay = DATEVALUE (MyInput)
Hvis Day (StartDay) < > 1 Så
StartDay = DATEVALUE (Måned (StartDay) & "/1 /" & _
Year (StartDay))
End If
Range ("a1") NumberFormat = "mmmm åååå"
Med Range ("A1: g1").
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
.RowHeight = 35
End Med
Med Range ( "a2: g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
< em> .Orientation = xlHorizontal
.Font.Size = 12
.Font.Bold = True
.RowHeight = 20
End Med
Range ("A2") = "Sunday"
Range ("b2") = "Monday"
Range ("c2") = "tirsdag"
< em> Range ("d2") = "onsdag"
Range ("e2") = "Torsdag"
Range ("F2") = "Friday"
Range ("g2") = "Lørdag"
Med Range ("a3: G8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = True
.RowHeight = 21
End Med
Range ("a1"). Verdi = Application.Text (MyInput, "mmmm åååå")
dayOfWeek = Weekday (StartDay)
CurYear = Year (StartDay)
CurMonth = Måned (StartDay)
FinalDay = Dateserial (CurYear, CurMonth + 1, 1)
Velg sak dayOfWeek
Case 1
Range ("a3"). Verdi = 1
Case 2
Range ("b3"). Verdi = 1
Case 3
Range ("c3"). Verdi = 1
Case 4
Range ("d3"). Verdi = 1
Case 5
Range ("e3"). Verdi = 1
< em> Case 6
Range ("F3"). Verdi = 1
Case 7
Range ("g3"). Verdi = 1
Slutt Velg
For Hver celle i Range ("a3: G8")
RowCell = cell.Row
ColCell = cell.Column
Hvis celle .Column = 1 Og cell.Row = 3 Så
ElseIf cell.Column < > 1 Så
Hvis cell.Offset (0, -1) .Value > = 1 Så
cell.Value = cell.Offset (0, -1) .Value + 1
Hvis cell.Value > (FinalDay - StartDay) Så
cell.Value = ""
Exit For
End If
End If
ElseIf celle .Row > 3 Og cell.Column = 1 Så
cell.Value = cell.Offset (-1, 6) .Value + 1
Hvis cell.Value > (FinalDay - StartDay) Så
cell.Value = ""
Exit For
End If
End If
Neste
For x = 0 til 5
Range ("A4") Offset (x * 2, 0) .EntireRow.Insert
Med Range (. "A4: G4" ) .Offset (x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Font.Size = 10
.Font.Bold = False
.Locked = False
End Med
Med Range ("A3"). Offset (x * 2, 0) .Resize (2, _
7) .Borders (xlLeft)
.Weight = xlThick
. ColorIndex = xlAutomatic
End Med
Med Range ("A3"). Offset (x * 2, 0) .Resize (2, _
7) .Borders ( xlRight)
.Weight = xlThick
.ColorIndex = xlAutomatic
End Med
Range ("A3"). Offset (x * 2, 0 ) .Resize (2, 7) .BorderAround _
Vekt: = xlThick, ColorIndex:. = xlAutomatic
Neste
Hvis Range ("A13") value = " "Da Range (" A13 "). Offset (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects: = true, Innhold: = True, _
Scenarier: = true
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
< em> Application.ScreenUpdating = True
Exit Sub
MyErrorTrap:
MsgBox ". Du kan ikke har tastet Måned og År riktig" _
& Chr (13) & "Spell Månedens riktig" _
& "(Eller bruke 3 bokstav forkortelse)" _
& Chr (13) & "og 4 siffer for the Year"
MyInput = InputBox ("Type Måned og år for Calendar")
Hvis MyInput = "" Then Exit Sub
Fortsett
End Sub
Raskt å lage en månedlig eller årlig kalender med Kutools for Excel