Microsoft Excel'in çeşitli özellikleri vardır ve bunlardan biri otomatik olarak raporlar oluşturuyor. Rapor oluşturmayı otomatikleştirirken, çalışma kitabına başkaları için veri girme sürecini basitleştirmek için etkileşimli elektronik tablolar oluşturabilirsiniz. Bu özelliklerin her ikisi de yeterli Visual Basic bilgisi gerektirir. Her iki görevi gerçekleştirme adımları aşağıda açıklanmıştır.
Adım
Yöntem 1/2: Etkileşimli Elektronik Tablo Oluşturma
Adım 1. Elektronik tablonun düzenini belirleyin
Elektronik tablonun düzeni, başkalarının veri girmek için gereken alanları bulabilmesi için yapılmalıdır.
Elektronik tablo düzenleri yatay veya dikey olarak düzenlenebilir. Çoğu kullanıcı, özellikle elektronik tablo yazdırılacaksa, dikey bir düzen ile çalışmayı daha kolay bulur
Adım 2. Elektronik tablo için metin etiketleri oluşturun
Her sütunun üstüne ve veri girişi olarak kullanmayı planladığınız sütundaki her hücrenin soluna bir etiket yazın.
3. Adım. alt=""Image" ve F11 tuşlarına birlikte basın.</h4" />
Bu tuş kombinasyonu, Microsoft Visual Basic düzenleyicisini açacaktır.
Adım 4. Sol üstteki "Project-VBA Projesi" bölmesinde "Bu Çalışma Kitabı"na çift tıklayın
Editörün ana bölümünde kod yazmak için bir pencere görünecektir.
Adım 5. Ekle menüsünden "Prosedür"ü seçin
Prosedür Ekle iletişim kutusu görünecektir.
Adım 6. Ad alanına prosedürün adını girin
Elektronik tablo seyahat masraflarını bildirmek için kullanılacaksa, prosedür için "SumExpenses" gibi anlamlı bir ad girin. İletişim kutusunu kapatmak için Tamam'a tıklayın.
- Prosedür adları boşluk içeremez, ancak boşlukları değiştirmek için alt çizgi (_) kullanabilir.
- Prosedür Ekle iletişim kutusu kapandıktan sonra, "Public Sub" etiketli bir satır ve ardından prosedürün adı görünecektir. Bu satırın altında bir boşluk ve "End Sub" kelimeleri var.
Adım 7. Elektronik tablodaki her giriş alanı için kodu girin
Her giriş için iki satır kod yazacaksınız.
- Kodun ilk satırı "Range("cellname") şeklindedir. Select", "cellname" girdinin girildiği hücreyi temsil eder. Metin etiketinin hemen sağındaki hücrenin adını girin. Metin etiketi A2 hücresindeyse, giriş alanı B2 hücresidir (Aralık("B2"). Seç). Hücre adından önceki ve sonraki tırnak işaretleri bu aşamada hala yazılır, ancak artık tam kod deyimine dahil edilmez.
- İkinci satırdaki kod "ActiveCell. Value = InputBox("InputPrompt")" şeklindedir. "InputPrompt", kullanıcıyı giriş hücresine girilecek veri türü konusunda bilgilendirmek için görünecek metni temsil eder. Örneğin, giriş hücresi yiyecek giderleriyle doldurulacaksa, "GirişTalebi"ni "Öğünler için ipuçları dahil toplam giderleri girin" ile değiştirin. (Giriş talimatı metni için tırnak işaretleri hala dahildir, ancak komuttan önceki ve sonraki tırnak işaretlerinin yazılmasına gerek yoktur.)
Adım 8. Her hesaplama alanı için kodu girin
Yine kullanılan iki satır öncekiyle aynıdır, ancak bu sefer ActiveCell. Value sayısal bir işlevin hesaplanmasıdır, örneğin SUM, burada InputBox işlevi giriş talimatlarını görüntülemek için kullanılır.
Adım 9. Etkileşimli elektronik tablonuzu kaydetmek için bir kod satırı ekleyin
Biçim, "ActiveWorkbook. SaveAs Filename:="Filename.xls" şeklindedir. "Filename", etkileşimli elektronik tablonun adıdır. ("Dosyaadı.xls"den önceki ve sonraki tırnak işaretleri yazılı kalır, ancak tüm komutlar için tırnak işaretleri gösterilir. gerekli değil.)
Microsoft Excel sürüm 2007 veya sonraki bir sürümünü kullanıyorsanız, ".xls" yerine ".xlsx" kullanın. Ancak Excel 2003 ve altı sürümüne sahip etkileşimli elektronik tablo kullanıcıları varsa, elektronik tabloyu okuyucu eklentisi olmadan kullanamayacaklardır
Adım 10. alt=""Görüntü" ve Q tuşlarına aynı anda basın.</h4" />
Visual Basic düzenleyicisi kapanacaktır.
Adım 11. alt=""Image" ve F8 tuşlarına aynı anda basın.</h4" />
Makro iletişim kutusu görünecektir.
Adım 12. Makrolar listesinde prosedür adına tıklayın
Oluşturulan prosedür listedeki tek prosedür ise, otomatik olarak seçilecektir.
Adım 13. Seçenekler düğmesini tıklayın
Ctrl tuşu ile kısayol olarak kullanmak üzere bir klavye karakteri girmeniz istenecektir. "Giriş" için "e" gibi kısayol karakteri olarak kullanılmayan anlamlı bir harf seçin.
Adım 14. Makro Seçenekleri iletişim kutusunu kapatmak için "Tamam"a tıklayın
Artık etkileşimli elektronik tabloları kullanıcılara dağıtabilirsiniz. Açtıktan sonra, kullanıcı giriş yapmak için kısayol tuşlarını kullanabilir ve verileri doldurmak için oluşturduğunuz talimatları takip edebilir.
Yöntem 2/2: Rapor Oluşturmayı Otomatikleştir
Adım 1. Bir PivotTable'da bir rapor oluşturun
PivotTable'lar, sayıları karşılaştırabilmeniz ve eğilimleri belirleyebilmeniz için verileri özetlemek üzere tasarlanmıştır. PivotTable, veri işlemcilerinden birinde bulunan veya belirli bir veritabanından içe aktarılan verilerle ilgili olmalıdır.
Adım 2. Raporu açmak ve kapatmak için bir Visual Basic betiği yazın
Komut dosyası, aşağıda listelenen çeşitli işlevleri gerçekleştirebilmelidir. Her fonksiyon, onu uygulamak için parantez içinde verilen kodla açıklanacaktır. Gerçek kodu yazarken, örnekteki adı kendinizinkiyle değiştirerek tek bir bloğa yazın ve kod örneğinin başına ve sonuna parantez eklemeyin.
- Elektronik tabloyu salt okunur modda açın. [DIM XLAppSet XLApp = CreateObject("Excel. App")xlapp.visible=falsexlapp.workbooks.open \excelloc\filename.xls, 3,]
- Verileri yeniden yükleyin ve raporu kaydedin; bu örnekte, tarih başlığıyla birlikte bir PDF olarak kaydedilir. [Truexlapp.activeworkbook. RefreshAllxlapp.activeworkbook. ExportAsFixedFormat xlTypePDF, \pdfloc\reportname_ & DatePart("yyyy, Now()) & "-" & Right("0" & DatePart("m", Now()), 2) & "-" Right("0" & DatePart("d", Now()), 2) & ".pdf"] Çıktı belge formatı farklıysa, ".pdf" formatını ile değiştirin istendiği gibi uygun uzantı.
- Elektronik tabloyu kaydetmeden kapatın, ardından Excel'i kapatın. [xlQualityStandardxlapp.activeworkbook.close Falsexlapp.quit]
- Elektronik tablo Excel 2007'de ve daha sonraki bir XML tabanlı biçimde kaydedilmişse, elektronik tablonun sonunda ".xls" yerine ".xlsx" kullanın.
Adım 3. Visual Basic komut dosyasını başlatmak için bir toplu komut dosyası yazın
Komut dosyasını yazmanın amacı, Visual Basic komut dosyalarının otomatik olarak çalışabilmesidir. Toplu komut dosyası olmadan, VB komut dosyalarının manuel olarak çalıştırılması gerekir.
Komut dosyası, bu örnekte verilen ad için kendi klasör adınız ve dosya adınızla değiştirilerek aşağıdaki biçimde yazılmıştır: [cscript /nologo \fileloc\script.vbs]
Adım 4. Çıktı dosyasının oluşturulduğu gibi var olduğundan emin olmak için bir toplu komut dosyası yazın
Komut dosyanız aşağıdaki işlevleri yerine getirmelidir. Her işlevi, uygulamak için parantez içinde verilen kod izleyecektir. Gerçek kodu yazarken, örnekteki adı ihtiyacınız olan adla değiştirerek tek bir bloğa yazın ve örnek kodun başına ve sonuna parantez eklemeyin.
- Bir çıktı dosyası olup olmadığını kontrol edin. [/f "tokens=2-4 delims=/ " için ('tarih /t') %%a ayarını yapın rreport=reportname_%%c-%%a-%%b.pdf)] Çıktı dosya biçimi PDF değilse, ".pdf" dosyasını uygun uzantıyla değiştirin.
- Çıktı dosyası/raporu varsa, ihtiyacı olan kişiye e-posta olarak gönderin. [Varsa \pdfloc\%rreport% (sendmail -f [email protected] -t alıcı@recipientdomain.com -u Planlanmış Rapor -m Rapor %%report% eklenmiştir. -a \pdfloc\%rreport% -s sunucunuz:port -xu kullanıcı adı -xp şifresi)]
- Çıktı dosyası/raporu belirtilen konumda mevcut değilse, size teslimatın başarısız olduğuna dair bir mesaj gönderebilmesi için bir prosedür oluşturun. [Else (sendmail -f [email protected] -t [email protected] -u Rapor çalışmadı -m dosyası %rreport% \pdfloc\ -s içinde mevcut değil: sunucunuz:port -xu kullanıcı adı -xp şifresi)]
Adım 5. "Masaüstü" klasörünün bilgisayarda olduğundan emin olun
Hem 32 bit hem de 64 bit sistemler için Desktop klasörünün varlığını doğrulamanız gerekir. Aksi takdirde, Excel ve elektronik tablo manuel olarak açılmalıdır.
- 32 bit sistem konumu: c:\windows\system32\config\systemprofile
- 64 bit sistem konumu: c:\windows\syswow64\config\systemprofile
Adım 6. Komut dosyalarını gerektiği gibi çalıştırmak için görevleri zamanlayın
Toplu komut dosyaları, bilgisayarı kimse kullanmasa bile sırayla ve sürekli olarak yürütülmelidir. Ayrıcalıklar mümkün olan en yüksek ayara ayarlanmalıdır.
