Microsoft Excel- ն ունի տարբեր հնարավորություններ, և դրանցից մեկն ինքնաբերաբար զեկույցներ է ստեղծում: Դուք կարող եք ինտերակտիվ աղյուսակներ ստեղծել ՝ պարզեցնելու համար աշխատանքային գրքում ուրիշների համար տվյալների մուտքագրման գործընթացը ՝ միաժամանակ ավտոմատացնելով հաշվետվությունների ստեղծումը: Այս երկու հատկանիշներն էլ պահանջում են Visual Basic- ի բավարար իմացություն: Երկու առաջադրանքների կատարման քայլերը նկարագրված են ստորև:
Քայլ
Մեթոդ 1 2 -ից. Ստեղծելով ինտերակտիվ աղյուսակ
Քայլ 1. Որոշեք աղյուսակի դասավորությունը:
Աղյուսակի դասավորությունը պետք է կատարվի այնպես, որ մյուսները կարողանան գտնել տվյալների մուտքագրման համար անհրաժեշտ դաշտերը:
Աղյուսակի դասավորությունը կարող է դրվել հորիզոնական կամ ուղղահայաց: Շատ օգտվողներ ավելի հեշտ են համարում աշխատել ուղղահայաց դասավորությամբ, հատկապես, եթե աղյուսակը տպվի:
Քայլ 2. Աղյուսակի համար ստեղծեք տեքստային պիտակներ:
Յուրաքանչյուր սյունակի վերևում գրեք պիտակ, իսկ սյունակի յուրաքանչյուր բջիջի ձախ կողմում, որը նախատեսում եք օգտագործել որպես տվյալների մուտքագրում:
Քայլ 3. Սեղմեք alt="Image" և F11 ստեղները միասին:
Այս ստեղնային համադրությունը կբացի Microsoft Visual Basic խմբագիրը:
Քայլ 4. Կրկնակի սեղմեք «Այս աշխատանքային տետրը» ձախ մասում գտնվող «Project-VBA Project» վահանակում:
Խմբագրի հիմնական բաժնում կհայտնվի ծածկագիր գրելու պատուհան:
Քայլ 5. Տեղադրեք ընտրացանկից ընտրեք «Ընթացակարգ»:
Կհայտնվի Add Procedure երկխոսության տուփը:
Քայլ 6. Մուտքագրեք ընթացակարգի անվանումը Անուն դաշտում:
Մուտքագրեք ընթացակարգի իմաստալից անուն, օրինակ ՝ «SumExpenses», եթե աղյուսակը կօգտագործվի ճանապարհածախսը զեկուցելու համար: Կտտացրեք OK ՝ երկխոսության տուփը փակելու համար:
- Ընթացակարգերի անունները չեն կարող պարունակել բացատներ, բայց կարող են օգտագործել ընդգծման նշան (_) `բացատները փոխարինելու համար:
- Ավելացնել ընթացակարգ երկխոսության տուփը փակելուց հետո կհայտնվի մի տող `« Public Sub »պիտակով, որին հաջորդում է ընթացակարգի անվանումը: Այդ տողի տակ կա բացատ և «End Sub» բառերը:
Քայլ 7. Աղյուսակում մուտքագրեք յուրաքանչյուր մուտքագրման դաշտի ծածկագիրը:
Յուրաքանչյուր մուտքի համար դուք կգրեք երկու տող կոդ:
- Կոդի առաջին տողը «Range (" cellname ") տեսքով է: Select", "cellname" ներկայացնում է այն բջիջը, որտեղ մուտքագրվում է մուտքագրումը: Լրացրեք բջիջի անունը, որը գտնվում է տեքստային պիտակի անմիջապես աջ կողմում: Եթե տեքստի պիտակը A2 բջիջում է, մուտքագրման դաշտը B2 բջիջն է (ընդգրկույթ («B2»): Ընտրեք): Բջիջի անունից առաջ և հետո չակերտները դեռ գրված են այս փուլում, բայց այլևս ներառված չեն ամբողջական ծածկագրի հայտարարության մեջ:
- Երկրորդ տողի կոդը «ActiveCell. Value = InputBox (" InputPrompt ")" է: «InputPrompt» - ը ներկայացնում է այն տեքստը, որը կհայտնվի օգտագործողին տեղեկացնելու մուտքի բջիջ մուտքագրված տվյալների տեսակի մասին: Օրինակ, եթե մուտքային բջիջը կլցվի սննդի ծախսերով, «InputPrompt» - ը փոխարինեք «Մուտքագրեք սննդի ընդհանուր ծախսերը, ներառյալ խորհուրդները» բառով: (Ներածական հրահանգի տեքստի չակերտները դեռ ներառված են, մինչդեռ հրամանից առաջ և հետո չակերտները պետք չէ գրել):
Քայլ 8. Մուտքագրեք յուրաքանչյուր հաշվարկային դաշտի ծածկագիրը:
Կրկին օգտագործված երկու տողերը նույնն են, ինչ նախկինում, բայց այս անգամ ActiveCell. Value- ը թվային ֆունկցիայի հաշվարկ է, օրինակ ՝ SUM, որտեղ InputBox գործառույթը օգտագործվում է մուտքային հրահանգները ցուցադրելու համար:
Քայլ 9. Ավելացրեք կոդի տող `ձեր ինտերակտիվ աղյուսակը պահելու համար:
Ձևաչափը «ActiveWorkbook. SaveAs Filename: =" Filename.xls ":" Filename " - ը ինտերակտիվ աղյուսակի անունն է: (" Filename.xls " - ից առաջ և հետո չակերտները մնում են գրված, մինչդեռ բոլոր հրամանների չակերտները պարտադիր չէ)
Եթե օգտագործում եք Microsoft Excel 2007 կամ ավելի նոր տարբերակ, ապա «.xls» - ի փոխարեն օգտագործեք «.xlsx»: Այնուամենայնիվ, եթե կան Excel 2003 և ավելի ցածր տարբերակով ինտերակտիվ աղյուսակների օգտվողներ, նրանք չեն կարողանա օգտագործել աղյուսակը ՝ առանց ընթերցողի հավելվածի:
Քայլ 10. Միաժամանակ սեղմեք alt="Image" և Q ստեղները:
Visual Basic- ի խմբագիրը կփակվի:
Քայլ 11. Միաժամանակ սեղմեք alt="Image" և F8 ստեղները:
Մակրո երկխոսության տուփը կհայտնվի:
Քայլ 12. Կտտացրեք ընթացակարգի անվանումը մակրոների ցանկում:
Եթե ստեղծված ընթացակարգը ցուցակում միակն է, այն ինքնաբերաբար կընտրվի:
Քայլ 13. Կտտացրեք Ընտրանքներ կոճակին:
Ձեզանից կպահանջվի մուտքագրել ստեղնաշարի նիշ `Ctrl ստեղնով որպես դյուրանցում օգտագործելու համար: Ընտրեք իմաստալից տառ, որը չի օգտագործվել որպես դյուրանցման նիշ, օրինակ ՝ «մուտքագրման» համար «է»:
Քայլ 14. Կտտացրեք «Լավ» ՝ Մակրո ընտրանքների երկխոսությունը փակելու համար:
Այժմ դուք կարող եք ինտերակտիվ աղյուսակներ բաժանել օգտվողներին: Այն բացելուց հետո օգտվողը կարող է օգտագործել դյուրանցման ստեղները գրառումներ կատարելու համար և հետևել ձեր լրացրած տվյալները ՝ տվյալները լրացնելու համար:
Մեթոդ 2 2 -ից. Ավտոմատ հաշվետվությունների ստեղծում
Քայլ 1. Ստեղծեք հաշվետվություն առանցքային աղյուսակում:
Առանցքային աղյուսակները նախատեսված են տվյալների ամփոփման համար, որպեսզի կարողանաք համեմատել թվերը և բացահայտել միտումները: Առանցքային աղյուսակը պետք է վերաբերվի այն տվյալների, որոնք գտնվում են տվյալների մշակողներից մեկում կամ ներմուծված են հատուկ տվյալների բազայից:
Քայլ 2. Գրեք Visual Basic սցենար `զեկույցը բացելու և փակելու համար:
Սցենարը պետք է կարողանա կատարել ստորև թվարկված տարբեր գործառույթներ: Յուրաքանչյուր գործառույթ նկարագրվելու է, որին հաջորդելու է փակագծերում տրված ծածկագիրը `այն իրականացնելու համար: Փաստացի ծածկագիր գրելիս գրեք այն մեկ բլոկում ՝ օրինակի անունը փոխարինելով ձեր սեփականով և մի ներառեք փակագծերը ծածկագրի նմուշի սկզբում և վերջում:
- Բացեք աղյուսակը միայն կարդալու ռեժիմում: [DIM XLAppSet XLApp = CreateObject ("Excel. App") xlapp.visible = falsexlapp.workbooks.open / excelloc / filename.xls, 3,]
- Վերաբեռնեք տվյալները և պահեք զեկույցը, այս օրինակում այն պահվում է որպես PDF ամսաթվով մակագրությամբ: [Truexlapp.activeworkbook. RefreshAllxlapp.activeworkbook. ExportAsFixedFormat xlTypePDF, / pdfloc / reportname_ & DatePart ("yyyy, Now ()) &"-"& Right (" 0 "& DatePart (" m ", Now ()), 2) & "-" Right ("0" & DatePart ("d", Now ()), 2) & ".pdf"] Եթե ելքային փաստաթղթի ձևաչափը տարբեր է, փոխարինեք ".pdf" ձևաչափով ցանկալի համապատասխան ընդլայնում:
- Փակեք աղյուսակը ՝ առանց այն պահելու, այնուհետև փակեք Excel- ը: [xlQualityStandardxlapp.activeworkbook.close Falsexlapp.quit]
- Աղյուսակի վերջում օգտագործեք «.xlsx»-ի փոխարեն «.xls», եթե աղյուսակը պահվում է Excel 2007 և ավելի ուշ XML ձևաչափով:
Քայլ 3. Գրեք խմբաքանակի սցենար `Visual Basic սցենարը սկսելու համար:
Սցենարը գրելու նպատակն այն է, որ Visual Basic սցենարները կարողանան ինքնաբերաբար գործել: Առանց խմբաքանակի սցենարի, VB սցենարները պետք է գործարկվեն ձեռքով:
Սցենարը գրված է հետևյալ ձևաչափով ՝ փոխարինելով ձեր սեփական թղթապանակի անունով և ֆայլի անունով այս օրինակում տրված անվան համար ՝ [cscript /nologo / fileloc / script.vbs]
Քայլ 4. Գրեք խմբաքանակի սցենար `ապահովելու համար, որ ելքային ֆայլը գոյություն ունի ստեղծվածի պես:
Ձեր սցենարը պետք է կատարի ստորև նշված գործառույթները: Յուրաքանչյուր գործառույթին կհաջորդի փակագծերում տրված ծածկագիրը `այն իրականացնելու համար: Փաստացի ծածկագիր գրելիս գրեք այն մեկ բլոկում ՝ օրինակի մեջ անունը փոխարինելով ձեզ անհրաժեշտ անունով, և չընդգրկեք փակագծեր ընտրանքի կոդի սկզբում և վերջում:
- Ստուգեք, արդյոք կա ելքային ֆայլ: [For /f "tokens = 2-4 delims = /" %% a in ('date /t') do set rreport = reportname _ %% c-%% a-%% b.pdf)] Եթե ելքային ֆայլի ձևաչափը PDF չէ, փոխարինեք «.pdf» - ը համապատասխան ընդլայնմամբ:
- Եթե ելքային ֆայլը/հաշվետվությունը գոյություն ունի, ուղարկեք այն որպես նամակ այն անձին, ում դա անհրաժեշտ է: [Եթե գոյություն ունի / pdfloc \%rreport%(sendmail -f [email protected] -t [email protected] -u heրագրված հաշվետվություն -m հաշվետվություն %% հաշվետվությունը կցված է: -a / pdfloc \%rreport%-s Yourerver: port -xu օգտվողի անուն -xp գաղտնաբառ)]
- Եթե ելքային ֆայլը/հաշվետվությունը գոյություն չունի նշված վայրում, ստեղծեք ընթացակարգ, որպեսզի այն ձեզ ուղարկի հաղորդագրություն առաքման ձախողման մասին: [Այլ (sendmail -f [email protected] -t [email protected] -u Հաշվետվությունը չի գործարկվել -m ֆայլը % rreport % գոյություն չունի / pdfloc / -s- ում ՝ ձեր նավահանգստում. Port -xu օգտվողի անուն -xp գաղտնաբառ)]
Քայլ 5. Համոզվեք, որ «Սեղան» թղթապանակը համակարգչում է:
Դուք պետք է հաստատեք Desktop թղթապանակի առկայությունը ինչպես 32-բիթ, այնպես էլ 64-բիթ համակարգերի համար: Հակառակ դեպքում, Excel- ը և աղյուսակը պետք է ձեռքով բացվեն:
- 32-բիթանոց համակարգի գտնվելու վայրը ՝ c: / windows / system32 / config / systemprofile
- 64-բիթանոց համակարգի գտնվելու վայրը ՝ c: / windows / syswow64 / config / systemprofile
Քայլ 6. Պլանավորեք առաջադրանքներ ՝ ըստ անհրաժեշտության սցենարներ գործարկելու համար:
Խմբաքանակի սցենարները պետք է կատարվեն հաջորդաբար և շարունակաբար, նույնիսկ եթե ոչ ոք չի օգտագործում համակարգիչը: Արտոնությունները պետք է սահմանվեն հնարավորինս բարձր սահմաններում:
