Sut i greu calendr yn Excel?
Mae calendr Excel yn eich helpu i gadw golwg ar ddigwyddiadau pwysig, fel pan fydd rhywun yn dechrau swydd newydd neu pan fydd angen cyflwyno rhywbeth. Mae'n gwneud gweld y dyddiadau hyn yn hawdd ac yn glir. Yn y canllaw hwn, byddaf yn dangos i chi sut i wneud calendrau misol a blynyddol yn Excel. Byddwn yn edrych ar ddefnyddio templedi ar gyfer gosodiad cyflym a hefyd sut i wneud un o'r dechrau i'r rhai sydd eisiau mwy o reolaeth. Fel hyn, gallwch aros yn drefnus, boed ar gyfer gwaith neu gynlluniau personol.
Creu calendr blynyddol trwy ddefnyddio Templedi Calendr Excel
Creu calendr misol neu flynyddol yn gyflym gyda Kutools ar gyfer Excel
Creu calendr blynyddol trwy ddefnyddio Templedi Calendr Excel
Gyda'r dull hwn, rhaid i chi sicrhau bod eich cyfrifiadur yn cysylltu â'r rhwydwaith, fel y gallwch chi lawrlwytho'r Templedi Calendr.
1. Ewch i Ffeil tab, cliciwch Nghastell Newydd Emlyn botwm ar y cwarel chwith, a chliciwch Calendrau o Chwiliadau a awgrymir. Gweler y screenshot:
2. dewiswch un o'r templedi calendr yr ydych yn eu hoffi, dwbl-gliciwch arno i greu'r calendr blynyddol.
Canlyniad
Creu calendr misol neu flynyddol yn gyflym gyda Kutools ar gyfer Excel
Calendr Perpetual offeryn o kutools ar gyfer Excel yn gallu creu calendr mis neu galendr blwyddyn wedi'i addasu yn gyflym mewn llyfr gwaith newydd, a bydd pob calendr mis wedi'i gynnwys mewn taflen waith newydd.
Ar ôl gosod Kutools ar gyfer Excel, cliciwch Kutools Byd Gwaith > Taflen Waith > Calendr Perpetual. Yn y popping-up Calendr Perpetual blwch deialog, gwnewch fel a ganlyn:
- I greu calendr misol, nodwch y misoedd rydych chi am greu'r calendr trwy'r O acI rhestr ostwng, a chlicio Creu.
- I greu calendr blynyddol, nodwch y flwyddyn rydych chi am greu'r calendr trwy'r O ac I rhestr ostwng, a chlicio Creu.
Canlyniad
- Calendr misol:
- Calendr blynyddol:
Creu calendr misol gyda chod VBA
Gyda'r cod VBA canlynol, gallwch greu calendr misol yn gyflym. Gwnewch fel a ganlyn:
1. Gwasgwch Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.
2. Bydd ffenestr newydd yn cael ei harddangos. Cliciwch Mewnosod > Modiwlau, yna mewnbwn y codau canlynol yn y modiwl:
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 abbreviation)" _
& Chr(13) & "and 4 digits for the Year"
MyInput = InputBox("Type in Month and year for Calendar")
If MyInput = "" Then Exit Sub
Resume
End Sub
3. Yna cliciwch Run botwm neu wasg F5 allwedd i redeg cais. Nawr bydd blwch prydlon yn ymddangos, gallwch fewnbynnu'r mis a'r flwyddyn yn y blwch gwag.
Canlyniad
Erthyglau perthnasol
Sut i greu calendr rhestr ostwng (codwr dyddiad) yn Excel?
Gyda chalendr cwympo yn nhaflen waith Excel, gallwch ddewis dyddiad penodol ohono yn hawdd heb deipio â llaw. Mae'r tiwtorial hwn yn dangos i chi sut i greu calendr yn nhaflen waith Excel gan ddefnyddio'r Rheolaeth ActiveX.
Sut i popio calendr wrth glicio cell benodol yn Excel?
Mae'r erthygl hon yn sôn am agor calendr wrth glicio ar gelloedd mewn ystod benodol, yna mewnosod dyddiad yn y gell a ddewiswyd yn awtomatig ar ôl dewis dyddiad yn y calendr.
Sut i greu apwyntiad o ddalen Excel i galendr Outlook?
Weithiau , efallai y bydd angen i chi greu apwyntiadau yng nghalendr Outlook, ond a ydych erioed wedi ceisio rhestru apwyntiadau yn nhaflen waith Excel, yna eu mewnforio i galendr Outlook fel y dangosir isod y screenshot?
Sut i greu calendr misol deinamig yn Excel?
Bydd yr erthygl hon yn dangos dull i chi o greu calendr misol deinamig yn Excel yn fanwl.
Yr Offer Cynhyrchedd Swyddfa Gorau
Kutools for Excel - Yn Eich Helpu i Sefyll Allan O Dyrfa
Kutools ar gyfer Excel Mae ganddo Dros 300 o Nodweddion, Sicrhau mai dim ond clic i ffwrdd yw'r hyn sydd ei angen arnoch chi...
Tab Office - Galluogi Darllen a Golygu Tabiau yn Microsoft Office (gan gynnwys Excel)
- Un eiliad i newid rhwng dwsinau o ddogfennau agored!
- Gostyngwch gannoedd o gliciau llygoden i chi bob dydd, ffarweliwch â llaw llygoden.
- Yn cynyddu eich cynhyrchiant 50% wrth wylio a golygu sawl dogfen.
- Yn dod â Thabiau Effeithlon i'r Swyddfa (gan gynnwys Excel), Just Like Chrome, Edge a Firefox.