İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də UserForm-da combobox seçiminə əsaslanan mətn qutusunu necə doldurmaq olar?

Bir masanız olduğunu düşünürsəniz, aşağıda göstərilən ekran görüntüsü kimi bir Ad və İşçi sayı sütunu var. İndi içərisindəki bütün adları və birləşmə qutusundan ad seçərkən müvafiq işçi sayını dolduracaq bir mətn qutusunu yığan bir giriş qutusu ilə əlaqədar bir İstifadəçi Formu yaratmalısınız. Bu yazıda yer alan metod onu əldə etmək üçün sizə kömək edə bilər.

VBA ilə Userform-da combobox seçiminə əsaslanan mətn qutusunu əhatə edin


Excel-də toplu olaraq birdən çox onay qutusunu asanlıqla daxil edin və ya silin:

The Batch Insert Check Box'ları kommunal xidmətlər Excel üçün Kutools tez bir zamanda seçilmiş aralıkta birdən çox onay qutusu daxil etməyinizə kömək edə bilər. Seçdiyiniz aralıktaki bütün onay kutularını silmek üçün Partiyanı Sil Çəkmə qutuları. Sekreenshotə baxın:

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


VBA ilə Userform-da combobox seçiminə əsaslanan mətn qutusunu əhatə edin


İstifadəçi formasında combobox seçiminə əsaslanan müvafiq dəyərlə mətn qutusunu doldurmaq üçün aşağıdakıları edin.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > İstifadəçi formu. Ekran görüntüsünə baxın:

3. Sonra yaradılmış İstifadəçiforma daxil edilmiş bir ekranın görünüşü kimi bir Combo qutusu nəzarətini və bir mətn qutusu nəzarəti əlavə edin.

4. Userform hər hansı bir boş yerə sağ basın və sonra basın Kodları baxın kontekst menyusundan. Ekran görüntüsünə baxın:

5. Açılış İstifadəçi Formu (Kod) penceresinde, orijinali değiştirmek üçün aşağıdakı VBA kodunu kopyalayıp yapıştırın.

VBA kodu: Userform-da combobox seçiminə əsaslanan mətn qutusunu yerləşdirin

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

Qeyd: Kodda, A2: B2 aralığı, həm İstifadəçi formu birləşməsinə, həm də mətn qutusuna ayrıca yerləşəcək dəyərləri ehtiva edir. Və Sheet5 iş yerinin adı veri aralığını ehtiva edir. Lazım olduğunuz halda onları dəyişdirin.

6. Basın Dayandırmaq + Q çıxmaq üçün düymələr Proqramlar üçün Microsoft Visual Basic pəncərə.

7. klik Developer > Taxmaq > Command Button (ActiveX Control) iş səhifəsinə bir komanda düyməsini əlavə etmək.

8. Sehife sekmesini sağ basın və seçin Kodları baxın sağ tıklayarak menyudan. Sonra VBA kodunu kod pəncərəsinə kopyalayıb yapışdırın.

VBA kodu: İstifadəçi formasını göstər

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
    UserForm1.Show
End Sub

9. İş kitabında Dizayn rejimi söndürün.

Göstərilən istifadəçi formasını açmaq üçün əmr düyməsini basın. Sonra bütün adları birləşdirilmiş qutuda toplaya bilərsiniz. Birləşmə qutusundan bir ad seçərkən müvafiq işçi sayıları avtomatik olaraq ekranındakı ekran görüntüsünün olduğu kimi avtomatik olaraq yerləşdiriləcək.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Carey Ogola · 10 months ago
    The method is very simple and populates the combo box quite efficiently. However, when I try populating the text box, I get a run-time error '1004': Unable to get the VLookup property of the WorksheetFunction class. Kindly assist with resolving this error.
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Hi,
      May I have your Office version? I need the feedback to check for the error.
      Thanks for your comment.
      • To post as a guest, your comment is unpublished.
        hoa tran · 8 months ago
        office 2010 32 bit
        • To post as a guest, your comment is unpublished.
          crystal · 7 months ago
          Good day,
          I have tried the code in Office 2010 32 bit, but no errors occured.
          Please make sure the sheet name and cell range in the first VBA code are the same with your actual sheet name and range.
          Thanks for your comment.