Microsoft Excel müxtəlif xüsusiyyətlərə malikdir və onlardan biri avtomatik olaraq hesabat yaradır. İş kitabına başqaları üçün məlumatların daxil edilməsi prosesini asanlaşdırmaq üçün interaktiv cədvəllər yarada bilərsiniz, eyni zamanda hesabat yaradılmasını avtomatlaşdıra bilərsiniz. Bu xüsusiyyətlərin hər ikisi Visual Basic haqqında kifayət qədər bilik tələb edir. Hər iki vəzifəni yerinə yetirmək üçün addımlar aşağıda təsvir edilmişdir.
Addım
Metod 1 /2: İnteraktiv bir elektron tablo yaratmaq
Addım 1. Elektron cədvəlin tərtibatını təyin edin
Başqalarının məlumat daxil etmək üçün lazım olan sahələri tapa bilməsi üçün elektron cədvəlin düzeni edilməlidir.
Elektron cədvəl planları üfüqi və ya şaquli olaraq yerləşdirilə bilər. İstifadəçilərin çoxu, xüsusən də elektron tablo çap ediləcəyi təqdirdə, şaquli bir düzənlə işləməyi asanlaşdırır
Addım 2. Cədvəl üçün mətn etiketləri yaradın
Hər bir sütunun üstünə və məlumat girişi olaraq istifadə etməyi planlaşdırdığınız sütunun hər bir hüceyrəsinin soluna bir etiket yazın.
Addım 3. Alt = "Image" və F11 düymələrini birlikdə basın
Bu düymələr birləşməsi Microsoft Visual Basic redaktorunu açacaq.
Addım 4. Sol üstdəki "Project-VBA Project" bölməsində "Bu İş Kitabı" nı iki dəfə vurun
Redaktorun əsas hissəsində kod yazmaq üçün bir pəncərə görünəcək.
Addım 5. Əlavə et menyusundan "Prosedur" u seçin
Əlavə Proseduru informasiya qutusu görünəcək.
Addım 6. Ad sahəsinə prosedurun adını daxil edin
Elektron cədvəl səyahət xərclərini bildirmək üçün istifadə ediləcəyi təqdirdə "SumExpenses" kimi prosedur üçün mənalı bir ad daxil edin. Dialoq qutusunu bağlamaq üçün OK düyməsini basın.
- Prosedur adlarında boşluq ola bilməz, lakin boşluqları əvəz etmək üçün alt xətt (_) istifadə edə bilərsiniz.
- Əlavə Prosedur informasiya qutusu bağlandıqdan sonra prosedurun adını izləyən "İctimai Alt" etiketli bir xətt görünəcək. Bu sətrin altında bir boşluq və "Sub Sub" sözləri var.
Addım 7. Cədvəldə hər bir giriş sahəsinin kodunu daxil edin
Hər giriş üçün iki satır kod yazacaqsınız.
- Kodun ilk sətri "Aralıq (" hüceyrə adı ") şəklindədir. Seçin", "hüceyrə adı" girişin daxil olduğu xananı təmsil edir. Mətn etiketinin dərhal sağındakı hüceyrənin adını daxil edin. Mətn etiketi A2 hücrəsindədirsə, giriş sahəsi B2 hücrəsidir (Aralıq ("B2"). Seçin). Hüceyrə adından əvvəl və sonra olan tırnak işarələri hələ də bu mərhələdə yazılır, lakin artıq tam kod ifadəsinə daxil edilmir.
- İkinci sətirdəki kod "ActiveCell. Value = InputBox (" InputPrompt ")" dir. "InputPrompt", istifadəçiyə giriş hüceyrəsinə daxil olmaq üçün məlumat növünü bildirmək üçün görünəcək mətni təmsil edir. Məsələn, giriş hücrəsi yemək xərcləri ilə doldurulacaqsa, "InputPrompt" ı "Yemək üçün ümumi xərcləri, o cümlədən məsləhətləri daxil edin" ilə əvəz edin. (Giriş təlimatı mətni üçün dırnaq işarələri hələ də daxil edilir, əmrdən əvvəl və sonra isə dırnaq işarələrinin yazılmasına ehtiyac yoxdur.)
Addım 8. Hər bir hesablama sahəsi üçün kodu daxil edin
Yenə də istifadə olunan iki xətt əvvəlki ilə eynidir, lakin bu dəfə ActiveCell. Value, rəqəmsal bir funksiyanın hesablanmasıdır, məsələn SUM, burada InputBox funksiyası giriş təlimatlarını göstərmək üçün istifadə olunur.
Addım 9. İnteraktiv cədvəlinizi saxlamaq üçün bir kod xətti əlavə edin
Format "ActiveWorkbook. SaveAs Filename: =" Filename.xls "dir." Filename " - interaktiv cədvəlin adıdır. tələb olunmur.)
Microsoft Excel 2007 və ya daha yeni bir versiyasını istifadə edirsinizsə, ".xls" yerinə ".xlsx" istifadə edin. Bununla birlikdə, Excel 2003 və daha aşağı versiyalı interaktiv elektron tablo istifadəçiləri varsa, oxucu plagini olmadan elektron tablodan istifadə edə bilməyəcəklər
Addım 10. Alt = "Image" və Q düymələrini eyni anda basın
Visual Basic redaktoru bağlanacaq.
Addım 11. Alt = "Image" və F8 düymələrini eyni anda basın
Makro informasiya qutusu görünəcək.
Addım 12. Makrolar siyahısında prosedur adını vurun
Yaradılmış prosedur siyahıda yeganə olarsa, avtomatik olaraq seçiləcəkdir.
Addım 13. Seçimlər düyməsini basın
Ctrl düyməsi ilə qısa yol olaraq istifadə etmək üçün bir klaviatura simvolu daxil etməyiniz xahiş olunacaq. "Giriş" üçün "e" kimi qısa yol olaraq istifadə edilməyən mənalı bir məktub seçin.
Addım 14. Makro Seçimləri dialoqunu bağlamaq üçün "OK" düyməsini basın
İndi interaktiv elektron tabloları istifadəçilərə paylaya bilərsiniz. Açıldıqdan sonra istifadəçi qısa giriş düymələrindən istifadə edərək qeydlər edə bilər və məlumatları doldurmaq üçün yaratdığınız təlimatları izləyə bilər.
Metod 2 /2: Hesabat Oluşturmağı Avtomatlaşdırın
Addım 1. PivotTable -da hesabat yaradın
PivotTable, məlumatları ümumiləşdirmək üçün hazırlanmışdır, beləliklə ədədləri müqayisə edə və meylləri müəyyən edə bilərsiniz. PivotTable, məlumat emalçılarından birində olan və ya müəyyən bir verilənlər bazasından idxal edilən məlumatlarla əlaqəli olmalıdır.
Addım 2. Hesabatı açmaq və bağlamaq üçün Visual Basic skriptini yazın
Ssenari aşağıda sadalanan müxtəlif funksiyaları yerinə yetirməlidir. Hər bir funksiya, onu tətbiq etmək üçün mötərizədə verilən kodun ardınca təsvir ediləcəkdir. Həqiqi kodu yazarkən nümunədəki adı öz adınızla əvəz edərək tək bir blokda yazın və kod nümunəsinin əvvəlinə və sonuna mötərizəni daxil etməyin.
- Cədvəli yalnız oxumaq rejimində açın. [DIM XLAppSet XLApp = CreateObject ("Excel. App") xlapp.visible = falsexlapp.workbooks.open / excelloc / filename.xls, 3,]
- Məlumatları yenidən yükləyin və hesabatı qeyd edin, bu nümunədə tarix yazısı ilə PDF olaraq qeyd olunur. [Truexlapp.activeworkbook. RefreshAllxlapp.activeworkbook. ExportAsFixedFormat xlTypePDF, / pdfloc / reportname_ & DatePart ("yyyy, Now ()) &"-"& Right (" 0 "& DatePart (" m ", Now ()), 2) & "-" Sağ ("0" & DatePart ("d", Now ()), 2) & ".pdf"] Çıxış sənəd formatı fərqlidirsə, ".pdf" formatını istədiyiniz kimi uyğun uzantı.
- Cədvəli saxlamadan bağlayın, sonra Excel -i bağlayın. [xlQualityStandardxlapp.activeworkbook.close Falsexlapp.quit]
- Cədvəl Excel 2007-də və daha sonra XML əsaslı bir formatda saxlanılırsa, cədvəlin sonunda ".xls" yerinə ".xlsx" istifadə edin.
Addım 3. Visual Basic skriptini işə salmaq üçün bir toplu skript yazın
Ssenarini yazmağın məqsədi, Visual Basic skriptlərinin avtomatik işləyə bilməsidir. Toplu skript olmadan VB skriptləri əl ilə işləməlidir.
Skript, bu nümunədə verilən ad üçün öz qovluq adınız və fayl adınızla əvəz edilərək aşağıdakı formatda yazılmışdır: [cscript /nologo / fileloc / script.vbs]
Addım 4. Çıxış faylının yaradıldığı kimi mövcud olmasını təmin etmək üçün bir toplu skript yazın
Ssenariniz aşağıdakı funksiyaları yerinə yetirməlidir. Hər bir funksiyanı yerinə yetirmək üçün mötərizədə verilən kod izləniləcəkdir. Həqiqi kodu yazarkən, nümunədəki adı lazım olan adla əvəz edərək tək bir blokda yazın və nümunə kodun əvvəlinə və sonuna mötərizəni daxil etməyin.
- Çıxış faylının olub olmadığını yoxlayın. [For /f "tokens = 2-4 delims = /" %% a in ('date /t') set rreport = reportname _ %% c-%% a-%% b.pdf)] Çıxış fayl formatı PDF deyil, ".pdf" faylını müvafiq uzantı ilə əvəz edin.
- Çıxış faylı/hesabatı varsa, ehtiyacı olan şəxsə e -poçt olaraq göndərin. [Varsa / pdfloc \%rreport%(sendmail -f [email protected] -t alıcı@recipientdomain.com -u Planlaşdırılmış Hesabat -m Hesabat %% hesabat%əlavə olunur. -A / pdfloc \%rreport%-s serveriniz: port -xu istifadəçi adı -xp parol)]
- Çıxış faylı/hesabatı göstərilən yerdə yoxdursa, sizə çatdırmanın uğursuz olduğu barədə bir mesaj göndərə biləcək bir prosedur yaradın. [Başqa (sendmail -f [email protected] -t [email protected] -u Hesabat işləməyib -m fayl % rreport % / pdfloc / -s serverinizdə yoxdur: port -xu istifadəçi adı -xp parol)]
Addım 5. "Masaüstü" qovluğunun kompüterdə olduğundan əmin olun
Həm 32 bit, həm də 64 bit sistemlər üçün Masaüstü qovluğunun mövcudluğunu yoxlamalısınız. Əks halda Excel və elektron tablo əl ilə açılmalıdır.
- 32 bitlik sistem yeri: c: / windows / system32 / config / systemprofile
- 64 bitlik sistem yeri: c: / windows / syswow64 / config / systemprofile
Addım 6. Lazım olduqda skriptləri işə salmaq üçün tapşırıqları planlaşdırın
Kompüter skriptləri, heç kim kompüterdən istifadə etməsə belə, ardıcıl və davamlı olaraq icra olunmalıdır. İmtiyazlar mümkün olan ən yüksək səviyyəyə qoyulmalıdır.
