Microsoft Excel әр түрлі мүмкіндіктерге ие және олардың бірі есептерді автоматты түрде шығарады. Жұмыс кітабына басқалар үшін деректерді енгізу процесін жеңілдету үшін интерактивті электрондық кестелер құруға болады, сонымен қатар есептерді шығаруды автоматтандыруға болады. Бұл мүмкіндіктердің екеуі де Visual Basic туралы жеткілікті білімді қажет етеді. Екі тапсырманы орындау қадамдары төменде сипатталған.
Қадам
2 -ші әдіс: Интерактивті электрондық кесте құру
Қадам 1. Электрондық кестенің орналасуын анықтаңыз
Электрондық кестенің орналасуын басқалар деректерді енгізу үшін қажетті өрістерді таба алатындай етіп жасау керек.
Электрондық кестенің орналасуы көлденең немесе тігінен орналасуы мүмкін. Көптеген пайдаланушыларға вертикальды орналасумен жұмыс істеу оңайырақ, әсіресе егер электрондық кесте басып шығарылатын болса
Қадам 2. Электрондық кестеге мәтіндік белгілер жасаңыз
Әр бағанның жоғарғы жағына және деректерді енгізу ретінде пайдалануды жоспарлап отырған бағанның әр ұяшығының сол жағына белгі қойыңыз.
Қадам 3. Alt = «Image» және F11 пернелерін бірге басыңыз
Бұл пернелер тіркесімі Microsoft Visual Basic редакторын ашады.
Қадам 4. Жоғарғы сол жақтағы «Project-VBA Project» тақтасындағы «Бұл жұмыс кітабын» екі рет нұқыңыз
Редактордың негізгі бөлімінде кодты жазуға арналған терезе пайда болады.
Қадам 5. Кірістіру мәзірінен «Процедураны» таңдаңыз
Қосу процедурасы диалогтық терезесі пайда болады.
Қадам 6. Процедура атын Атау өрісіне енгізіңіз
Егер электрондық кесте іссапар шығындарын есепке алу үшін пайдаланылатын болса, рәсімнің «SumExpenses» сияқты мағыналы атауын енгізіңіз. Диалогтық терезені жабу үшін OK түймесін басыңыз.
- Процедура атаулары бос орындарды қамтымайды, бірақ бос орындарды ауыстыру үшін астын сызуды (_) қолдана алады.
- Процедураны қосу тілқатысу терезесі жабылғаннан кейін «Жалпыға ортақ» белгісі бар жол пайда болады, содан кейін процедураның атауы болады. Бұл жолдың астында бос орын және «End Sub» деген сөздер бар.
Қадам 7. Электрондық кестеге әр енгізу өрісінің кодын енгізіңіз
Сіз әр жазбаға екі код жолын жазасыз.
- Кодтың бірінші жолы «Ауқым (» ұяшық атауы «) түрінде болады. Таңдау», «ұяшық атауы» енгізу енгізілетін ұяшықты білдіреді. Мәтін жапсырмасының оң жағында орналасқан ұяшықтың атын енгізіңіз. Егер мәтіндік белгі А2 ұяшығында болса, енгізу өрісі - B2 ұяшығы (Ауқым («В2»). Таңдау). Ұяшық атауының алдындағы және соңындағы тырнақша осы сатыда жазылады, бірақ енді кодтың толық мәлімдемесіне кірмейді.
- Екінші жолдағы код - «ActiveCell. Value = InputBox (» InputPrompt «)». «InputPrompt» пайдаланушыға енгізу ұяшығына енгізілетін деректер түрі туралы хабарландыру беретін мәтінді білдіреді. Мысалы, егер кіріс ұяшығы азық -түлік шығындарымен толтырылатын болса, «InputPrompt» орнына «Тамаққа жалпы шығындарды, оның ішінде кеңестерді енгізіңіз» дегенді қойыңыз. (Кіріспе нұсқаулық мәтіні үшін тырнақша әлі де қосылады, ал тырнақшаға команданың алдында және кейін жазудың қажеті жоқ.)
Қадам 8. Әр есептеу өрісінің кодын енгізіңіз
Тағы да қолданылған екі жол бұрынғыдай, бірақ бұл жолы ActiveCell. Value - сандық функцияның есептеуі, мысалы SUM, мұнда InputBox функциясы енгізу нұсқауларын көрсету үшін қолданылады.
Қадам 9. Интерактивті электрондық кестені сақтау үшін код жолын қосыңыз
Пішім «ActiveWorkbook. SaveAs Filename: =» Filename.xls «.» Файл атауы « - бұл интерактивті электрондық кестенің атауы. қажет емес.)
Егер сіз Microsoft Excel 2007 немесе одан кейінгі нұсқасын қолдансаңыз, «.xls» орнына «.xlsx» пайдаланыңыз. Алайда, егер Excel 2003 нұсқасы бар және одан төмен интерактивті электрондық кесте пайдаланушылары болса, олар оқырман қосылмай-ақ электрондық кестені пайдалана алмайды
10 -қадам. Alt = «Image» және Q пернелерін қатар басыңыз
Visual Basic редакторы жабылады.
11 -қадам. Alt = «Image» және F8 пернелерін қатар басыңыз
Макро диалогтық терезесі пайда болады.
Қадам 12. Макростар тізіміндегі процедураның атын басыңыз
Егер жасалған рәсім тізімде жалғыз болса, ол автоматты түрде таңдалады.
Қадам 13. Параметрлер түймесін басыңыз
Сізден Ctrl пернесі арқылы тіркесім ретінде пайдалану үшін пернетақта таңбасын енгізу сұралады. Таңбалар ретінде пайдаланылмаған мағыналы әріпті таңдаңыз, мысалы, «енгізу» үшін «е».
Қадам 14. Макро опциялар тілқатысу терезесін жабу үшін «OK» түймесін басыңыз
Енді интерактивті электрондық кестелерді пайдаланушыларға таратуға болады. Оны ашқаннан кейін пайдаланушы енгізулер енгізу үшін жарлықтарды енгізе алады және деректерді толтыру үшін сіз жасаған нұсқауларды орындай алады.
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) & «-» Оң жақ («0» & DatePart («d», Now ()), 2) & «.pdf»] Егер шығыс құжатының пішімі басқа болса, «.pdf» пішімін келесіге ауыстырыңыз: қалауыңыз бойынша тиісті кеңейтім.
- Электрондық кестені сақтамай жабыңыз, содан кейін Excel бағдарламасын жабыңыз. [xlQualityStandardxlapp.activeworkbook.close Falsexlapp.quit]
- Электрондық кесте Excel 2007 және кейінірек XML негізіндегі форматта сақталған болса, электрондық кестенің соңында «.xls» орнына «.xlsx» пайдаланыңыз.
Қадам 3. Visual Basic сценарийін іске қосу үшін пакеттік сценарий жазыңыз
Сценарийді жазудың мақсаты - Visual Basic сценарийлері автоматты түрде іске қосылуы үшін. Топтық сценарийсіз VB сценарийлері қолмен іске қосылуы керек.
Сценарий келесі форматта жазылады, оның орнына өзіңіздің қалтаңыздың атымен және осы мысалда берілген атаудың файл атауымен ауыстырылады: [cscript /nologo / fileloc / script.vbs]
Қадам 4. Шығару файлының жасалғандай болуын қамтамасыз ету үшін пакеттік сценарий жазыңыз
Сіздің сценарий төмендегі функцияларды орындауы керек. Әр функциядан кейін оны іске асыру үшін жақша ішінде берілген код болады. Нақты кодты жазған кезде, оны бір блокқа жазыңыз, мысалдағы атауды қажетті атауға ауыстырыңыз және үлгі кодының басында және соңында жақшаларды қоспаңыз.
- Шығу файлы бар -жоғын тексеріңіз. [For /f «token = 2-4 delims = /» %% a in ('date /t') rreport = reportname _ %% c-%% a-%% b.pdf) орнатады] Егер шығыс файл пішімі PDF емес, «.pdf» файлын тиісті кеңейтумен ауыстырыңыз.
- Егер шығыс файлы/есеп бар болса, оны электрондық пошта ретінде қажет адамға жіберіңіз. [Егер бар болса / pdfloc \%rreport%(sendmail -f [email protected] -t [email protected] -u Жоспарланған есеп -m Есеп %% есеп%тіркелген. -A / pdfloc \%rreport%-s сіздің сервер: порт -xu пайдаланушы аты -xp құпия сөзі)]
- Егер шығыс файлы/есеп көрсетілген жерде жоқ болса, ол сізге жеткізілмеді деген хабарды жібере алатын процедураны жасаңыз. [Басқасы (sendmail -f [email protected] -t [email protected] -u Есеп орындалмады -m файл % rreport % / pdfloc / -s сіздің серверіңізде жоқ: port -xu пайдаланушы аты -xp құпия сөзі)]
Қадам 5. Компьютерде «Жұмыс үстелі» қалтасы бар екеніне көз жеткізіңіз
Сіз 32 биттік және 64 биттік жүйелер үшін жұмыс үстелі қалтасының болуын тексеруіңіз керек. Әйтпесе, Excel мен электрондық кестені қолмен ашу керек.
- 32 биттік жүйенің орналасуы: c: / windows / system32 / config / systemprofile
- 64 биттік жүйенің орналасуы: c: / windows / syswow64 / config / systemprofile
Қадам 6. Қажет болса, сценарийлерді іске қосу үшін тапсырмаларды жоспарлаңыз
Топтық сценарийлер, егер компьютерді ешкім пайдаланбаса да, дәйекті және үздіксіз орындалуы керек. Артықшылықтар мүмкіндігінше жоғары деңгейге қойылуы керек.
