Note: The other languages of the website are Google-translated. Back to English

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 ar gyfer Excel

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

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 Newydd 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 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.

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

Os ydych wedi gosod Kutools ar gyfer 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


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwaith ardderchog. Biliynau o ddiolch am eich dyluniad gwych o dempled calendr Excel. :lol:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sut alla i wneud iddo ddechrau ddydd Llun yn lle? Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch bois am helpu. Hoffwn allu cael Calendr blynyddol y gallaf fewnbynnu eitemau ynddo. Os gallwch chi helpu byddai hynny'n wych.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir