Microsoft Excel– ს აქვს სხვადასხვა მახასიათებლები და ერთ – ერთი მათგანი ავტომატურად ქმნის ანგარიშებს. თქვენ შეგიძლიათ შექმნათ ინტერაქტიული ცხრილები, რათა გაამარტივოთ სხვებისთვის მონაცემების შეყვანის პროცესი სამუშაო წიგნში, ამასთანავე მოახდინოთ ანგარიშის გენერირების ავტომატიზაცია. ორივე ეს მახასიათებელი მოითხოვს Visual Basic– ის საკმარის ცოდნას. ორივე დავალების შესრულების ნაბიჯები აღწერილია ქვემოთ.
ნაბიჯი
2 მეთოდი 1: ინტერაქტიული ცხრილების შექმნა
ნაბიჯი 1. ცხრილების განლაგების განსაზღვრა
ცხრილის განლაგება უნდა გაკეთდეს ისე, რომ სხვებმა შეძლონ მონაცემების შესასვლელად საჭირო ველების პოვნა.
ცხრილების განლაგება შეიძლება ჩამოყალიბდეს ჰორიზონტალურად ან ვერტიკალურად. მომხმარებელთა უმეტესობას უადვილდება ვერტიკალური განლაგებით მუშაობა, განსაკუთრებით იმ შემთხვევაში, თუ ცხრილები დაიბეჭდება
ნაბიჯი 2. შექმენით ტექსტური ეტიკეტები ცხრილებისთვის
ჩაწერეთ ეტიკეტი თითოეული სვეტის ზედა ნაწილში, ხოლო თითოეული უჯრედის მარცხნივ სვეტში, რომლის გამოყენებასაც აპირებთ მონაცემთა შესასვლელად.
ნაბიჯი 3. დააჭირეთ alt="Image" და F11 კლავიშებს ერთად
ეს კომბინაცია გახსნის Microsoft Visual Basic რედაქტორს.
ნაბიჯი 4. ორჯერ დააწკაპუნეთ "ამ სამუშაო წიგნზე" "Project-VBA Project" პანელში ზედა მარცხენა კუთხეში
კოდის ჩაწერის ფანჯარა გამოჩნდება რედაქტორის მთავარ განყოფილებაში.
ნაბიჯი 5. აირჩიეთ "პროცედურა" ჩასმა მენიუში
გამოჩნდება დიალოგური ფანჯარა Add Procedure.
ნაბიჯი 6. შეიყვანეთ პროცედურის სახელი სახელის ველში
შეიყვანეთ პროცედურის მნიშვნელოვანი სახელი, როგორიცაა "SumExpenses", თუ ცხრილები გამოყენებული იქნება მგზავრობის ხარჯების შესატყობინებლად. დააწკაპუნეთ OK დახურეთ დიალოგური ფანჯარა.
- პროცედურის სახელები არ შეიძლება შეიცავდეს სივრცეებს, მაგრამ შეუძლიათ გამოიყენონ ხაზგასმა (_) სივრცის შესაცვლელად.
- დიალოგური ფანჯრის დამატების პროცედურის დახურვის შემდეგ გამოჩნდება ხაზი წარწერით "Public Sub" რასაც მოჰყვება პროცედურის სახელი. ამ ხაზის ქვემოთ არის სივრცე და სიტყვები "End Sub".
ნაბიჯი 7. შეიყვანეთ ცხრილში თითოეული შეყვანის ველის კოდი
თითოეული ჩანაწერისთვის თქვენ დაწერთ კოდის ორ ხაზს.
- კოდის პირველი ხაზი არის "დიაპაზონი (" უჯრედის სახელი "). აირჩიეთ", "უჯრედის სახელი" წარმოადგენს უჯრედს, სადაც შეყვანაა შეყვანილი. შეავსეთ უჯრედის სახელი, რომელიც მდებარეობს ტექსტის ეტიკეტის მარჯვნივ. თუ ტექსტის ეტიკეტი არის A2 უჯრედში, შეყვანის ველი არის უჯრედი B2 (დიაპაზონი ("B2"). აირჩიეთ). ბრჭყალები უჯრედის სახელის წინ და მის შემდეგ კვლავ იწერება ამ ეტაპზე, მაგრამ აღარ შედის კოდის სრულ განაცხადში.
- მეორე ხაზის კოდია "ActiveCell. Value = InputBox (" InputPrompt ")". "InputPrompt" წარმოადგენს ტექსტს, რომელიც გამოჩნდება, რომ აცნობოს მომხმარებელს მონაცემების ტიპზე შეყვანის უჯრედში შესასვლელად. მაგალითად, თუ შესასვლელი უჯრედი ივსება კვების ხარჯებით, შეცვალეთ "InputPrompt" - ით "შეიყვანეთ კვებაზე მთლიანი ხარჯები, რჩევების ჩათვლით". (შეყვანის ინსტრუქციის ტექსტის ბრჭყალები ჯერ კიდევ შემორჩენილია, ხოლო ბრჭყალები ბრძანების წინ და მის შემდეგ არ არის საჭირო.)
ნაბიჯი 8. შეიყვანეთ კოდი თითოეული გაანგარიშების ველისთვის
ისევ გამოყენებული ორი ხაზი იგივეა, რაც ადრე, მაგრამ ამჯერად ActiveCell. Value არის რიცხვითი ფუნქციის გაანგარიშება, მაგალითად SUM, სადაც ფუნქცია InputBox ფუნქცია გამოიყენება შეყვანის ინსტრუქციის გამოსახატავად.
ნაბიჯი 9. დაამატეთ კოდის ხაზი თქვენი ინტერაქტიული ცხრილის შესანახად
ფორმატი არის "ActiveWorkbook. SaveAs ფაილის სახელი: =" Filename.xls "." Filename "არის ინტერაქტიული ცხრილის სახელი. (ბრჭყალები" Filename.xls " - ის წინ და მის შემდეგ რჩება დაწერილი, ხოლო ყველა ბრძანების ბრჭყალები არ არის საჭირო.)
თუ თქვენ იყენებთ Microsoft Excel 2007 ან უფრო ახალ ვერსიას, გამოიყენეთ ".xlsx" ნაცვლად ".xls". თუმცა, თუკი არსებობს Excel– ის 2003 წლის და უფრო დაბალი ვერსიის ინტერაქტიული ცხრილების მომხმარებელი, ისინი ვერ შეძლებენ ცხრილების გამოყენებას მკითხველის დანამატის გარეშე
ნაბიჯი 10. ერთდროულად დააჭირეთ alt="Image" და Q ღილაკებს
Visual Basic– ის რედაქტორი დაიხურება.
ნაბიჯი 11. ერთდროულად დააჭირეთ alt="Image" და F8 ღილაკებს
გამოჩნდება მაკრო დიალოგური ფანჯარა.
ნაბიჯი 12. დააწკაპუნეთ პროცედურის სახელზე მაკროსის სიაში
თუ სიაში შექმნილი პროცედურა ერთადერთია, ის ავტომატურად შეირჩევა.
ნაბიჯი 13. დააწკაპუნეთ პარამეტრების ღილაკზე
თქვენ მოგეთხოვებათ შეიყვანოთ კლავიატურის სიმბოლო, რომ გამოიყენოთ როგორც მალსახმობი Ctrl ღილაკით. შეარჩიეთ მნიშვნელოვანი ასო, რომელიც არ არის გამოყენებული როგორც მალსახმობი სიმბოლო, როგორიცაა "e" "შესვლისთვის".
ნაბიჯი 14. დააწკაპუნეთ "OK" - ზე მაკრო პარამეტრების დიალოგის დახურვისთვის
ახლა თქვენ შეგიძლიათ გაუზიაროთ ინტერაქტიული ცხრილები მომხმარებლებს. მისი გახსნის შემდეგ მომხმარებელს შეუძლია გამოიყენოს მალსახმობი კლავიშები ჩანაწერების გასაკეთებლად და მიჰყვეს მითითებებს, რომელიც თქვენ შექმენით მონაცემების შესავსებად.
მეთოდი 2 დან 2: ანგარიშის გენერირების ავტომატიზაცია
ნაბიჯი 1. შექმენით ანგარიში PivotTable- ში
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]
- გამოიყენეთ ".xlsx" ნაცვლად ".xls" ცხრილის ბოლოს, თუ ცხრილი შენახულია Excel 2007 და მოგვიანებით XML დაფუძნებულ ფორმატში.
ნაბიჯი 3. დაწერეთ სურათების სკრიპტი, რათა დაიწყოთ Visual Basic სკრიპტი
სკრიპტის წერის მიზანია ისე, რომ Visual Basic სკრიპტები ავტომატურად მუშაობდეს. სურათების სკრიპტის გარეშე, VB სკრიპტები უნდა მუშაობდეს ხელით.
სკრიპტი იწერება შემდეგი ფორმატით, იცვლება თქვენი საქაღალდის სახელით და ფაილის სახელი ამ მაგალითში მოცემული სახელისთვის: [cscript /nologo / fileloc / script.vbs]
ნაბიჯი 4. დაწერეთ სურათების სკრიპტი, რათა დარწმუნდეთ, რომ გამომავალი ფაილი არსებობს როგორც შექმნილი
თქვენს სკრიპტს უნდა შეასრულოს ქვემოთ მოყვანილი ფუნქციები. თითოეულ ფუნქციას მოჰყვება ფრჩხილებში მოცემული კოდი მის განსახორციელებლად. ფაქტობრივი კოდის წერისას ჩაწერეთ იგი ერთ ბლოკში, შეცვალეთ სახელი მაგალითში თქვენთვის საჭირო სახელით და არ შეიყვანოთ ფრჩხილები ნიმუშის კოდის დასაწყისში და ბოლოს.
- შეამოწმეთ არის თუ არა გამომავალი ფაილი. [For /f "ჟეტონები = 2-4 delims = /" %% a in ('date /t') do set romport = reportname _ %% c-%% a-%% b.pdf)] თუ გამომავალი ფაილის ფორმატი არ არის PDF, შეცვალეთ ".pdf" შესაბამისი გაფართოებით.
- თუ გამომავალი ფაილი/ანგარიში არსებობს, გაუგზავნეთ ის ელ.წერილს იმ პირს, ვისაც ეს სჭირდება. [თუ არსებობს / pdfloc \%rreport%(sendmail -f [email protected] -t [email protected] -u დაგეგმილი ანგარიში -m ანგარიში %% ანგარიში%ერთვის. -A / pdfloc \%rreport%-s Yourerver: პორტი -xu მომხმარებლის სახელი -xp პაროლი)]
- თუ გამომავალი ფაილი/ანგარიში არ არსებობს მითითებულ ადგილას, შექმენით პროცედურა ისე, რომ მან გამოგიგზავნოთ შეტყობინება, რომ მიწოდება ვერ მოხერხდა. [სხვა (sendmail -f [email protected] -t [email protected] -u ანგარიში არ გაშვებულა -m ფაილი % rreport % არ არსებობს / pdfloc / -s Yourerver: პორტი -xu მომხმარებლის სახელი -xp პაროლი)]
ნაბიჯი 5. დარწმუნდით, რომ "Desktop" საქაღალდე კომპიუტერზეა
თქვენ უნდა შეამოწმოთ დესკტოპის საქაღალდის არსებობა როგორც 32 ბიტიანი, ასევე 64 ბიტიანი სისტემისთვის. წინააღმდეგ შემთხვევაში, Excel და ცხრილი უნდა გაიხსნას ხელით.
- 32 ბიტიანი სისტემის ადგილმდებარეობა: c: / windows / system32 / config / systemprofile
- 64 ბიტიანი სისტემის ადგილმდებარეობა: c: / windows / syswow64 / config / systemprofile
ნაბიჯი 6. დაგეგმეთ დავალებები სკრიპტების გასაშვებად საჭიროებისამებრ
სურათების სკრიპტები უნდა შესრულდეს თანმიმდევრულად და განუწყვეტლივ, მაშინაც კი, თუ არავინ იყენებს კომპიუტერს. პრივილეგიები უნდა დადგინდეს რაც შეიძლება მაღალ დონეზე.
