Ինչպե՞ս ստեղծել օրացույց Excel- ում:
Excel- ում օրացույցը օգտակար օբյեկտ է: Excel- ում օրացույցի միջոցով դուք կարող եք օրացույցում շատ հաղորդագրություններ գրանցել: Ինչպիսիք են `նոր աշխատողի ընկերությանը միանալու ամսաթիվը, ապրանքների առաքման ամսաթիվը և այլն: Օրացույցի միջոցով այս հաղորդագրությունները տեսողական և պարզ տեսք կունենան: Ինչպե՞ս Excel- ում ամսական կամ տարեկան օրացույց ստեղծել:
Ստեղծեք տարեկան օրացույց ՝ ներբեռնելով Excel Օրացույցի ձևանմուշները
Ստեղծեք ամսական օրացույց VBA կոդով
Արագորեն ստեղծեք ամսական կամ տարեկան օրացույց Kutools for Excel
Ստեղծեք տարեկան օրացույց ՝ ներբեռնելով Excel Օրացույցի ձևանմուշները
Այս մեթոդով դուք պետք է վստահեցնեք, որ ձեր համակարգիչը միանում է ցանցին, որպեսզի կարողանաք ներբեռնել այն Օրացույցի ձևանմուշներ.
Գնալ ՖայլՀամար նոր ձախ կողմում և կտտացրեք Օրացույց - ից 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 կոդով դուք կարող եք ստեղծել միայն ամսական օրացույց, եթե ցանկանում եք արագ և հեշտությամբ ստեղծել տարեկան օրացույց, կա՞ դա անելու այլ պարզ մեթոդ
Արագորեն ստեղծեք ամսական կամ տարեկան օրացույց Kutools for Excel
Մշտական օրացույց գործիք է kutools for Excel կարող է արագ ստեղծել նոր անհատականացված օրացույց կամ տարվա օրացույց նոր աշխատանքային գրքում, և յուրաքանչյուր ամսվա օրացույցը պարունակվում է նոր աշխատանքային թերթում:
Kutools for Excel. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Get it Now
Եթե տեղադրեք Kutools for Excel, Խնդրում ենք սեղմել ձեռնարկություն > Աշխատաթերթի գործիքներ > Մշտական օրացույցԵւ Մշտական օրացույց կցուցադրվի երկխոսության տուփը: Եթե ցանկանում եք ստեղծել ընթացիկ ամսական օրացույց, պարզապես մուտքագրեք 1-ը Ամիսների քանակը տուփը և կտտացնելը Ստեղծել կոճակ Տեսեք,
Եվ այնուհետև ընթացիկ ամսական օրացույցը գեներացվել է նոր աշխատանքային գրքում:
Եվ եթե ցանկանում եք ստեղծել 2012-ի տարեկան օրացույց, խնդրում ենք մուտքագրել 12-րդ համարը Ամիսների քանակը տուփը և նշված է առաջին ամսվա համար January, 2012 ձախ պատուհանում: Տեսեք,
Այնուհետեւ կտտացրեք Ստեղծել կոճակը, այն կստեղծի 2012 տարվա օրացույցը նոր աշխատանքային գրքում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
