Bu yazıda, Microsoft Excel'de VBA üzerinden arama ve yazdırma için bir kullanıcı formu oluşturmayı öğreneceğiz.
Basit bir alıştırma ile anlayalım: -
Sayfa 1'de A sütununun Ajan Kimliği, B sütununun Ad, Sütun C Adresi, D sütununun şehri, E sütununun bölgesi, F sütununun ülke ve G sütununun posta zip'i içerdiği verilerimiz var.
Bir sonraki sayfada (sayfa 2), aşağıda belirtilen resme göre ayrıntıları almak istiyoruz: -
Aracı Kimliğini ararsak, tüm ayrıntılar A11:D11 aralığında görünmelidir. Ve sonra çıktıyı verin.
Ayrıntıları Aramak ve Yazdırmak için aşağıda verilen adımları izleyin: -
- Visual Basic Düzenleyicisini açmak için F11 tuşuna basın
- Arama butonu kodunu yazmak için modülü takın
- Aşağıda belirtilen kodu yazın: -
Sub Searchdata() Lastrow As Long Dim Dim count As Integer Lastrow = Sheets("Data").Cells(Rows.count, 1).End(xlUp).Row For X = 2 To Lastrow If Sheets("Veri"). Cells(X, 1) = Sheet3.Range("B3") Sonra Sheet3.Range("A11") = Sheets("Data").Cells(X, 1) Sheet3.Range("B11") = Sheets(" Veri").Hücreler(X, 2) Sayfa3.Aralık("C11") = Sayfalar("Veri").Hücreler(X, 3) & " " & Sayfalar("veri").Hücreler(X, 4) _ & " " & Sheets("veri").Cells(X, 5) & " " & Sheets("Veri").Cells(X, 6) Sheet3.Range("D11") = Sheets("Veri"). Hücreler(X, 7) End If Next X End Sub
Kod Açıklama:- İlk önce değişkenleri tanımlayacağız ve ardından hangi satırın son satır olacağını tanımladık ve ardından Agent Id'nin ne ve nerede aranacağını ve ardından aranan Agent ID için aralığın nasıl güncelleneceğini tanımladık.
Şimdi bu makroyu Search butonuna atayacağız.
- Düğmeye sağ tıklayın
- Makro Ata'ya tıklayın
- Burada makro konumuz Searchdata, searchdata'yı tıklayın ve ardından OK'i tıklayın.
Makroyu çalıştırın: -
- Makroyu çalıştırmak için Ara düğmesine tıklayın
- Temsilci Kimliği orada olacaksa, ayrıntılar güncellenir, aksi takdirde ayrıntılar görünmez
Çıktıyı vermek için aşağıda belirtilen makroyu atayın: -
- Geliştirici sekmesi>Ekle>Düğme'den düğmeyi ekleyin (form kontrolü)
- Makroyu Printout konu adıyla Searchdata için yazdığımız aynı modelde yazın
Sub PrintOut() Sheet3.Range("A1:D12").PrintPreview Sheet3.Range("A1:D12").PrintOut End Sub
- Arama verilerine atadığımız gibi makroyu butona atayın
Bu sayede Microsoft Excel'de VBA üzerinden verileri araştırabilir ve ardından aranan detayların çıktısını verebiliriz.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın