„Microsoft Excel“turi įvairių funkcijų ir viena iš jų automatiškai generuoja ataskaitas. Galite sukurti interaktyvias skaičiuokles, kad supaprastintumėte kitų duomenų įvedimo į darbaknygę procesą, taip pat automatizuotumėte ataskaitų generavimą. Abi šios funkcijos reikalauja pakankamai žinių apie „Visual Basic“. Toliau aprašyti abiejų užduočių atlikimo veiksmai.
Žingsnis
1 metodas iš 2: interaktyvios skaičiuoklės kūrimas
Žingsnis 1. Nustatykite skaičiuoklės išdėstymą
Skaičiuoklės išdėstymas turi būti atliktas taip, kad kiti galėtų rasti laukus, reikalingus duomenims įvesti.
Skaičiuoklės maketai gali būti išdėstyti horizontaliai arba vertikaliai. Daugumai vartotojų lengviau dirbti su vertikaliu išdėstymu, ypač jei skaičiuoklė bus atspausdinta
Žingsnis 2. Sukurkite skaičiuoklės teksto etiketes
Parašykite etiketę kiekvieno stulpelio viršuje ir į kairę nuo kiekvieno stulpelio, kurį planuojate naudoti kaip duomenų įvedimą, langelio.
Žingsnis 3. Paspauskite klavišus alt="Vaizdas" ir F11
Šis klavišų derinys atidarys „Microsoft Visual Basic“redaktorių.
Žingsnis 4. Dukart spustelėkite „Ši darbaknygė“viršutiniame kairiajame skydelyje „Project-VBA Project“
Pagrindiniame redaktoriaus skyriuje pasirodys langas kodo rašymui.
Žingsnis 5. Įterpimo meniu pasirinkite „Procedūra“
Pasirodys dialogo langas Pridėti procedūrą.
Žingsnis 6. Lauke Pavadinimas įveskite procedūros pavadinimą
Įveskite prasmingą procedūros pavadinimą, pvz., „SumExpenses“, jei skaičiuoklė bus naudojama kelionės išlaidoms pranešti. Spustelėkite Gerai, kad uždarytumėte dialogo langą.
- Procedūrų pavadinimuose negali būti tarpų, tačiau tarpams pakeisti gali būti naudojamas pabraukimas (_).
- Kai dialogo langas Pridėti procedūrą bus uždarytas, pasirodys eilutė, pavadinta „Viešasis papildinys“, po kurios bus nurodytas procedūros pavadinimas. Po šia eilute yra tarpas ir žodžiai „Pabaiga“.
Žingsnis 7. Įveskite kiekvieno skaičiuoklės įvesties lauko kodą
Kiekvienam įrašui parašysite dvi kodo eilutes.
- Pirmoji kodo eilutė yra „Diapazonas („ ląstelės pavadinimas “). Pasirinkite“, „ląstelės pavadinimas“reiškia langelį, kuriame įvestas įvestis. Įveskite langelio pavadinimą, esantį iškart teksto etiketės dešinėje. Jei teksto etiketė yra langelyje A2, įvesties laukas yra langelis B2 (diapazonas („B2“). Pasirinkite). Kabutės prieš ir po langelio pavadinimo vis dar rašomos šiame etape, tačiau nebėra įtrauktos į visą kodo teiginį.
- Antroje eilutėje esantis kodas yra „ActiveCell. Value = InputBox („ InputPrompt “)“. „InputPrompt“reiškia tekstą, kuris bus rodomas vartotojui pranešant, kokio tipo duomenis reikia įvesti į įvesties langelį. Pavyzdžiui, jei įvesties langelis bus užpildytas maisto išlaidomis, pakeiskite „InputPrompt“į „Įveskite visas maitinimo išlaidas, įskaitant arbatpinigius“. (Įvesties instrukcijos teksto kabutės vis dar įtrauktos, o kabučių prieš ir po komandos rašyti nereikia.)
Žingsnis 8. Įveskite kiekvieno skaičiavimo lauko kodą
Vėlgi, naudojamos dvi eilutės yra tokios pačios kaip ir anksčiau, tačiau šį kartą „ActiveCell. Value“yra skaitinės funkcijos, pvz., SUM, apskaičiavimas, kur funkcija „InputBox“naudojama įvesties instrukcijoms rodyti.
Žingsnis 9. Pridėkite kodo eilutę, kad išsaugotumėte interaktyvią skaičiuoklę
Formatas yra „ActiveWorkbook. SaveAs Failo pavadinimas: =" Failo pavadinimas.xls "." Failo vardas "yra interaktyvios skaičiuoklės pavadinimas. (Kabutės prieš ir po" Failo vardas.xls "lieka parašytos, o visų komandų kabutės yra nebūtina.)
Jei naudojate „Microsoft Excel 2007“ar naujesnę versiją, vietoj „.xls“naudokite „.xlsx“. Tačiau, jei yra interaktyvių skaičiuoklių naudotojų, turinčių „Excel 2003“ir naujesnę versiją, jie negalės naudoti skaičiuoklės be skaitytuvo papildinio
Žingsnis 10. Vienu metu paspauskite klavišus alt="Image" ir Q
„Visual Basic“redaktorius bus uždarytas.
Žingsnis 11. Vienu metu paspauskite klavišus alt="Vaizdas" ir F8
Pasirodys dialogo langas Makro.
Žingsnis 12. Makrokomandų sąraše spustelėkite procedūros pavadinimą
Jei sukurta procedūra yra vienintelė sąraše, ji bus pasirinkta automatiškai.
Žingsnis 13. Spustelėkite mygtuką Parinktys
Jūsų bus paprašyta įvesti klaviatūros simbolį, kuris bus naudojamas kaip spartusis klavišas su „Ctrl“klavišu. Pasirinkite reikšmingą raidę, kuri nebuvo naudojama kaip spartusis simbolis, pvz., „E“- „įrašas“.
Žingsnis 14. Spustelėkite „Gerai“, kad uždarytumėte dialogo langą „Makro parinktys“
Dabar vartotojams galite platinti interaktyvias skaičiuokles. Atidaręs jį, vartotojas gali naudoti sparčiuosius klavišus įrašams atlikti ir vykdyti nurodymus, kuriuos sukūrėte, kad užpildytumėte duomenis.
2 metodas iš 2: automatizuokite ataskaitų generavimą
Žingsnis 1. Sukurkite ataskaitą „PivotTable“
„PivotTable“skirta apibendrinti duomenis, kad galėtumėte palyginti skaičius ir nustatyti tendencijas. „PivotTable“turi būti susijusi su duomenimis, esančiais viename iš duomenų tvarkytojų arba importuotais iš konkrečios duomenų bazės.
Žingsnis 2. Parašykite „Visual Basic“scenarijų, kad atidarytumėte ir uždarytumėte ataskaitą
Scenarijus turėtų sugebėti atlikti įvairias toliau išvardytas funkcijas. Kiekviena funkcija bus aprašyta, o po to skliausteliuose nurodytas kodas, kaip ją įgyvendinti. Rašydami tikrąjį kodą, parašykite jį viename bloke, pavyzdyje esantį pavadinimą pakeisdami savuoju, o kodo pavyzdžio pradžioje ir pabaigoje neįtraukite skliaustų.
- Atidarykite skaičiuoklę tik skaitymo režimu. [DIM XLAppSet XLApp = CreateObject ("Excel. App") xlapp.visible = falsexlapp.workbooks.open / excelloc / filename.xls, 3,]
- Iš naujo įkelkite duomenis ir išsaugokite ataskaitą, šiame pavyzdyje ji išsaugoma kaip PDF su datos antrašte. [Truexlapp.activeworkbook. RefreshAllxlapp.activeworkbook. ExportAsFixedFormat xlTypePDF, / pdfloc / reportname_ & DatePart ("yyyy, Now ()) &"-"& Right (" 0 "& DatePart (" m ", Now ()), 2) & "-" Teisingai ("0" & DatePart ("d", Dabar ()), 2) & ".pdf"] Jei išvesties dokumento formatas skiriasi, pakeiskite ".pdf" formatą tinkamas pratęsimas pagal pageidavimą.
- Uždarykite skaičiuoklę jos neišsaugoję, tada uždarykite „Excel“. [xlQualityStandardxlapp.activeworkbook.close Falsexlapp.quit]
- Skaičiuoklės pabaigoje naudokite „.xlsx“, o ne „.xls“, jei skaičiuoklė išsaugota „Excel 2007“ir vėlesniu XML formatu.
Žingsnis 3. Parašykite paketinį scenarijų, kad paleistumėte „Visual Basic“scenarijų
Rašant scenarijų siekiama, kad „Visual Basic“scenarijai būtų paleisti automatiškai. Be paketinio scenarijaus, VB scenarijus reikia paleisti rankiniu būdu.
Scenarijus parašytas tokiu formatu, pakeičiant savo aplanko pavadinimą ir failo pavadinimą, nurodytą šiame pavyzdyje: [cscript /nologo / fileloc / script.vbs]
Žingsnis 4. Parašykite paketinį scenarijų, kad įsitikintumėte, jog išvesties failas egzistuoja kaip sukurtas
Jūsų scenarijus turėtų atlikti toliau nurodytas funkcijas. Po kiekvienos funkcijos bus nurodytas skliausteliuose nurodytas kodas, kaip ją įgyvendinti. Rašydami tikrąjį kodą, parašykite jį viename bloke, pavyzdyje esantį pavadinimą pakeisdami reikiamu pavadinimu, o kodo pavyzdžio pradžioje ir pabaigoje neįtraukite skliaustų.
- Patikrinkite, ar yra išvesties failas. [For /f "tokens = 2-4 delims = /" %% a in ('date /t') do set rreport = reportname _ %% c-%% a-%% b.pdf)] Jei išvesties failo formatas nėra PDF, pakeiskite „.pdf“atitinkamu plėtiniu.
- Jei išvesties failas/ataskaita egzistuoja, nusiųskite ją kaip el. Laišką asmeniui, kuriam to reikia. [Jei yra / pdfloc \%rreport%(sendmail -f [email protected] -t [email protected] -u Suplanuota ataskaita -m ataskaita %% report%pridedama. -A / pdfloc \%rreport%-s tavo serveris: prievadas -xu naudotojo vardas -xp slaptažodis)]
- Jei išvesties failas/ataskaita neegzistuoja nurodytoje vietoje, sukurkite procedūrą, kad ji galėtų atsiųsti jums pranešimą, kad pristatymas nepavyko. [Kiti (sendmail -f [email protected] -t [email protected] -u Ataskaita nepavyko paleisti -m failas % rreport % neegzistuoja / pdfloc / -s tavo serveryje: prievadas -xu vartotojo vardas -xp slaptažodis)]
Žingsnis 5. Įsitikinkite, kad kompiuteryje yra aplankas „Darbalaukis“
Turite patikrinti, ar yra darbalaukio aplankas, skirtas tiek 32, tiek 64 bitų sistemoms. Priešingu atveju „Excel“ir skaičiuoklę reikia atidaryti rankiniu būdu.
- 32 bitų sistemos vieta: c: / windows / system32 / config / systemprofile
- 64 bitų sistemos vieta: c: / windows / syswow64 / config / systemprofile
Žingsnis 6. Suplanuokite užduotis vykdyti scenarijus, jei reikia
Paketiniai scenarijai turi būti vykdomi nuosekliai ir nuolat, net jei niekas nesinaudoja kompiuteriu. Privilegijos turi būti nustatytos kuo aukščiau.
