Excel VBA Metin Kutusu
Metin kutusu biz metin kutusu seçeneğini bir kullanıcı formundaki metin kutuları olmak için basitçe bir kullanıcıdan girdi almak için kullanılan bir kutu gibi, metin kutuları, herhangi excel çalışma sayfasında bir kullanıcı formlarının parçası ve geliştirici sekmesi bulunmaktadır edilir VBA'daki veya çalışma sayfasındaki kullanıcı formu kontrollerinden tasarım sekmesinden seçebiliriz.
VBA TextBox, Kullanıcı Formunun birçok kontrolünün kontrollerinden biridir. Kullanıcı formundaki metin kutusunu görüntüleyerek, veriyi metin kutusuna girmelerini isteyebiliriz ve kullanıcı tarafından girilen veriler basit kodlarla çalışma sayfasına kaydedilebilir.
Kullanıcı formları VBA kodlamada çok çekici. Özellikle kullanıcılardan girdi almamız gerektiğinde bize çok yardımcı oluyor. Kullanıcı formları ile birçok kontrole sahibiz ve kullanıcılardan girdi değerini almak için "Metin Kutusu" bir kullanıcı formunda ideal seçenektir. Kullanıcı formunun üzerine bir metin kutusu koyarak, kullanıcıya gösterdiğimiz metin kutusuna gerekli değeri girmesini söyleyebiliriz. VBA metin kutuları hakkında hiçbir fikriniz yoksa, bu makale VBA metin kutuları hakkında bir tur atacaktır.
TextBox VBA UserForm'a Nasıl Eklenir?
Bu VBA Metin Kutusu Şablonunu buradan indirebilirsiniz - VBA Metin Kutusu ŞablonuÖnce bir metin kutusu eklemek için kullanıcı formu eklememiz gerekiyor. Kullanıcı formu eklemek için Ekle> Kullanıcı Formu'na gidin.
Kullanıcı Formuna tıkladığınız anda, başka bir modül gibi Kullanıcı Formu oluşturacağız.
Kullanıcı Formunun Kontrollerini görmek için Kullanıcı Formuna tıklayın.
Bu Kontroller araç kutusundan "TextBox" öğesini seçin ve Kullanıcı Formunu sürükleyin.
Bununla, bu metin kutusuyla ilişkili birçok özelliği görebiliriz.
Metin Kutusu Özellikleri
Metin Kutusunun Özelliklerini görmek için F4 tuşuna basın.
Gördüğümüz gibi metin kutusunun Adı, rengi, Kenarlığı var. Şimdi, kodlama sırasında bu metin kutusuna kolayca başvurabilmemiz için Uygun Ad verin.
TextBox'ı Userform'da kullanma örneği
Projelerden birini VBA metni ile yürüteceğiz. Çalışanların ayrıntılarını saklamak için bir veri girişi kullanıcı formu oluşturacağız.
Adım 1: Kullanıcı formunda Etiket çizin.
Adım 2: Etiketin varsayılan metnini "Çalışan Adı" olarak değiştirin.
Adım 3: Etiketin önüne bir metin kutusu çizin.
Adım 4: Metin kutusuna “EmpNameTextBox” olarak uygun bir isim verin.
Adım 5: Şimdi ilk etiketin altına bir Etiket daha çizin ve metni "Çalışan Kimliği" olarak girin.
Adım 6: İkinci etiketin önüne bir metin kutusu daha çizin ve bunu “EmpIDTextBox” olarak adlandırın.
7. Adım: Bir etiket daha çizin ve metni “Maaş” olarak girin.
Adım 8: “Maaş” etiketinin önüne bir metin kutusu daha çizin ve bunu “SalaryTextBox” olarak adlandırın.
Adım 9: Şimdi ToolBox'tan "Komut Düğmesi" ni ekleyin.
Adım 10: Komut Düğmesinin metnini "Gönder" olarak değiştirin.
Tamam, Kullanıcı Formu tasarım kısmı ile işimiz bitti. Şimdi bu kullanıcı formuna girilen verileri saklamak için kodu yazmamız gerekiyor. Şu andan itibaren F5 tuşuna basarak kullanıcı formunu çalıştırın, böyle bir kullanıcı formu görmeliyiz.
Adım 11: Özellikler penceresinde Kullanıcı Formunun Başlığını değiştirin.
Adım 12: Şimdi Komut Gönder Düğmesine çift tıklayın, çift tıkladığınızda aşağıdaki gibi bu otomatik alt prosedürü göreceksiniz.
Bu, Gönder düğmesine tıkladığınızda ne olması gerektiğidir. VBA kodundaki görevlerden bahsetmemiz gerekiyor. Bu projede amacımız, Gönder Düğmesine tıkladığımız anda metin kutusuna girilen verileri saklamaktır.
Bunun için öncelikle “Çalışanlar Sayfası” adlı çalışma sayfasında buna benzer bir Şablon oluşturun.
Adım 13: Şimdi görsel temel düzenleyiciye geri dönün. Düğmenin içinde VBA'daki alt programa tıklayın, ilk önce aşağıdaki kodu kullanarak son kullanılan satırı belirleyin.
Kod:
Özel Alt CommandButton1_Click () Dim LR As Long LR = Çalışma Sayfaları ("Çalışan Sayfası"). Hücre (Rows.Count, 1) .End (xlUp) .Row + 1 End Sub 
Adım 14: İlk şey, ilk sütunda Çalışan Adını saklayacağız. Bunun için "EmpNameTextBox" adlı metin kutusuna erişmemiz gerekiyor.
Kod:
Özel Alt CommandButton1_Click () Dim LR As Long LR = Çalışma Sayfaları ("Çalışan Sayfası"). Hücre (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Sub 
Adım 15: İkinci sütunda Çalışan Kimliğini kaydetmemiz gerekiyor. Bu, "EmpIDTextBox" adlı metin kutusuna erişilerek elde edilecektir.
Kod:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub 
Step 16: At last we need to store the salary part, for this, we need to access to text box named “SalaryTextBox”.
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub 
Ok, we are done with the coding part as well. Now run the code using the F5 key we should see a User Form like the below.
As of now, all the boxes are empty.
Fill the details first.
Now click on the “Submit” button, it will store the data to the worksheet.
Like this, you can keep entering the data and hit and submit button. This is the simple data entry user form with a text box.