Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ստեղծել օրացույց Excel- ում:

Excel- ում օրացույցը օգտակար օբյեկտ է: Excel- ում օրացույցի միջոցով դուք կարող եք օրացույցում շատ հաղորդագրություններ գրանցել: Ինչպիսիք են `նոր աշխատողի ընկերությանը միանալու ամսաթիվը, ապրանքների առաքման ամսաթիվը և այլն: Օրացույցի միջոցով այս հաղորդագրությունները տեսողական և պարզ տեսք կունենան: Ինչպե՞ս Excel- ում ամսական կամ տարեկան օրացույց ստեղծել:

Ստեղծեք տարեկան օրացույց ՝ ներբեռնելով Excel Օրացույցի ձևանմուշները

Ստեղծեք ամսական օրացույց VBA կոդով

Արագորեն ստեղծեք ամսական կամ տարեկան օրացույց Kutools for Excel


նետ կապույտ աջ պղպջակՍտեղծեք տարեկան օրացույց ՝ ներբեռնելով Excel Օրացույցի ձևանմուշները

Այս մեթոդով դուք պետք է վստահեցնեք, որ ձեր համակարգիչը միանում է ցանցին, որպեսզի կարողանաք ներբեռնել այն Օրացույցի ձևանմուշներ.

Գնալ ՖայլՀամար նոր ձախ կողմում և կտտացրեք Օրացույց - ից Office.com ձևանմուշներ, Տեսեք,

doc- ստեղծել-օրացույց 1

Դրանից հետո կարող եք ընտրել մեկ օրացույցի պանակ և կտտացնել դրա վրա, օրացույցի մի քանի ոճեր կլինեն, ընտրեք ձեզ դուր եկածը և կտտացրեք Բեռնել աջ պատուհանի կոճակ:

Օրացույցի ձևանմուշը ներբեռնելուց հետո դուք կստանաք օրացույցը նոր աշխատանքային գրքում:


նետ կապույտ աջ պղպջակ Ստեղծեք ամսական օրացույց VBA կոդով

Հետևյալ VBA կոդով դուք կարող եք արագ ստեղծել ամսական օրացույց: Խնդրում ենք անել հետևյալը.

Սեղմել Երեվակիչ > Visual Basic, նոր Microsoft Visual Basic հավելվածների համար պատուհանը կցուցադրվի, կտտացրեք Տեղադրել > Մոդուլներ, և մուտքագրեք հետևյալ կոդը ՝ Մոդուլներ:

VBA. Excel- ում ստեղծեք ամսական օրացույց

Sub CalendarMaker ()
ActiveSheet. Պաշտպանեք նկարչության օբյեկտները. = Կեղծ, պարունակությունը ՝ = կեղծ, _
Սցենարներ. = Սուտ
Դիմում. ScreenUpdating = Սուտ է
GoTo MyErrorTrap- ի սխալի վրա
Շարքը («a1: g14»): Պարզ է
MyInput = InputBox («Մուտքագրեք ամսվա և տարվա օրացույցի համար»)
Եթե ​​MyInput = "" ապա դուրս եկեք ենթ
StartDay = DateValue (MyInput)
Եթե ​​օր (StartDay) <> 1 Ապա
StartDay = DateValue (ամիս (StartDay) & "/ 1 /" & _
Տարի (StartDay))
Վերջ: Եթե
Շարքը («a1»): NumberFormat = «մմմմ այյյ»
Range- ի հետ («a1: g1»)
.HorizontalAlignment = xlCenterAcrossSelection
. Ուղղահայաց հավասարեցում = xl կենտրոն
. Տառատեսակ. Չափս = 18
.Տառատեսակ. Bold = իշտ է
.Շարքի բարձրությունը = 35
Վերջ
Range- ի հետ («a2: g2»)
.Սյունի լայնությունը = 11
. Ուղղահայաց հավասարեցում = xl կենտրոն
.HorizontalAlignment = xlCenter
. Ուղղահայաց հավասարեցում = xl կենտրոն
.Կողմնորոշում = xl Հորիզոնական
. Տառատեսակ. Չափս = 12
.Տառատեսակ. Bold = իշտ է
.Շարքի բարձրությունը = 20
Վերջ
Range ("a2") = "Կիրակի"
Range ("b2") = "Երկուշաբթի"
Range ("c2") = "Երեքշաբթի"
Range ("d2") = "Չորեքշաբթի"
Range ("e2") = "Հինգշաբթի"
Range ("f2") = "Ուրբաթ"
Range ("g2") = "Շաբաթ"
Range- ի հետ («a3: g8»)
.HorizontalAlignment = xlRight
. Ուղղահայաց հավասարեցում = xl Վերև
. Տառատեսակ. Չափս = 18
.Տառատեսակ. Bold = իշտ է
.Շարքի բարձրությունը = 21
Վերջ
Range ("a1"). Արժեք = Application.Text (MyInput, "mmmm yyyy")
DayofWeek = Շաբաթվա օր (StartDay)
CurYear = Տարի (StartDay)
CurMonth = ամիս (StartDay)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
Ընտրեք DayofWeek գործը
Case 1
Շարքը («a3»): Արժեք = 1
Case 2
Դաշտ («b3»): Արժեք = 1
Case 3
Դաշտ («c3»): Արժեք = 1
Case 4
Դաշտ («d3»): Արժեք = 1
Case 5
Դաշտ («e3»): Արժեք = 1
Case 6
Դաշտ («f3»): Արժեք = 1
Case 7
Դաշտ ("g3"): Արժեք = 1
Վերջ ընտրեք
Շարքում գտնվող յուրաքանչյուր բջիջի համար ("a3: g8")
RowCell = բջիջ: Տող
ColCell = բջիջ: Սյունակ
Եթե ​​բջիջ: Սյունակ = 1 Եվ բջիջ: Տող = 3 Ապա
ElseIf բջիջ: Սյունակ <> 1 Ապա
Եթե ​​բջիջ: Օֆսեթ (0, -1): Արժեք> = 1 Ապա
բջիջ: Արժեք = բջիջ: Օֆսեթ (0, -1): Արժեք + 1
Եթե ​​բջիջ: Արժեք> (FinalDay - StartDay) Ապա
cell.Value = ""
Ելք For
Վերջ: Եթե
Վերջ: Եթե
ElseIf բջիջ: Տող> 3 Եվ բջիջ: Սյունակ = 1 Ապա
բջիջ: Արժեք = բջիջ: Օֆսեթ (-1, 6): Արժեք + 1
Եթե ​​բջիջ: Արժեք> (FinalDay - StartDay) Ապա
cell.Value = ""
Ելք For
Վերջ: Եթե
Վերջ: Եթե
հաջորդ
X = 0- ի համար 5- ի համար
Շարքը («A4»): Օֆսեթ (x * 2, 0): EntireRow. Տեղադրել
Հեռավորությամբ («A4: G4»): Օֆսեթ (x * 2, 0)
.Շարքի բարձրությունը = 65
.HorizontalAlignment = xlCenter
. Ուղղահայաց հավասարեցում = xl Վերև
.WrapText = իշտ է
. Տառատեսակ. Չափս = 10
. Տառատեսակ. Թավ = կեղծ
.Փակված = Սուտ է
Վերջ
Տիրույթով («A3»): Օֆսեթ (x * 2, 0): Չափափոխել (2, _
7). Սահմաններ (xl ձախ)
.Կշիռ = xl Հաստ
.ColorIndex = xlAutomatic
Վերջ
Տիրույթով («A3»): Օֆսեթ (x * 2, 0): Չափափոխել (2, _
7). Սահմաններ (xl իրավունք)
.Կշիռ = xl Հաստ
.ColorIndex = xlAutomatic
Վերջ
Շարքը («A3»): Օֆսեթ (x * 2, 0): Չափափոխել (2, 7): Սահմանը `մոտ
Քաշ: = xl Հաստ, ColorIndex: = xl Ավտոմատ
հաջորդ
Եթե ​​միջակայք ("A13"): Արժեք = "" Ապա միջակայք ("A13"): Օֆսեթ (0, 0) _
.Փոփոխել (2, 8): Ամբողջ շարքը: eնջել
ActiveWindow.DisplayGridlines = Կեղծ է
ActiveSheet.Protect DrawingObjects: = ueիշտ է, պարունակությունը ՝ = ueիշտ է, _
Սցենարներ. = Trիշտ է
ActiveWindow.WindowState = xl Առավելագույնի հասցված
ActiveWindow.ScrollRow = 1
Դիմում. ScreenUpdating = ueիշտ է
Ելք ենթ
MyErrorTrap:
MsgBox «Հնարավոր է ՝ դուք ճիշտ չեք մուտքագրել ձեր ամիսն ու տարին»: _
& Chr (13) & "Ուղղակի հեգել ամիսը" _
& "(կամ օգտագործել 3 տառի հապավում)" _
& Chr (13) & "և 4 նիշ տարվա համար"
MyInput = InputBox («Մուտքագրեք ամսվա և տարվա օրացույցի համար»)
Եթե ​​MyInput = "" ապա դուրս եկեք ենթ
Ռեզյումե
Վերջ Sub

Այնուհետեւ կտտացրեք doc-calendar-2 Կոդը գործարկելու կոճակը, և կհայտնվի հուշման տուփ, դուք կարող եք ամիսը և տարին մուտքագրել դատարկ վանդակում: Տեսեք,

doc- ստեղծել-օրացույց 2

Եվ հետո կտտացրեք OK, Եվ ընթացիկ աշխատանքային թերթում ստեղծվել է նոր ամսական օրացույց: Տեսեք,

doc- ստեղծել-օրացույց 3

VBA կոդը դժվար է մեզանից շատերի համար, և այս VBA կոդով դուք կարող եք ստեղծել միայն ամսական օրացույց, եթե ցանկանում եք արագ և հեշտությամբ ստեղծել տարեկան օրացույց, կա՞ դա անելու այլ պարզ մեթոդ


նետ կապույտ աջ պղպջակ Արագորեն ստեղծեք ամսական կամ տարեկան օրացույց Kutools for Excel

Մշտական ​​օրացույց գործիք է kutools for Excel կարող է արագ ստեղծել նոր անհատականացված օրացույց կամ տարվա օրացույց նոր աշխատանքային գրքում, և յուրաքանչյուր ամսվա օրացույցը պարունակվում է նոր աշխատանքային թերթում:

Kutools for Excel. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Get it Now

Եթե ​​տեղադրեք Kutools for Excel, Խնդրում ենք սեղմել ձեռնարկություն > Աշխատաթերթի գործիքներ > Մշտական ​​օրացույցԵւ Մշտական ​​օրացույց կցուցադրվի երկխոսության տուփը: Եթե ​​ցանկանում եք ստեղծել ընթացիկ ամսական օրացույց, պարզապես մուտքագրեք 1-ը Ամիսների քանակը տուփը և կտտացնելը Ստեղծել կոճակ Տեսեք,

doc- ստեղծել-օրացույց 4

Եվ այնուհետև ընթացիկ ամսական օրացույցը գեներացվել է նոր աշխատանքային գրքում:

doc- ստեղծել-օրացույց 5

Եվ եթե ցանկանում եք ստեղծել 2012-ի տարեկան օրացույց, խնդրում ենք մուտքագրել 12-րդ համարը Ամիսների քանակը տուփը և նշված է առաջին ամսվա համար January, 2012 ձախ պատուհանում: Տեսեք,

doc- ստեղծել-օրացույց 6

Այնուհետեւ կտտացրեք Ստեղծել կոճակը, այն կստեղծի 2012 տարվա օրացույցը նոր աշխատանքային գրքում:

doc- ստեղծել-օրացույց 7

Գրասենյակի արտադրողականության լավագույն գործիքները

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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