Skip i'r prif gynnwys

Sut i greu calendr yn Excel?

Mae'r calendr yn Excel yn wrthrych defnyddiol. Gyda chalendr yn Excel, gallwch recordio llawer o negeseuon yn y calendr. Megis: y dyddiad y bydd gweithiwr newydd yn ymuno â'r cwmni, y dyddiad y dosbarthodd y nwyddau ac ati. Gyda'r calendr, bydd y negeseuon hyn yn edrych yn weledol ac yn syml. Sut i greu calendr misol neu galendr blynyddol yn Excel?

Creu calendr blynyddol trwy lawrlwytho Templedi Calendr Excel

Creu calendr misol gyda chod VBA

Creu calendr misol neu flynyddol yn gyflym gyda Kutools for Excel


swigen dde glas saethCreu calendr blynyddol trwy lawrlwytho 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.

Ewch i Ffeil, Cliciwch Nghastell Newydd Emlyn ar y cwarel chwith, a chlicio calendr o Templedi Office.com. Gweler y screenshot:

doc-create-calend1

Yna gallwch ddewis un ffolder calendr, a chlicio arno, bydd sawl arddull o'r calendr, dewis un yr ydych chi'n ei hoffi, a chlicio Lawrlwytho botwm ar y cwarel iawn.

Ar ôl lawrlwytho templed y calendr, fe gewch y calendr mewn llyfr gwaith newydd.


swigen dde glas saeth Creu calendr misol gyda chod VBA

Gyda'r cod VBA canlynol, gallwch greu calendr misol yn gyflym. Gwnewch fel a ganlyn:

Cliciwch Datblygwr > Visual Basic, Newydd Microsoft Visual Basic ar gyfer cymwysiadau ffenestr yn cael ei harddangos, cliciwch Mewnosod > Modiwlau, a mewnbynnu'r cod canlynol i'r Modiwlau:

VBA: creu calendr misol yn Excel

Is CalendrMaker ()
ActiveSheet.Protect DrawingObjects: = Anghywir, Cynnwys: = Anghywir, _
Senarios: = Anghywir
Application.ScreenUpdating = Anghywir
Ar Gwall GoTo MyErrorTrap
Ystod ("a1: g14"). Clir
MyInput = InputBox ("Teipiwch y Mis a'r flwyddyn ar gyfer y Calendr")
Os MyInput = "" Yna Ymadael Is
StartDay = DateValue (MyInput)
Os Diwrnod (StartDay) <> 1 Yna
StartDay = DateValue (Mis (StartDay) & "/ 1 /" & _
Blwyddyn (StartDay))
Gorffennwch Os
Ystod ("a1"). NumberFormat = "mmmm yyyy"
Gyda Ystod ("a1: g1")
.HorizontalAlign = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = Gwir
.RowHeight = 35
Diwedd Gyda
Gyda Ystod ("a2: g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlign = xlCenter
.VerticalAlignment = xlCenter
.Orientation=xlHorizontal
.Font.Size = 12
.Font.Bold = Gwir
.RowHeight = 20
Diwedd Gyda
Range ("a2") = "dydd Sul"
Range ("b2") = "Dydd Llun"
Range ("c2") = "Dydd Mawrth"
Range ("d2") = "Dydd Mercher"
Range ("e2") = "Dydd Iau"
Range ("f2") = "Dydd Gwener"
Range ("g2") = "Dydd Sadwrn"
Gyda Ystod ("a3: g8")
.HorizontalAlignment = xlIawn
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = Gwir
.RowHeight = 21
Diwedd Gyda
Ystod ("a1"). Gwerth = Application.Text (MyInput, "mmmm yyyy")
DayofWeek = Diwrnod yr Wythnos (StartDay)
CurYear = Blwyddyn (StartDay)
CurMonth = Mis (StartDay)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
Dewiswch Case DayofWeek
Achos 1
Ystod ("a3"). Gwerth = 1
Achos 2
Ystod ("b3"). Gwerth = 1
Achos 3
Ystod ("c3"). Gwerth = 1
Achos 4
Ystod ("d3"). Gwerth = 1
Achos 5
Ystod ("e3"). Gwerth = 1
Achos 6
Ystod ("f3"). Gwerth = 1
Achos 7
Ystod ("g3"). Gwerth = 1
Diwedd Dewis
Ar gyfer pob cell Mewn Ystod ("a3: g8")
RowCell = cell.Row
ColCell = cell.Column
Os cell.Column = 1 A cell.Row = 3 Yna
ElseIf cell.Column <> 1 Yna
Os cell.Offset (0, -1) .Value> = 1 Yna
cell.Value = cell.Offset (0, -1) .Value + 1
Os cell.Value> (FinalDay - StartDay) Yna
cell.Value = ""
Allanfa Ar Gyfer
Gorffennwch Os
Gorffennwch Os
ElseIf cell.Row> 3 A cell.Column = 1 Yna
cell.Value = cell.Offset (-1, 6) .Value + 1
Os cell.Value> (FinalDay - StartDay) Yna
cell.Value = ""
Allanfa Ar Gyfer
Gorffennwch Os
Gorffennwch Os
Digwyddiadau
Am x = 0 I 5
Ystod ("A4"). Gwrthbwyso (x * 2, 0) .EntireRow.Insert
Gyda Ystod ("A4: G4"). Gwrthbwyso (x * 2, 0)
.RowHeight = 65
.HorizontalAlign = xlCenter
.VerticalAlignment = xlTop
.WrapText = Gwir
.Font.Size = 10
.Font.Bold = Anghywir
.Locked = Anghywir
Diwedd Gyda
Gyda Range ("A3"). Gwrthbwyso (x * 2, 0) .Resize (2, _
7) .Borders (xlLeft)
.Weight = xlThick
.ColorIndex = xlAwtomatig
Diwedd Gyda
Gyda Range ("A3"). Gwrthbwyso (x * 2, 0) .Resize (2, _
7) .Borders (xlRight)
.Weight = xlThick
.ColorIndex = xlAwtomatig
Diwedd Gyda
Ystod ("A3"). Gwrthbwyso (x * 2, 0) .Resize (2, 7) .BorderAround _
Pwysau: = xlThick, ColorIndex: = xlAutomatic
Digwyddiadau
Os Ystod ("A13"). Gwerth = "" Yna Ystod ("A13"). Gwrthbwyso (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = Anghywir
ActiveSheet.Protect DrawingObjects: = Gwir, Cynnwys: = Gwir, _
Senarios: = Gwir
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = Gwir
Is Allanfa
MyErrorTrap:
MsgBox "Efallai nad ydych wedi nodi'ch Mis a'ch Blwyddyn yn gywir." _
& Chr (13) a "Sillafu'r Mis yn gywir" _
& "(neu defnyddiwch dalfyriad 3 llythyren)" _
& Chr (13) & "a 4 digid am y Flwyddyn"
MyInput = InputBox ("Teipiwch y Mis a'r flwyddyn ar gyfer y Calendr")
Os MyInput = "" Yna Ymadael Is
Ail-ddechrau
Is-End

Yna cliciwch doc-callendr-2 botwm i redeg y cod, a bydd blwch prydlon yn popio allan, gallwch fewnbynnu'r mis a'r flwyddyn yn y blwch gwag. Gweler y screenshot:

doc-create-calend2

Ac yna cliciwch OK. Ac mae calendr misol newydd wedi'i greu yn y daflen waith gyfredol. Gweler y screenshot:

doc-create-calend3

Mae'r cod VBA yn anodd i'r mwyafrif ohonom, a chyda'r cod VBA hwn, dim ond calendr misol y gallwch ei greu, os ydych chi am greu calendr blynyddol yn gyflym ac yn hawdd, a oes unrhyw ddull syml arall o wneud hyn?


swigen dde glas saeth Creu calendr misol neu flynyddol yn gyflym gyda Kutools for Excel

Calendr Perpetual offeryn o kutools for 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.

Kutools for Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now

Os ydych chi wedi gosod Kutools for Excel, Cliciwch Menter > Offer Taflen Waith > Calendr Perpetual, a siop tecawê Calendr Perpetual bydd blwch deialog yn arddangos. Os ydych chi am greu calendr misol cyfredol, nodwch 1 yn y Nifer y misoedd blwch a chlicio Creu botwm. Gweler y screenshot:

doc-create-calend4

Ac yna mae calendr misol cyfredol wedi'i gynhyrchu mewn llyfr gwaith newydd.

doc-create-calend5

Ac os ydych chi am greu calendr blynyddol o 2012, nodwch rif 12 yn y Nifer y misoedd blwch, a phennwyd y mis cyntaf i Ionawr, 2012 yn y cwarel chwith. Gweler y screenshot:

doc-create-calend6

Yna cliciwch Creu botwm, bydd yn creu calendr blwyddyn 2012 mewn llyfr gwaith newydd.

doc-create-calend7

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks guys for helping. Would like to be able to have a yearly Calendar in which I can enter items. If you can help that would be great.
This comment was minimized by the moderator on the site
Hi, How can I make it start on Monday instead? Thanks in advance
This comment was minimized by the moderator on the site
Excellent job. Billions thanks for your great design of the Excel calendar template. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations