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

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

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

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

Excel- ի համար Kutools- ի միջոցով արագ ստեղծեք ամսական կամ տարեկան օրացույց

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

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

---

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

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

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

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

Ստեղծեք ամսական օրացույց 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

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

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

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

Excel- ի համար Kutools- ի միջոցով արագ ստեղծեք ամսական կամ տարեկան օրացույց

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

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

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

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

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

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

---

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...