Microsoft Excelil on erinevaid funktsioone ja üks neist loob aruandeid automaatselt. Saate luua interaktiivseid arvutustabeleid, et lihtsustada teiste andmete töövihikusse sisestamise protsessi, automatiseerides samal ajal ka aruannete genereerimist. Mõlemad funktsioonid nõuavad Visual Basicust piisavaid teadmisi. Mõlema ülesande täitmise samme kirjeldatakse allpool.
Samm
Meetod 1 /2: interaktiivse arvutustabeli loomine
Samm 1. Määrake arvutustabeli paigutus
Arvutustabeli paigutus tuleb teha nii, et teised leiaksid andmete sisestamiseks vajalikud väljad.
Arvutustabeli paigutusi saab paigutada horisontaalselt või vertikaalselt. Enamikul kasutajatel on vertikaalse paigutusega töötamine lihtsam, eriti kui arvutustabel prinditakse
Samm 2. Looge arvutustabeli jaoks tekstisildid
Kirjutage silt iga veeru ülaossa ja selle veeru igast lahtrist vasakule, mida kavatsete kasutada andmesisestusena.
Samm 3. Vajutage klahve alt="Pilt" ja F11
See klahvikombinatsioon avab Microsoft Visual Basic redaktori.
Samm 4. Topeltklõpsake vasakul ülaosas asuval paanil "Project-VBA Project" nuppu "See töövihik"
Redaktori põhiosasse ilmub aken koodi kirjutamiseks.
Samm 5. Valige menüüst "Lisa" menüüst "Protseduur"
Ilmub dialoogiboks Lisa protseduur.
Samm 6. Sisestage protseduuri nimi väljale Nimi
Sisestage protseduurile sisukas nimi, näiteks "SumExpenses", kui arvutustabelit kasutatakse reisikulude kajastamiseks. Dialoogiboksi sulgemiseks klõpsake nuppu OK.
- Protseduuride nimed ei tohi sisaldada tühikuid, kuid võivad tühikute asendamiseks kasutada alajoont (_).
- Pärast dialoogiboksi Lisa protseduur sulgemist ilmub rida sildiga "Avalik alam", millele järgneb protseduuri nimi. Selle rea all on tühik ja sõnad „Lõpu alam”.
Samm 7. Sisestage arvutustabeli iga sisestusvälja kood
Iga kirje jaoks kirjutate kaks rida koodi.
- Esimene koodirida on kujul "Vahemik (" lahtrinimi "). Valige", "lahtrinimi" tähistab lahtrit, kuhu sisend on sisestatud. Sisestage lahtri nimi, mis asub tekstisildist kohe paremal. Kui tekstisilt on lahtris A2, on sisendväli lahtr B2 (Vahemik ("B2"). Valige). Jutumärgid lahtri nime ees ja järel on selles etapis veel kirjutatud, kuid ei sisaldu enam täielikus koodiavalduses.
- Teisel real olev kood on "ActiveCell. Value = InputBox (" InputPrompt ")". "InputPrompt" tähistab teksti, mis kuvab kasutajale sisendrakku sisestatavate andmete tüübi. Näiteks kui sisendlahtrit täidetakse toidukuludega, asendage „InputPrompt” tekstiga „Sisestage söögikulu kogukulud, sealhulgas näpunäited”. (Sisestusjuhiste teksti jutumärgid on endiselt kaasas, samas kui jutumärke enne ja pärast käsku pole vaja kirjutada.)
Samm 8. Sisestage iga arvutusvälja kood
Jällegi on kaks kasutatavat rida samad, mis varem, kuid seekord on ActiveCell. Value arvulise funktsiooni, näiteks SUM, arvutus, kus sisendkäskude kuvamiseks kasutatakse funktsiooni InputBox.
Samm 9. Lisage interaktiivse arvutustabeli salvestamiseks koodirida
Vorming on "ActiveWorkbook. SaveAs Filename: =" Filename.xls "." Filename "on interaktiivse arvutustabeli nimi. (Jutumärgid enne ja pärast" Filename.xls "jäävad kirjutatuks, samas kui kõigi käskude jutumärgid on pole nõutud.)
Kui kasutate Microsoft Exceli versiooni 2007 või uuemat, kasutage ".xls" asemel ".xlsx". Kui aga on interaktiivseid arvutustabeli kasutajaid, kellel on Excel 2003 ja uuem versioon, ei saa nad arvutustabelit ilma lugeja pistikprogrammita kasutada
Samm 10. Vajutage samaaegselt klahve alt="Pilt" ja Q
Visual Basic redaktor suletakse.
Samm 11. Vajutage samaaegselt klahve alt="Pilt" ja F8
Ilmub dialoogiboks Makro.
Samm 12. Klõpsake loendis Makrod protseduuri nime
Kui loodud protseduur on loendis ainus, valitakse see automaatselt.
Samm 13. Klõpsake nuppu Valikud
Teil palutakse sisestada klaviatuurimärk, mida kasutada otseteena Ctrl -klahviga. Valige tähendusrikas täht, mida pole otseteedena kasutatud, näiteks „e“tähe „kirje“jaoks.
Samm 14. Makrosuvandite dialoogi sulgemiseks klõpsake "OK"
Nüüd saate interaktiivseid arvutustabeleid kasutajatele levitada. Pärast avamist saab kasutaja sisestuste tegemiseks kasutada kiirklahve ja järgida andmete täitmiseks loodud juhiseid.
Meetod 2/2: aruande genereerimise automatiseerimine
Samm 1. Looge PivotTable -liigendtabelis aruanne
PivotTable -liigendtabelid on mõeldud andmete kokkuvõtmiseks, et saaksite numbreid võrrelda ja suundumusi tuvastada. PivotTable -liigendtabel peab olema seotud andmetega, mis on ühes andmetöötlejas või imporditud konkreetsest andmebaasist.
Samm 2. Aruande avamiseks ja sulgemiseks kirjutage Visual Basicu skript
Skript peaks suutma täita allpool loetletud erinevaid funktsioone. Iga funktsiooni kirjeldatakse, millele järgneb sulgudes antud kood selle rakendamiseks. Tegeliku koodi kirjutamisel kirjutage see ühte plokki, asendades näites oleva nime enda omaga ja ärge lisage koodinäidise algusesse ja lõppu sulgusid.
- Avage arvutustabel kirjutuskaitstud režiimis. [DIM XLAppSet XLApp = CreateObject ("Excel. App") xlapp.visible = falsexlapp.workbooks.open / excelloc / filename.xls, 3,]
- Laadige andmed uuesti ja salvestage aruanne, selles näites salvestatakse see PDF -failina koos kuupäeva pealdisega. [Truexlapp.activeworkbook. RefreshAllxlapp.activeworkbook. ExportAsFixedFormat xlTypePDF, / pdfloc / reportname_ & DatePart ("yyyy, Now ()) &"-"& Right (" 0 "& DatePart (" m ", Now ()), 2) & "-" Right ("0" & DatePart ("d", Now ()), 2) & ".pdf"] Kui väljunddokumendi vorming on erinev, asendage ".pdf" vorming õige pikendus vastavalt soovile.
- Sulgege arvutustabel ilma seda salvestamata, seejärel sulgege Excel. [xlQualityStandardxlapp.activeworkbook.close Falsexlapp.quit]
- Kui arvutustabel on salvestatud Excel 2007 ja uuemas XML-põhises vormingus, kasutage arvutustabeli lõpus ".xlsx" asemel ".xlsx".
Samm 3. Visual Basicu skripti käivitamiseks kirjutage partitskript
Skripti kirjutamise eesmärk on see, et Visual Basicu skripte saaks automaatselt käivitada. Ilma partiiskriptita tuleb VB skripte käivitada käsitsi.
Skript on kirjutatud järgmises vormingus, asendades selles näites antud nime oma kausta ja failinimega: [cscript /nologo / fileloc / script.vbs]
Samm 4. Kirjutage partii skript, et tagada väljundfaili loomine
Teie skript peaks täitma järgmisi funktsioone. Igale funktsioonile järgneb selle rakendamiseks sulgudes antud kood. Tegeliku koodi kirjutamisel kirjutage see ühte plokki, asendades näites oleva nime vajaliku nimega ja ärge lisage näidiskoodi algusesse ja lõppu sulgusid.
- Kontrollige, kas on olemas väljundfail. [For /f "märgid = 2-4 delims = /" %% a in ('date /t') do set rreport = reportname _ %% c-%% a-%% b.pdf)] Kui väljundfaili vorming ei ole PDF, asendage ".pdf" sobiva laiendiga.
- Kui väljundfail/aruanne on olemas, saatke see e -kirjana isikule, kes seda vajab. [Kui on olemas / pdfloc \%rreport%(sendmail -f [email protected] -t [email protected] -u Ajastatud aruanne -m aruanne %% report%on lisatud. -A / pdfloc \%rreport%-s sinu server: port -xu kasutajanimi -xp parool)]
- Kui väljundfaili/aruannet pole määratud asukohas olemas, looge protseduur, et see saaks teile saata teate, et kohaletoimetamine ebaõnnestus. [Muidu (sendmail -f [email protected] -t [email protected] -u aruannet ei käivitatud -m fail % rreport % ei ole / pdfloc / -s teie serveris: port -xu kasutajanimi -xp parool)]
Samm 5. Veenduge, et kaust "Töölaud" oleks arvutis
Peate kontrollima töölaua kausta olemasolu nii 32- kui ka 64-bitiste süsteemide jaoks. Vastasel juhul tuleb Excel ja arvutustabel käsitsi avada.
- 32-bitine süsteemi asukoht: c: / windows / system32 / config / systemprofile
- 64-bitine süsteemi asukoht: c: / windows / syswow64 / config / systemprofile
Samm 6. Planeerige skriptide käitamise ülesanded vastavalt vajadusele
Partii skripte tuleb käivitada järjestikku ja pidevalt, isegi kui keegi arvutit ei kasuta. Privileegid tuleb seada võimalikult kõrgele.
