Microsoft Excel нь янз бүрийн онцлог шинж чанартай бөгөөд тэдгээрийн нэг нь автоматаар тайлан гаргадаг. Та ажлын номонд бусдын өгөгдлийг оруулах үйл явцыг хялбаршуулахын тулд интерактив хүснэгт үүсгэж, тайлан гаргах ажлыг автоматжуулах боломжтой. Эдгээр хоёр функц нь Visual Basic -ийн талаар хангалттай мэдлэг шаарддаг. Хоёр даалгаврыг гүйцэтгэх алхамуудыг доор тайлбарласан болно.
Алхам
2 -р арга 1: Интерактив хүснэгт үүсгэх
Алхам 1. Хүснэгтийн зохион байгуулалтыг тодорхойл
Бусад хүмүүс өгөгдөл оруулах шаардлагатай талбарыг олохын тулд хүснэгтийн зохион байгуулалтыг хийх ёстой.
Хүснэгтийн байршлыг хэвтээ ба босоо байдлаар байрлуулж болно. Ихэнх хэрэглэгчид босоо байрлалтай ажиллахад илүү хялбар байдаг, ялангуяа хүснэгтийг хэвлэх тохиолдолд
Алхам 2. Хүснэгтийн текст шошго үүсгэх
Багана бүрийн дээд талд, өгөгдөл оруулахаар ашиглахаар төлөвлөж буй баганын нүд бүрийн зүүн талд шошго бич.
Алхам 3. alt="Image" ба F11 товчлууруудыг дарна уу
Энэ товчлуурын хослол нь Microsoft Visual Basic засварлагчийг нээх болно.
Алхам 4. Зүүн дээд буланд байгаа "Project-VBA Project" хэсэгт "This Workbook" дээр давхар товшино уу
Редакторын үндсэн хэсэгт код бичих цонх гарч ирнэ.
Алхам 5. Insert цэснээс "Процедур" -ыг сонгоно уу
Нэмэх журам харилцах цонх гарч ирнэ.
Алхам 6. Нэр талбарт процедурын нэрийг оруулна уу
Хэрэв хүснэгтийг аяллын зардлаа тайлагнахад ашиглах бол "SumExpenses" гэх мэт процедурын утга бүхий нэрийг оруулна уу. OK дарж харилцах цонхыг хаа.
- Процедурын нэр нь хоосон зай агуулж болохгүй, харин хоосон зайг орлуулахын тулд доогуур зураас (_) ашиглаж болно.
- Нэмэх процедурыг харилцах цонх хаагдсаны дараа "Нийтийн дэд" гэсэн мөр гарч ирэх бөгөөд дараа нь процедурын нэр гарч ирнэ. Энэ шугамын доор хоосон зай, "Дэд дэд хэсэг" гэсэн үгс байна.
Алхам 7. Хүснэгтэнд оруулах талбар бүрийн кодыг оруулна уу
Та оруулга бүрт хоёр мөр код бичих болно.
- Кодын эхний мөр нь "Range (" нүдний нэр ") хэлбэртэй байна." Сонгох "," cellname "нь оролт орсон нүдийг илэрхийлнэ. Текст шошгоны баруун талд байгаа нүдний нэрийг бөглөнө үү. Хэрэв текстийн шошго А2 нүдэнд байгаа бол оруулах талбар нь B2 нүд (Range ("B2"). Сонгоно уу). Энэ үе шатанд нүдний нэрний өмнөх ба дараах ишлэлүүд бичигдсэн хэвээр байгаа боловч кодын бүрэн тайлбарт ороогүй болно.
- Хоёрдахь мөрийн код нь "ActiveCell. Value = InputBox (" InputPrompt ")" юм. "InputPrompt" нь оролтын нүдэнд оруулах өгөгдлийн төрлийг хэрэглэгчдэд мэдэгдэх текстийг илэрхийлнэ. Жишээлбэл, хэрэв оролтын нүдийг хоолны зардлаар дүүргэх юм бол "InputPrompt" -ийг "Хоолны нийт зардлыг оруулаад зөвлөмжийг оруулна уу" гэж орлуулна уу. (Оруулах зааварчилгааны текстийн ишлэлийг оруулсан хэвээр байх бөгөөд командын өмнө болон дараа нь ишлэл бичих шаардлагагүй болно.)
Алхам 8. Тооцоолох талбар бүрийн кодыг оруулна уу
Дахин ашигласан хоёр мөр нь өмнөхтэй ижил боловч энэ удаад ActiveCell. Value нь тоон функцын тооцоолол юм, жишээлбэл SUM, энд InputBox функцийг оролтын зааврыг харуулахад ашигладаг.
Алхам 9. Интерактив хүснэгтийг хадгалахын тулд кодын мөрийг нэмнэ үү
Формат нь "ActiveWorkbook. SaveAs Файлын нэр: =" Файлын нэр.xls "." Файлын нэр "нь интерактив хүснэгтийн нэр юм. шаардлагагүй.)
Хэрэв та Microsoft Excel 2007 буюу түүнээс хойшхи хувилбарыг ашиглаж байгаа бол ".xls" оронд ".xlsx" ашиглана уу. Гэсэн хэдий ч Excel 2003 болон түүнээс доош хувилбартай интерактив хүснэгт хэрэглэгчид байвал уншигчийн залгуургүйгээр хүснэгтийг ашиглах боломжгүй болно
Алхам 10. alt="Image" болон Q товчлууруудыг нэгэн зэрэг дарна уу
Visual Basic засварлагч хаагдах болно.
Алхам 11. alt="Image" ба F8 товчлууруудыг нэгэн зэрэг дарна уу
Макро харилцах цонх гарч ирнэ.
Алхам 12. Макро жагсаалтын процедурын нэрийг дарна уу
Хэрэв үүсгэсэн процедур нь жагсаалтад байгаа цорын ганц зүйл бол түүнийг автоматаар сонгох болно.
Алхам 13. Options товчийг дарна уу
Ctrl товчлуурыг ашиглан товчлол болгон ашиглахын тулд гарын тэмдэгт оруулах шаардлагатай болно. "Оруулах" гэсэн "e" гэх мэт товчлолын тэмдэгт болгон ашиглаагүй утга бүхий үсгийг сонгоно уу.
Алхам 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.calose 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 хүлээн авагч@recipientdomain.com -u Хуваарьт тайлан -m Тайлан %% тайлан%хавсаргасан байна. -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 битийн системийн хувьд ширээний фолдер байгаа эсэхийг шалгах ёстой. Үгүй бол Excel болон хүснэгтийг гараар нээх ёстой.
- 32 битийн системийн байршил: c: / windows / system32 / config / systemprofile
- 64 битийн системийн байршил: c: / windows / syswow64 / config / systemprofile
Алхам 6. Шаардлагатай бол скриптүүдийг ажиллуулах хуваарь гарга
Компьютерийг хэн ч ашиглаагүй байсан ч гэсэн багц скриптүүдийг дараалсан, тасралтгүй гүйцэтгэх ёстой. Онцгой эрхийг хамгийн дээд хэмжээнд тохируулах ёстой.
