İ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'de dinamik basamaklı siyahısı qutuları yaratmaq üçün necə?

Excel-də cascading validation açılan siyahısı necə yaradılacağını bilirsiniz. Ancaq, Excel-də dinamik basamaklı siyahısı qutuları necə yaradılacaq? Bu yazı onu almaq üçün VBA metodunu təqdim edir.

VBA kodu ilə dinamik kaskad siyahıları yaradın


VBA kodu ilə dinamik kaskad siyahıları yaradın


Aşağıda göstərilən ekran göründüyü kimi, ana siyahı qutusu yaratmaq lazımdır, İçki sütununun unikal dəyərlərindən ibarətdir və əsas siyahıdakı seçimə əsaslanan ikinci siyahıdakı bütün müvafiq dəyərləri göstərmək. Aşağıdakı VBA kodu onu əldə etməyə kömək edir. Xahiş edirik bunu edin.

1. Birincisi, bütün unikal dəyərləri İçki sütunundan çıxarmaq lazımdır. Boş bir hüceyrə seçin, array formula daxil edin =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") daxil Formula Barı, və sonra basın Ctrl + ÜstKrkt + Daxil edin açar. Sonra sürükləyin Doldurma qolu bütün unikal dəyərləri əldə etmək. Ekran görüntüsünə baxın:

Qeyd: Formula, $A$2:$A$11 unikal dəyərlər çıxaracağınız sıra. J1 sizin formulainizin yerləşdiyi yuxarıdakı hüceyrəsidir.

UcƏgər düsturu xatırlamaq və idarə etmək çox çətin olsa, Duplicate & Unique Cells seçin faydası Excel üçün Kutools sütundan bütün unikal dəyərləri tez çıxarmaq üçün yaxşı bir seçim olacaq.

Xahiş edirik sütundan çıxardığınız unikal dəyərləri seçin. Sonra tıklayarak kommunal imkan verir Kutools > seçmək > Duplicate & Unique Cells seçin. İçində Duplicate & Unique Cells seçin dialoq qutusunu seçin Bütün unikal (1st dublikatları daxil olmaqla) Seçim və basın OK düyməsini basın. Sonra bütün unikal dəyərlər sütunda seçilir. Xahiş edirik onları yeni bir yerə kopyalayıb yapışdırın. Ekran görüntüsünə 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!

2. İki siyahı qutularını tıklayarak ayrıca daxil edin Developer > Taxmaq > Siyahı qutusu (ActiveX Control). Ekran görüntüsünə baxın:

3. Ana siyahı qutusuna sağ basın və seçin Properties kontekst menyusundan. İçində Properties dialoq qutusunu dəyişdirin (Ad) sahəyə Içmək ya da lazım olduğunuz başqa bir ad daxil edin, hüceyrə aralığına daxil edilsin List Fill Range sahə və dialoq bağlayın.

4. İkinci siyahı qutusunu dəyişdirmək üçün 3 addımı təkrarlayın (Ad) sahəsi Properties dialoq qutusu.

5. Sekanın sekmesini sağa vurun və seçin Kodları baxın sağ tıklayma menyusundan. Sonra VBA kodunu Kod penceresine kopyalayın. Ekran görüntüsünə baxın:

VBA kodu: Excel-də dinamik basamaklı siyahısı qutuları yaradın

Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
    Dim I, xRows As Long
    Dim xRg As Range
    Dim xRegStr As String
    Application.ScreenUpdating = False
    xRegStr = Me.Drink.Text
    Set xRg = Range("A2:A11")
    xRows = xRg.Rows.Count
    If xRegStr <> xPreStr Then
    Me.Item.Clear
   'Me.OtherListBoxName.Clear
    Set xRg = xRg(1)
    For I = 1 To xRows
        If xRg.Offset(I - 1).Value = xRegStr Then
            Me.Item.AddItem xRg.Offset(I - 1, 1).Value
            'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
        End If
    Next
    xPreStr = xRegStr
    End If
    Application.ScreenUpdating = True
End Sub

Qeydlərİçki və Məhsul kodunda iki siyahı qutularının adları vardır, onları öz adlarınıza dəyişdirin.

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

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

İndidən qəhvə kimi hər hansı bir içki seçərkən ana siyahı qutusunda bütün qəhvə maddələr ikinci birində göstərilir. Çay və ya Şir'i seçin yalnız ikinci siyahı qutusuna çay və ya şərab maddələrini göstərəcəkdir. Ekran görüntüsünə baxın:


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.