İ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ə Named Range məlumatları ilə Combo qutusu necə yerləşdirilir?

Aralığı birləşdirilmiş qutunun ListFillRange xüsusiyyətlərinə əlavə edərək müəyyən bir sıra məlumatları ilə bir Combo qutusu (ActiveX Control) müəyyən edə bilərsiniz. Ancaq bir qutu qutusunu Excel-də adlandırılmış bir sıra məlumatları necə doldurmaq olar? Məsələn, iş səhifənizdə bir sıra hüceyrələri adlandırdınız və indi bu aralığın adını Combo qutusuna təyin etməlisiniz. Bir birləşmə qutusuna aralığın adını seçərkən, bu adlandırılmış intervaldakı bütün hüceyrə dəyərləri avtomatik olaraq başqa bir Combo qutusunda doldurulur. Bu yazıda bu problemi həll etmək üçün VBA metodu tətbiq ediləcək.

VBA koduyla adlandırılmış bir sıra məlumatları olan Combo qutusunu yerləşdirin


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 koduyla adlandırılmış bir sıra məlumatları olan Combo qutusunu yerləşdirin


Combo qutusunu Excel-də adlandırılmış bir sıra məlumatları ilə doldurmaq üçün aşağıdakıları yerinə yetirin.

1. İş səhifənizdə bütün mövzuları seçin (bu halda, A1 seçin: E1) və sonra bir Ad qutusu Aşağıdakı kimi ekran görüntüsü göstərilir.

2. Başlıq xaricindəki hər bir sütun məlumatını seçin və sütunları ayrıca daxil edin Ad qutusu. Ekran görüntüsünə baxın:

Bu halda, A2, A8, B2: B8, C2: C8, D2: D8 və E2: E8, tarix, mağaza, əşyalar, satış və həftənin günləri kimi ayrı-ayrılıqda adlandırdım.

3. Sonra tıklayarak bir Combo qutusu əlavə edin Developer > Taxmaq > Combo Box (ActiveX Control). Ekran görüntüsünə baxın:

4. Çalışma səhifəsinə başqa bir Combo qutusu əlavə etmək üçün 3 addımı təkrarlayın.

5. Sehife sekmesini sağ tıklatın və sonra basın Kodları baxın kontekst menyusundan. Ekran görüntüsünə baxın:

6. Açılışda Proqramlar üçün Microsoft Visual Basic Pəncərədən, VBA kodu aşağıda Kod pencerəsinə kopyalayıb yapışdırın.

VBA kodu: Açılan aralığın məlumatları ilə Combo qutusunu yerləşdirin

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Qeyd: Kodda, ComboBox1 daxilində bütün aralığın adlarını qeyd edəcəyiniz və ComboBox2, müəyyən edilmiş verilənlər aralığının məlumatlarının içərisində doldurulacaq birləşmə qutusunun adıdır. "Başlıqlar", step1-də yaratdığınız sıra üçündür.

7. Tıklayarak Dizayn rejimi söndürün Developer > Dizayn Moda.

8. Kodu aktivləşdirmək üçün iş səhifəsindəki hər hansı bir hüceyrəni basın. İlk açılan kutuda ox düyməsini vurun, bütün adlandırılmış aralıklar daxilində verilmişdir. Ekran görüntüsünə baxın:

İlk birləşmə qutusunda adlandırılmış bir sıra seçərkən müvafiq ekran məlumatı aşağıda göstərildiyi kimi, ikinci birləşmə qutusuna 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.

Be the first to comment.