Kako ustvariti koledar v Excelu?

Koledar v Excelu je uporaben predmet. S koledarjem v Excelu lahko v koledar posnamete veliko sporočil. Kot so: datum, ko se je novi zaposleni pridružil podjetju, datum dobave blaga itd. S koledarjem bodo ta sporočila videti vizualno in preprosto. Kako ustvariti mesečni koledar ali letni koledar v Excelu?

Ustvarite letni koledar tako, da prenesete predloge koledarja Excel

Ustvarite mesečni koledar s kodo VBA

Hitro ustvarite mesečni ali letni koledar s programom Kutools za Excel

Ustvarite letni koledar tako, da prenesete predloge koledarja Excel

Neverjetno! Uporaba učinkovitih zavihkov v Excelu Tako kot Chrome, Firefox in Safari!

Prihranite 50% svojega časa in vsak dan zmanjšajte na tisoče klikov z miško!

---

S to metodo morate zagotoviti, da se računalnik poveže z omrežjem, da lahko prenesete datoteko Predloge koledarja.

Pojdi na file, Kliknite Novo v levem podoknu in kliknite Koledar iz Predloge Office.com. Oglejte si posnetek zaslona:

Nato lahko izberete eno mapo koledarja in kliknete nanjo, v koledarju bo več slogov, izberite želeno in kliknite Prenos na desnem podoknu.

Po prenosu predloge koledarja boste koledar dobili v novi delovni zvezek.

Ustvarite mesečni koledar s kodo VBA

Z naslednjo kodo VBA lahko hitro ustvarite mesečni koledar. Naredite naslednje:

klik Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduliin vnesite naslednjo kodo v Moduli:

VBA: ustvarite mesečni koledar v Excelu

Podkoledar ()
ActiveSheet.Protect DrawingObjects: = False, Contents: = False, _
Scenariji: = False
Application.ScreenUpdating = Napačno
Ob napaki Pojdi na MyErrorTrap
Območje ("a1: g14"). Jasno
MyInput = InputBox ("Vnesite mesec in leto za koledar")
Če je MyInput = "" Potem zapustite Sub
StartDay = DateValue (MyInput)
If Day (StartDay) <> 1 Potem
StartDay = DateValue (mesec (StartDay) & "/ 1 /" & _
Leto (začetni dan))
Konec Če
Obseg ("a1"). NumberFormat = "mmmm llll"
Z obsegom ("a1: g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Velikost pisave = 18
.Font.Bold = Res
.Višina vrstice = 35
Končaj s
Z obsegom ("a2: g2")
.Širina stolpca = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientacija = xlHorizontalno
.Velikost pisave = 12
.Font.Bold = Res
.Višina vrstice = 20
Končaj s
Razpon ("a2") = "nedelja"
Obseg ("b2") = "Ponedeljek"
Obseg ("c2") = "Torek"
Obseg ("d2") = "sreda"
Razpon ("e2") = "četrtek"
Obseg ("f2") = "petek"
Obseg ("g2") = "sobota"
Z obsegom ("a3: g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Velikost pisave = 18
.Font.Bold = Res
.Višina vrstice = 21
Končaj s
Obseg ("a1"). Vrednost = Application.Text (MyInput, "mmmm llll")
DayofWeek = delovni dan (dan začetka)
CurYear = leto (dan začetka)
CurMonth = mesec (dan začetka)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
Izberite Case DayofWeek
Case 1
Obseg ("a3"). Vrednost = 1
Case 2
Obseg ("b3"). Vrednost = 1
Case 3
Obseg ("c3"). Vrednost = 1
Case 4
Obseg ("d3"). Vrednost = 1
Case 5
Obseg ("e3"). Vrednost = 1
Case 6
Obseg ("f3"). Vrednost = 1
Case 7
Obseg ("g3"). Vrednost = 1
Konec Izberi
Za vsako celico v obsegu ("a3: g8")
Vrstica = celica. Vrstica
ColCell = celica. Stolpec
Če je celica. Stolpec = 1 In celica. Vrstica = 3 Potem
Celica ElseIf. Stolpec <> 1 Nato
Če celica.Offset (0, -1) .Vrednost> = 1 Potem
celica.Vrednost = celica.Offset (0, -1) .Vrednost + 1
If cell.Value> (FinalDay - StartDay) Nato
cell.Value = ""
Izhod za
Konec Če
Konec Če
ElseIf celica. Vrstica> 3 In celica. Stolpec = 1 Nato
celica.Vrednost = celica.Offset (-1, 6) .Vrednost + 1
If cell.Value> (FinalDay - StartDay) Nato
cell.Value = ""
Izhod za
Konec Če
Konec Če
Naslednji
Za x = 0 Za 5
Obseg ("A4"). Odmik (x * 2, 0) .EntireRow.Insert
Z obsegom ("A4: G4"). Odmik (x * 2, 0)
.Višina vrstice = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = Res
.Velikost pisave = 10
.Font.Bold = Napačno
.Locked = Napačno
Končaj s
Z obsegom ("A3"). Odmik (x * 2, 0) .Resize (2, _
7) .meje (xllevo)
.Teža = xlThick
.ColorIndex = xlAvtomatsko
Končaj s
Z obsegom ("A3"). Odmik (x * 2, 0) .Resize (2, _
7) .meje (xl desno)
.Teža = xlThick
.ColorIndex = xlAvtomatsko
Končaj s
Obseg ("A3"). Odmik (x * 2, 0) .Resize (2, 7) .BorderAround _
Teža: = xlThick, ColorIndex: = xlAvtomatsko
Naslednji
Če obseg ("A13"). Value = "" Potem obseg ("A13"). Odmik (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = Napačno
ActiveSheet.Protect DrawingObjects: = True, Contents: = True, _
Scenariji: = Resnično
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = Res
Exit Sub
MyErrorTrap:
MsgBox "Morda niste pravilno vnesli meseca in leta." _
& Chr (13) & "Napiši mesec pravilno" _
& "(ali uporabite tričrkovno okrajšavo)" _
& Chr (13) & "in 4 številke za leto"
MyInput = InputBox ("V koledar vnesite mesec in leto")
Če je MyInput = "" Potem zapustite Sub
Resume
End Sub

Nato kliknite  gumb za zagon kode in pojavilo se bo pozivno polje, v prazno polje lahko vnesete mesec in leto. Oglejte si posnetek zaslona:

In nato kliknite OK. Na trenutnem delovnem listu je bil ustvarjen nov mesečni koledar. Oglejte si posnetek zaslona:

Koda VBA je za večino izmed nas težavna in s to kodo VBA lahko ustvarite le mesečni koledar, če želite hitro in enostavno ustvariti letni koledar, ali obstaja še kakšen preprost način za to?

Hitro ustvarite mesečni ali letni koledar s programom Kutools za Excel

Večni koledar orodje za kutools za Excel lahko hitro ustvari prilagojeni mesečni koledar ali letni koledar v novem delovnem zvezku in vsak mesečni koledar bo vsebovan v novem delovnem listu.

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Get it now

Če ste namestili Kutools za Excel, kliknite Podjetje > Orodja za delovne liste > Večni koledarIn Večni koledar prikaže se pogovorno okno. Če želite ustvariti trenutni mesečni koledar, v polje 1 vnesite XNUMX Število mesecev in kliknite ustvarjanje . Oglejte si posnetek zaslona:

Nato je bil v novem delovnem zvezku ustvarjen trenutni mesečni koledar.

Če želite ustvariti letni koledar 2012, vnesite številko 12 v polje Število mesecev in določil prvi mesec do Januar, 2012 v levem podoknu. Oglejte si posnetek zaslona:

Nato kliknite ustvarjanje gumb bo ustvaril koledar za leto 2012 v novem delovnem zvezku.

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...