Microsoft Excel het verskillende funksies en een daarvan genereer outomaties verslae. U kan interaktiewe sigblaaie skep om die proses om data vir ander in die werkboek in te voer, te vereenvoudig, terwyl u ook die generering van die verslag outomatiseer. Beide hierdie funksies vereis voldoende kennis van Visual Basic. Die stappe om albei take uit te voer word hieronder beskryf.
Stap
Metode 1 van 2: Skep 'n interaktiewe sigblad
Stap 1. Bepaal die uitleg van die sigblad
Die uitleg van die sigblad moet gedoen word sodat ander die velde kan vind wat nodig is om data in te voer.
Sigbladuitlegte kan horisontaal of vertikaal uitgelê word. Die meeste gebruikers vind dit makliker om met 'n vertikale uitleg te werk, veral as die sigblad gedruk word
Stap 2. Skep teksetikette vir die sigblad
Skryf 'n etiket bo -aan elke kolom en links van elke sel in die kolom wat u van plan is om as 'n data -invoer te gebruik.
Stap 3. Druk alt="Beeld" en F11 sleutels saam
Hierdie sleutelkombinasie maak die Microsoft Visual Basic -redakteur oop.
Stap 4. Dubbelklik op "Hierdie werkboek" in die venster "Projek-VBA-projek" links bo
In die hoofgedeelte van die redakteur verskyn 'n venster vir die skryf van kode.
Stap 5. Kies "Prosedure" in die menu Voeg in
Die dialoogkassie Voeg prosedure by sal verskyn.
Stap 6. Voer die naam van die prosedure in die veld Naam in
Voer 'n betekenisvolle naam in vir die prosedure, soos "SumExpenses" as die sigblad gebruik sal word om reiskoste aan te meld. Klik OK om die dialoogkassie te sluit.
- Prosedure se name kan nie spasies bevat nie, maar kan 'n onderstreep (_) gebruik om spasies te vervang.
- Nadat die dialoogkassie Voeg prosedure bygevoeg is, verskyn 'n reël met die naam "Openbare sub", gevolg deur die naam van die prosedure. Onder die reël is 'n spasie en die woorde "End Sub."
Stap 7. Voer die kode vir elke invoerveld in die sigblad in
U skryf twee reëls kode vir elke inskrywing.
- Die eerste reël kode is in die vorm van "Bereik (" selnaam "). Kies", "selnaam" verteenwoordig die sel waar die invoer ingevoer word. Vul die naam van die sel in wat regs van die teksetiket is. As die teksetiket in sel A2 is, is die invoerveld sel B2 (reeks ("B2"). Kies). Die aanhalingstekens voor en na die selnaam word in hierdie stadium nog geskryf, maar word nie meer by die volledige kodeverklaring ingesluit nie.
- Die kode in die tweede reël is "ActiveCell. Value = InputBox (" InputPrompt ")". "InputPrompt" verteenwoordig die teks wat verskyn om die gebruiker in kennis te stel van die tipe data wat hy in die invoersel moet invoer. Byvoorbeeld, as die insetsel gevul is met voedseluitgawes, vervang "InputPrompt" deur "Voer totale uitgawes vir etes in, insluitend wenke." (Die aanhalingstekens vir die invoeropdragteks is nog steeds ingesluit, terwyl die aanhalingstekens voor en na die opdrag nie geskryf hoef te word nie.)
Stap 8. Voer die kode vir elke berekeningsveld in
Die twee lyne wat gebruik is, is weer dieselfde as voorheen, maar hierdie keer is ActiveCell. Value 'n berekening van 'n numeriese funksie, byvoorbeeld SUM, waar die funksie InputBox -funksie gebruik word om invoerinstruksies te vertoon.
Stap 9. Voeg 'n reël kode by om u interaktiewe sigblad te stoor
Die formaat is "ActiveWorkbook. SaveAs Filename: =" Filename.xls "." Filename "is die naam van die interaktiewe sigblad. (Die aanhalingstekens voor en na" Filename.xls "bly geskryf, terwyl die aanhalingstekens vir alle opdragte nie benodig nie.)
As u Microsoft Excel weergawe 2007 of later gebruik, gebruik '.xlsx' in plaas van '.xls'. As daar egter interaktiewe sigbladgebruikers met Excel 2003-weergawe en hieronder is, sal hulle die sigblad nie kan gebruik sonder 'n leser-inprop nie
Stap 10. Druk alt="Beeld" en Q sleutels gelyktydig
Die Visual Basic -redakteur sal sluit.
Stap 11. Druk alt="Beeld" en F8 sleutels gelyktydig
Die dialoogkassie Makro verskyn.
Stap 12. Klik op die prosesnaam in die makroslys
As die geskepte prosedure die enigste in die lys is, word dit outomaties gekies.
Stap 13. Klik op die knoppie Opsies
U sal gevra word om 'n sleutelbordkarakter in te voer om met die Ctrl -sleutel as kortpad te gebruik. Kies 'n betekenisvolle letter wat nie as 'n kortpadkarakter gebruik is nie, soos 'e' vir 'inskrywing'.
Stap 14. Klik op "OK" om die dialoog Macro -opsies te sluit
Nou kan u interaktiewe sigblaaie aan gebruikers versprei. Nadat hy dit oopgemaak het, kan die gebruiker die kortpaatsleutels gebruik om inskrywings te maak en die instruksies te volg wat u geskep het om die data in te vul.
Metode 2 van 2: Outomatiseer verslaggenerering
Stap 1. Skep 'n verslag in 'n draaitabel
Draaitabelle is ontwerp om data op te som, sodat u getalle kan vergelyk en tendense kan identifiseer. Die draaitabel moet verband hou met data wat in een van die dataverwerkers is of uit 'n spesifieke databasis ingevoer word.
Stap 2. Skryf 'n Visual Basic -skrif om die verslag oop te maak en toe te maak
Die skrif moet die verskillende funksies hieronder kan uitvoer. Elke funksie word beskryf, gevolg deur die kode tussen hakies om dit te implementeer. As u werklike kode skryf, skryf dit in 'n enkele blok, vervang die naam in die voorbeeld met u eie, en moenie hakies aan die begin en einde van die kodevoorbeeld insluit nie.
- Maak die sigblad oop in die leesalleen -modus. [DIM XLAppSet XLApp = CreateObject ("Excel. App") xlapp.visible = falsexlapp.workbooks.open / excelloc / filename.xls, 3,]
- Herlaai die data en stoor die verslag; in hierdie voorbeeld word dit as 'n PDF met die datumopskrif gestoor. [Truexlapp.activeworkbook. RefreshAllxlapp.activeworkbook. ExportAsFixedFormat xlTypePDF, / pdfloc / reportname_ & DatePart ("yyyy, Now ()) &"-"& Right (" 0 "& DatePart (" m ", Now ()), 2) & "-" Regs ("0" & DatePart ("d", Now ()), 2) & ".pdf"] As die uitvoer dokumentformaat anders is, vervang die ".pdf" formaat met die regte verlenging na wens.
- Sluit die sigblad sonder om dit te stoor, en sluit dan Excel. [xlQualityStandardxlapp.activeworkbook.close Falsexlapp.quit]
- Gebruik ".xlsx" in plaas van ".xls" aan die einde van die sigblad as die sigblad in Excel 2007 gestoor is en 'n latere XML-gebaseerde formaat.
Stap 3. Skryf 'n batch script om die Visual Basic script te begin
Die doel van die skryf van die draaiboek is dat Visual Basic -skrifte outomaties kan werk. Sonder batch -script moet VB -scripts met die hand uitgevoer word.
Die draaiboek is in die volgende formaat geskryf en word vervang deur u eie lêernaam en lêernaam vir die naam in hierdie voorbeeld: [cscript /nologo / fileloc / script.vbs]
Stap 4. Skryf 'n bondelskripsie om te verseker dat die uitvoerlêer bestaan soos dit geskep is
U script moet die onderstaande funksies uitvoer. Elke funksie word gevolg deur die kode tussen hakies om dit te implementeer. As u werklike kode skryf, skryf dit in 'n enkele blok, vervang die naam in die voorbeeld met die naam wat u benodig, en moenie hakies aan die begin en einde van die voorbeeldkode insluit nie.
- Kyk of daar 'n uitvoerlêer is. [Vir /f "tokens = 2-4 delims = /" %% a in ('date /t') stel rreport = reportname _ %% c-%% a-%% b.pdf)] As die uitvoer lêer formaat is nie PDF nie, vervang ".pdf" met die toepaslike uitbreiding.
- As die uitvoer lêer/verslag bestaan, stuur dit as 'n e -pos aan die persoon wat dit nodig het. [As daar bestaan / pdfloc \%rreport%(sendmail -f [email protected] -t [email protected] -u Geplande verslag -m Verslag %% verslag%is aangeheg. -A / pdfloc \%rreport%-s u bediener: poort -xu gebruikersnaam -xp wagwoord)]
- As die uitvoerlêer/verslag nie op die gespesifiseerde plek bestaan nie, moet u 'n prosedure opstel sodat dit u 'n boodskap kan stuur dat die aflewering misluk het. [Anders (sendmail -f [email protected] -t [email protected] -u Verslag het nie uitgevoer nie -m lêer % rreport % bestaan nie in / pdfloc / -s u bediener: poort -xu gebruikersnaam -xp wagwoord)]
Stap 5. Maak seker dat die "Desktop" -map op die rekenaar is
U moet die bestaan van die Desktop-lêergids vir beide 32-bis en 64-bit stelsels verifieer. Andersins moet Excel en die sigblad handmatig oopgemaak word.
- 32-bis stelsel ligging: c: / windows / system32 / config / systemprofile
- 64-bis stelsel ligging: c: / windows / syswow64 / config / systemprofile
Stap 6. Beplan take om skrifte uit te voer soos nodig
Batch -skrifte moet opeenvolgend en deurlopend uitgevoer word, selfs al gebruik niemand die rekenaar nie. Voorregte moet op die hoogste moontlike instelling gestel word.
