Microsoft Excel ар кандай өзгөчөлүктөргө ээ жана алардын бири автоматтык түрдө отчетторду түзөт. Жумуш китебине башкалар үчүн маалыматтарды киргизүү процессин жөнөкөйлөтүү үчүн интерактивдүү жадыбалдарды түзө аласыз, ошол эле учурда отчетторду түзүүнү автоматташтыра аласыз. Бул эки функция тең Visual Basic жөнүндө жетиштүү билимди талап кылат. Эки тапшырманы аткаруу кадамдары төмөндө сүрөттөлгөн.
Кадам
Метод 2: Интерактивдүү жадыбал түзүү
Кадам 1. Электрондук жадыбалдын жайгашуусун аныктаңыз
Электрондук жадыбалдын жайгашуусу башкалар маалыматтарды киргизүү үчүн керектүү талааларды таба алгыдай болушу керек.
Электрондук жадыбалдын макети горизонталдык же вертикалдуу турушу мүмкүн. Көпчүлүк колдонуучулар вертикалдуу жайгашуу менен иштөөнү оңой табышат, айрыкча электрондук жадыбал басылып чыкса
Кадам 2. Электрондук жадыбал үчүн текст энбелгилерин түзүңүз
Ар бир мамычанын үстүнө этикетка жазыңыз жана графанын ар бир уячасынын сол жагына маалымат жазуу катары колдонууну пландаңыз.
Step 3. Press alt="Image" жана F11 баскычтарын чогуу басыңыз
Бул баскычтардын айкалышы Microsoft Visual Basic редакторун ачат.
Кадам 4. Сол жактагы "Project-VBA Project" панелиндеги "This Workbook" дегенди эки жолу чыкылдатыңыз
Редактордун башкы бөлүмүндө код жазуу үчүн терезе пайда болот.
Кадам 5. Киргизүү менюсунан "Процедураны" тандаңыз
Кошуу жол -жобосу диалог кутусу пайда болот.
Кадам 6. Процедуранын атын Аты талаасына киргизиңиз
Эгерде электрондук жадыбал саякат чыгымдарын билдирүү үчүн колдонула турган болсо, процедуранын мааниси бар "SumExpenses" дегенди киргизиңиз. Диалог кутучасын жабуу үчүн ОК басыңыз.
- Процедура аттары боштуктарды камтышы мүмкүн эмес, бирок боштукту алмаштыруу үчүн астын сызууну (_) колдонушу мүмкүн.
- Кошуу жол -жобосу диалог кутусу жабылгандан кийин, "Общественный подписка" деген жазуу пайда болот, андан кийин процедуранын аталышы көрсөтүлөт. Ал сызыктын астында боштук жана "Sub Sub" деген сөздөр бар.
Кадам 7. Электрондук жадыбалга ар бир киргизүү талаасы үчүн кодду киргизиңиз
Сиз ар бир жазуу үчүн эки сап код жазасыз.
- Коддун биринчи сабы "Range (" cellname ") түрүндө. Select", "cellname" киргизүү киргизилген уячаны билдирет. Тексттин эн оң жагында жайгашкан уячанын атын жазыңыз. Эгерде текст энбелгиси А2 уячасында болсо, анда киргизүү талаасы В2 уячасы (Диапазон ("В2"). Тандоо). Уячанын аталышына чейин жана андан кийин тырмакчалар ушул этапта жазылат, бирок мындан ары коддун толук билдирүүсүнө кирбейт.
- Экинчи саптагы код "ActiveCell. Value = InputBox (" InputPrompt ")". "InputPrompt" кирүүчү уячага кирүү үчүн колдонуучунун маалыматынын түрүн билдирүүчү текстти билдирет. Мисалы, эгер кирүүчү ячейка тамак -аш чыгымдары менен толтурулса, "InputPrompt" дегенди "Тамакка жалпы чыгымдарды, анын ичинде кеңештерди киргизиңиз" дегенге алмаштырыңыз. (Киргизүү көрсөтмөсүнүн тексти үчүн тырмакчалар дагы эле киргизилет, ал эми тырмакчага чейин жана буйруктан кийин жазуунун кажети жок.)
Кадам 8. Ар бир эсептөө талаасына кодду киргизиңиз
Кайрадан колдонулган эки сызык мурдагыдай эле, бирок бул жолу ActiveCell. Value сандык функциянын эсептөөсү, мисалы SUM, бул жерде InputBox функциясы киргизүү көрсөтмөлөрүн көрсөтүү үчүн колдонулат.
Кадам 9. Интерактивдүү таблицаңызды сактоо үчүн коддун сабын кошуңуз
Формат "ActiveWorkbook. SaveAs Filename: =" Filename.xls "." Filename " - бул интерактивдүү жадыбалдын аталышы. талап кылынбайт.)
Эгерде сиз Microsoft Excel 2007 же андан кийинки версиясын колдонуп жатсаңыз, ".xls" ордуна ".xlsx" колдонуңуз. Бирок, эгерде Excel 2003 версиясы жана андан төмөн болгон интерактивдүү жадыбал колдонуучулары бар болсо, алар окурман плагинсиз электрондук жадыбалды колдоно алышпайт
10 -кадам. Alt = "Image" жана Q баскычтарын бир убакта басыңыз
Visual Basic редактору жабылат.
Step 11. Press alt="Image" жана F8 баскычтарын бир убакта басыңыз
Макро диалог кутусу пайда болот.
Кадам 12. Макрос тизмесиндеги процедуранын атын чыкылдатыңыз
Эгерде түзүлгөн процедура тизмеде жалгыз болсо, ал автоматтык түрдө тандалат.
Step 13. Options баскычын басыңыз
Сизден Ctrl баскычы менен жарлык катары колдонуу үчүн клавиатура белгисин киргизүү суралат. "Кирүү" үчүн "e" сыяктуу жарлык катары колдонулбаган мааниси бар тамганы тандаңыз.
Step 14. Макро Жолдор диалогун жабуу үчүн "OK" дегенди басыңыз
Эми сиз колдонуучуларга интерактивдүү жадыбалдарды тарата аласыз. Аны ачкандан кийин, колдонуучу кыска жазууларды колдонуп, маалыматтарды толтуруу үчүн сиз түзгөн көрсөтмөлөрдү аткара алат.
Метод 2 2: Автоматташтырыңыз Отчет генерациялоо
Кадам 1. Жыйынтык Таблицада отчет түзүү
PivotTables маалыматтарды жалпылоо үчүн иштелип чыккан, андыктан сиз сандарды салыштырып, тренддерди аныктай аласыз. PivotTable маалымат иштетүүчүлөрдүн биринде же белгилүү бир маалымат базасынан импорттолгон маалыматтарга тиешелүү болушу керек.
Кадам 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 "токендери = 2-4 delims = /" %% a in in ('date /t') rreport = reportname _ %% c-%% a-%% b.pdf)] Эгерде чыгаруу файл форматы болсо PDF эмес, ".pdf" дегенди тиешелүү кеңейтүү менен алмаштырыңыз.
- Эгерде чыгаруу файлы/отчету бар болсо, аны муктаж адамга электрондук кат катары жөнөтүңүз. [Эгерде бар болсо / pdfloc \%rreport%(sendmail -f [email protected] -t [email protected] -u Scheduled Report -m Report %% report%тиркелет. -A / pdfloc \%rreport%-s yourserver: port -xu колдонуучунун аты -xp сырсөзү)]
- Эгерде чыгуу файлы/отчету көрсөтүлгөн жерде жок болсо, анда ал сизге жеткирүү ишке ашпай калгандыгы тууралуу билдирүү жөнөтө алгыдай жол -жобо түзүңүз. [Башка (sendmail -f [email protected] -t [email protected] -u Отчет иштебей калды -m файл % rreport % / pdfloc / -s yourserverде жок: port -xu колдонуучу аты -xp сырсөзү)]
Кадам 5. "Рабочий" папкасы компьютерде экенин текшериңиз
Сиз 32-бит жана 64-бит системалары үчүн Desktop папкасынын бар экендигин текшеришиңиз керек. Болбосо, Excel жана электрондук жадыбал кол менен ачылышы керек.
- 32-бит тутумунун жайгашкан жери: c: / windows / system32 / config / systemprofile
- 64-бит тутумунун жайгашкан жери: c: / windows / syswow64 / config / systemprofile
Кадам 6. Зарылчылыгына жараша скрипттерди иштетүү үчүн тапшырмаларды пландаңыз
Пакеттик скрипттер эч ким компьютерди колдонбосо да, ырааттуу жана үзгүлтүксүз аткарылышы керек. Артыкчылыктар мүмкүн болушунча эң жогорку деңгээлге коюлушу керек.
