Şəraitdən asılı olaraq açılan siyahıda birdən çox dəyər seçməli ola bilərsiniz. Bu dərslikdə sizə açılan siyahıda çoxlu seçimin necə ediləcəyini göstərəcəyik. Bu sessiya üçün biz Excel 2019-dan istifadə edirik, seçdiyiniz versiyadan istifadə etməkdən çəkinməyin.

Sessiyaya keçməzdən əvvəl nümunələrimizin əsasını təşkil edən verilənlər toplusu ilə tanış olaq.

Burada bir neçə dəftərxana ləvazimatları elementimiz var, onlardan istifadə edərək açılan siyahı yaradacağıq və orada birdən çox element seçəcəyik.

Nəzərə alın ki, bu, hər şeyi sadə saxlamaq üçün sadə verilənlər toplusudur. . Praktiki ssenaridə siz daha böyük və mürəkkəb verilənlər toplusu ilə qarşılaşa bilərsiniz.

Təcrübə İş Kitabı

Aşağıdakı linkdən təcrübə iş kitabını yükləyə bilərsiniz.

Açılan Siyahıdan Çoxsaylı Seçim Edin.xlsm

Açılan Siyahıda Çoxsaylı Seçim

İlk növbədə aşağıdakılar əsasında açılan siyahı yaratmalıyıq. bizim dəftərxana ləvazimatlarımız. Tez yaradaq. Açılan siyahının yaradılması ilə bağlı məqaləyə müraciət etməkdən çəkinməyin.

Məlumatların Təsdiqlənməsi dialoq qutusunda SİYAHI məlumat növünü seçin və elementlərin xana diapazonu.

B4:B11 dəftərxana ləvazimatı elementlərini saxlayan diapazondur. İndi siz açılan siyahını tapacaqsınız.

Ətraflı oxuyun: Seçimdən Asılı olaraq Excel Açılan Siyahı

1. SeçinBirdən çox element (Dublikat seçiminə imkan verir)

Adi açılan siyahı həmişə bir elementi seçir. Burada görə bilərsiniz, biz siyahıdan Pen seçmişik (aşağıdakı şəkil).

İndi başqa element seçsək, deyək Qələm

sonra əvvəlki dəyəri əvəz edəcək. Yalnız Qələm seçilmiş qalacaq.

Birdən çox element seçmək üçün VBA kodundan istifadə etməliyik. Microsoft Visual Basic for Applications pəncərəsini açın (açmaq üçün ALT + F11 düymələrini basın).

İndi seçmək istədiyiniz iş səhifəsinin adına və ya nömrəsinə iki dəfə klikləyin açılan siyahıda çoxlu element. Siz həmin xüsusi vərəq üçün kod pəncərəsini tapacaqsınız.

Budur, iş dəftərimizdə Cədvəl2 üçün kod pəncərəsi (açılan menyumuz var) bu vərəqdəki siyahı).

Kod pəncərəsi açıldıqdan sonra ora aşağıdakı kodu daxil edin

9145

Kodu yadda saxlayın və indi dəyərləri seçməyə çalışın. açılan siyahıda.

Qələm seçdikdən sonra biz başqa element seçəcəyik Notebook . Görürsünüz ki, hər iki elementi tapdıq (aşağıdakı şəkil).

Bu kod bizə seçimi təkrar etməyə imkan verəcək. Tutaq ki, biz yenidən Qələm seçsək,

elementi yenidən seçim qutusunda tapacağıq.

Kod izahı

Biz iki sətir elan etdik Oldvalue və Yeni dəyər .

Siz D4 xanasında açılan siyahı hazırladığımızı görə bilərsiniz, buna görə də hədəf ünvanımız D4 -dur. Bundan əlavə, biz xananın məlumat doğrulamasından istifadə edib-etmədiyini yenidən yoxladıq Target.SpecialCells .

Dəyər seçildikdən sonra biz hadisələri ( Application.EnableEvents = False ) söndürdük, buna görə də dəyişikliklər baş verməsin. t hadisəni yenidən tetikler. Sonra seçilmiş elementi Yeni dəyər -də saxladıq.

Dəyişikliyi ləğv etdikdən sonra biz dəyəri Köhnə dəyər -ə təyin etdik. Sonra Oldvalue -in boş olub olmadığını yoxlayın. Boşdursa (yalnız bir dəyər seçilibsə), onda Yeni dəyər qaytarın. Əks halda, Oldvalue və Newvalue birləşdirin.

Tədbir bitməzdən əvvəl, lazım gələrsə, dəyişə bilək.

Daha ətraflı oxuyun: Birdən çox asılı açılan siyahı Excel VBA

2. Açılan siyahıdan Çoxlu Elementləri Seçin (Yalnız Unikal Seçim)

Əvvəlki bölmədə , təkrarlamaya icazə verilən çoxsaylı seçimləri gördük. Bunu istəmirsinizsə, bu bölməyə əməl edin.

Rahatlıq üçün biz bu nümayiş üçün ayrıca vərəqdən istifadə etdik. Bu dəfə Sheet3-dəyik. Bu vərəq üçün kod pəncərəsinə aşağıdakı kodu yazın.

6819

Əvvəlki kodla müqayisədə hər hansı fərq varmı? Daha yaxından baxın, cüzi fərqi görə biləcəksiniz.

Burada biz VBA adlı funksiyadan istifadə etdik. INSTR . INSTR funksiyası sətirdə alt sətirin ilk baş verdiyi mövqeyi qaytarır. Əlavə məlumat üçün bu INSTR məqaləsinə baxın.

Bu məntiqi əməliyyatı InStr(1, Oldvalue, Newvalue) = 0 ilə istifadə edərək, biz dəyərlərin tapılıb-tapılmadığını yoxladıq. Əgər məntiqi əməliyyat TRUE (əvvəllər tapılmadı) qaytarırsa, o, elementi seçməyə və əvvəlki dəyərlə birləşdirməyə imkan verir.

Kodu yadda saxlayın və indi artıq olan elementi seçməyə çalışın. seçilmişdir.

Burada biz artıq Qələm seçmişik, əgər onu yenidən seçmək istəsək, edə bilmərik. O, dublikat dəyərlərə icazə vermir.

Ətraflı oxuyun: Excel-də Başqa Vərəqdən Açılan Siyahı Necə Yaradılır

3. Seçin Yeni sətirdəki elementlər

İndiyə qədər elementlərin vergüllə ayrıldığını gördük. Bu bölmədə biz seçilmiş elementləri yeni sətirlərdə yerləşdirəcəyik.

Sadəlik üçün biz bir neçə xananı D4 xanası ilə birləşdiririk. Bunun üçün birləşdirmək istədiyiniz xanaları seçin və Birləşdirin & Ev tabının Hazırlama bölməsindən mərkəzləşdirin.

Xona daha çox hündürlük qazanacaq.

İndi isə yeni sətir vasitəsilə elementləri ayırmaq koduna baxaq. Aşağıdakı kodu istifadə edin

9445

Əvvəlki koddan yeganə fərq odur ki, bu dəfə biz OldValue və arasında vbNewLine istifadə etdik. NewValue .

vbNewLine elementlər arasında yeni sətir təqdim edir.

İndi elementləri seçin.

Yuxarıdakı şəkildə göstərilən Qələm elementi seçirik. İndi başqa element seçin.

İki elementin fərqli sətirlərdə olduğunu görəcəksiniz.

Burada iki elementimiz var. iki fərqli sətirdə olan dəyərlər. Başqa bir dəyər seçmək onu başqa sətirə əlavə edəcək. Hər bir dəyər yeni sətirdə olacaq.

Qeyd edək ki, elementləri ayırmaq üçün başqa bir ayırıcı istəyirsinizsə, onu vbNewline<10 əvəzinə qoşa dırnaq içərisində istifadə edin>.

Nəticə

Bu gün üçün hamısı budur. Açılan siyahıda çoxlu seçim etmək üçün bir neçə yanaşma sadaladıq. Ümid edirik ki, bunu faydalı tapacaqsınız. Bir şeyi başa düşmək çətin görünsə, şərh verməkdən çekinmeyin. Burada qaçırdığımız digər üsulları bizə bildirin.