Excel'de UserForm'da birleşik giriş kutusu seçimine göre metin kutusu nasıl doldurulur?
Bir tablonuzun aşağıda gösterilen ekran görüntüsü gibi bir Ad ve Personel numarası sütunu içerdiğini varsayarsak. Şimdi, içindeki tüm isimleri toplayan bir birleşik giriş kutusu ve açılır kutudan ad seçerken karşılık gelen personel numarasını dolduracak bir metin kutusu içeren gömülü bir Kullanıcı Formu oluşturmanız gerekir. Bu makaledeki yöntem, onu indirmenize yardımcı olabilir.
VBA ile Userform'da birleşik giriş kutusu seçimine göre metin kutusunu doldurun
VBA ile Userform'da birleşik giriş kutusu seçimine göre metin kutusunu doldurun
Kullanıcı formundaki birleşik giriş kutusu seçimine göre metin kutusunu karşılık gelen değerle doldurmak için lütfen aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > Kullanıcı formu. Ekran görüntüsüne bakın:
3. Ardından, aşağıda gösterilen ekran görüntüsü gibi oluşturulan Kullanıcı Formuna bir Birleşik giriş kutusu kontrolü ve bir Metin kutusu kontrolü ekleyin.
4. Kullanıcı formunun herhangi bir boş alanına sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:
5. Açılış Kullanıcı Formu (Kod) penceresinde, lütfen orijinalini değiştirmek için aşağıdaki VBA kodunu kopyalayıp yapıştırın.
VBA kodu: Userform'daki birleşik giriş kutusu seçimine göre metin kutusunu doldurun
Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet5").Range("A2:B8")
Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub
not: Kodda, A2: B2 aralık, hem Userform birleşik giriş kutusunda hem de metin kutusunda ayrı ayrı dolduracağınız değerleri içerir. Ve Sheet5 veri aralığını içeren çalışma sayfasının adıdır. Lütfen ihtiyaç duyduğunuzda değiştirin.
6. Tuşuna basın. Ara Toplam + Q çıkış tuşları Uygulamalar için Microsoft Visual Basic pencere.
7. tık Geliştirici > Ekle > Komut Düğmesi (ActiveX Kontrolü) çalışma sayfasına bir komut düğmesi eklemek için.
8. Sayfa sekmesine sağ tıklayın ve Kodu Görüntüle sağ tıklama menüsünden. Ardından VBA kodunu kopyalayıp kod penceresine yapıştırın.
VBA kodu: Kullanıcı formunu göster
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub
9. Çalışma kitabındaki Tasarım Modunu kapatın.
Belirtilen kullanıcı formunu açmak için komut düğmesine tıklayın. Ardından, açılan kutuda tüm adların toplandığını görebilirsiniz. Birleşik giriş kutusundan bir isim seçerken, ilgili personel numarası aşağıda gösterilen ekran görüntüsü gibi otomatik olarak metin kutusuna doldurulacaktır.
İlgili yazılar:
- Çalışma Kitabı açıkken belirtilen verilerle birleşik giriş kutusu nasıl doldurulur?
- Excel açılır listesindeki değerleri seçerken diğer hücreleri otomatik olarak nasıl doldurabilirim?
- Excel açılır listesindeki değerleri seçerken diğer hücreleri otomatik olarak nasıl doldurabilirim?
- Google arama sonuçlarını Excel'deki çalışma sayfasına nasıl doldurabilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!