Vaziyatlarga qarab, ochiladigan ro'yxatda bir nechta qiymatlarni tanlashingiz kerak bo'lishi mumkin. Ushbu qo'llanmada biz sizga ochiladigan ro'yxatda bir nechta tanlovni qanday qilishni ko'rsatamiz. Ushbu seans uchun biz Excel 2019 dan foydalanmoqdamiz, oʻzingizga maʼqul boʻlgan versiyadan foydalaning.

Seansga kirishdan oldin, misollarimizning asosi boʻlgan maʼlumotlar toʻplami bilan tanishib olaylik.

Bu yerda bizda bir nechta ish yuritish elementlari bor, ulardan foydalanib biz ochiladigan roʻyxatni yaratamiz va u yerda bir nechta elementlarni tanlaymiz.

Esda tutingki, bu oddiy maʼlumotlar toʻplamidir. . Amaliy stsenariyda siz ancha kattaroq va murakkab ma'lumotlar to'plamiga duch kelishingiz mumkin.

Amaliy ish kitobi

Siz quyidagi havoladan mashq kitobini yuklab olishingiz mumkin.

Ochiladigan roʻyxatda bir nechta tanlov qilish.xlsm

Ochiladigan roʻyxatda bir nechta tanlash

Avvalo, biz quyidagi roʻyxat asosida ochiladigan roʻyxat yaratishimiz kerak. bizning kanselyariyalarimiz. Keling, uni tezda yarataylik. Ochiladigan ro'yxatni tuzish bo'yicha maqolaga tashrif buyurishdan tortinmang.

Ma'lumotlarni tekshirish dialog oynasida LIST ma'lumotlar turini tanlang va elementlarning hujayra diapazoni.

B4:B11 - ish yuritish elementlarini saqlaydigan diapazon. Endi siz ochiladigan ro'yxatni topasiz.

Batafsil o'qing: Tanlovga qarab Excel ochiladigan ro'yxati

1. ni tanlangBir nechta element (takroriy tanlashga ruxsat beradi)

Oddiy ochiladigan ro'yxat har doim bitta elementni tanlaydi. Bu erda ko'rishingiz mumkin, biz ro'yxatdan Pen ni tanladik (quyidagi rasm).

Endi boshqa elementni tanlasak, <7 deylik>Qalam

keyin u oldingi qiymatni almashtiradi. Faqat Qalam tanlangan qoladi.

Bir nechta elementlarni tanlash uchun biz VBA kodidan foydalanishimiz kerak. Microsoft Visual Basic for Applications oynasini oching (ochish uchun ALT + F11 tugmalarini bosing).

Endi siz tanlamoqchi bo'lgan ish varag'i nomi yoki raqamini ikki marta bosing. ochiladigan ro'yxatdagi bir nechta elementlar. Siz ushbu varaq uchun kod oynasini topasiz.

Mana, bizning ishchi kitobimizdagi Sheet2 uchun kod oynasi (bizda ochiladigan menyu mavjud) Ushbu varaqdagi ro'yxat).

Kod oynasi ochilgandan so'ng, u erga quyidagi kodni kiriting

2662

Kodni saqlang va endi qiymatlarni tanlashga harakat qiling. ochiladigan ro'yxatda.

Qalam -ni tanlab, biz boshqa elementni Notebook tanlaymiz. Ko'rib turganingizdek, biz ikkala elementni ham topdik (quyidagi rasm).

Ushbu kod bizga tanlovni takrorlash imkonini beradi. Aytaylik, agar biz yana Qalam ni tanlasak,

buyumni yana tanlash maydonidan topamiz.

Kod tushuntirishi

Biz ikki qatorni e'lon qildik Oldvalue va Yangi qiymat .

Siz D4 katakchasida ochiladigan roʻyxatni tuzganimizni koʻrishingiz mumkin, shuning uchun bizning maqsad manzilimiz D4 . Bundan tashqari, biz hujayra ma'lumotlar tekshiruvidan foydalanayotganini yoki Target.SpecialCells -dan foydalanmasligini qayta tekshirdik.

Qiymat tanlangandan so'ng, biz hodisalarni ( Application.EnableEvents = False ) o'chirib qo'ydik, shuning uchun o'zgarishlar sodir bo'lmaydi' t hodisani yana ishga tushiring. Keyin tanlangan elementni Yangi qiymat ga saqladik.

O'zgartirishni bekor qilgandan so'ng, biz qiymatni Oldvalue ga o'rnatdik. Keyin Oldvalue bo'sh yoki yo'qligini tekshiring. Agar bo'sh bo'lsa (faqat bitta qiymat tanlangan degani), Yangi qiymat ni qaytaring. Aks holda, Oldvalue va Newvalue ni birlashtiring.

Agar kerak bo'lsa, o'zgartirishimiz uchun hodisani tiklashni tugatishdan oldin.

Batafsil o'qing: Bir nechta bog'liq ochiladigan ro'yxat Excel VBA

2. Ochiladigan ro'yxatdan bir nechta elementlarni tanlang (faqat yagona tanlov)

Oldingi bo'limda , biz takrorlashga ruxsat berilgan bir nechta tanlovlarni ko'rdik. Agar buni xohlamasangiz, ushbu bo'limga amal qiling.

Qulaylik uchun biz ushbu namoyish uchun alohida varaqdan foydalandik. Bu safar biz Sheet3-damiz. Ushbu varaqning kod oynasiga quyidagi kodni yozing.

4131

Avvalgi kod bilan solishtirganda farq bormi? Yaxshilab ko'ring, siz ozgina farqni sezishingiz mumkin.

Bu erda biz VBA funksiyasidan foydalandik. INSTR . INSTR funksiyasi satrdagi pastki satrning birinchi paydo bo'lish o'rnini qaytaradi. Qo'shimcha ma'lumot olish uchun ushbu INSTR maqolasiga tashrif buyuring.

Ushbu mantiqiy operatsiyani InStr(1, Oldvalue, Newvalue) = 0 bilan ishlatib, biz qiymatlar topilgan yoki topilmaganligini tekshirdik. Agar mantiqiy operatsiya TRUE (ilgari topilmagan) qaytarsa, u elementni tanlash va oldingi qiymat bilan birlashtirish imkonini beradi.

Kodni saqlang va endi allaqachon mavjud elementni tanlashga harakat qiling. tanlangan.

Bu yerda biz allaqachon Qalam tanladik, agar yana tanlamoqchi bo'lsak, buni qilolmaymiz. U takroriy qiymatlarga ruxsat bermaydi.

Batafsil o'qing: Excelda boshqa varaqdan qanday ochiladigan ro'yxatni yaratish mumkin

3. Tanlang Yangi qatordagi elementlar

Hozircha biz elementlar vergul bilan ajratilganligini aniqladik. Ushbu bo'limda biz tanlangan elementlarni yangi qatorlarga joylashtiramiz.

Oddiylik uchun biz bir nechta katakchalarni D4 katakcha bilan birlashtiramiz. Buning uchun birlashtirmoqchi bo'lgan katakchalarni tanlang va Birlashtirish & Uy yorlig'ining Tizalanish bo'limidan markazga.

Hujayra ko'proq balandlikka ega bo'ladi.

Endi, yangi qator orqali elementlarni ajratish kodini ko'rib chiqamiz. Quyidagi koddan foydalaning

6419

Avvalgi koddan yagona farq shundaki, bu safar biz vbNewLine dan OldValue va oʻrtasida foydalandik. NewValue .

vbNewLine elementlar orasida yangi qatorni taqdim etadi.

Endi elementlarni tanlang.

Biz yuqoridagi rasmda ko'rsatilgan Qalam buyumni tanlaymiz. Endi boshqa elementni tanlang.

Ikkita element turli qatorlarda joylashganligini topasiz.

Bu yerda ikkitasi bor. qiymatlar, ular ikki xil qatorda joylashgan. Boshqa qiymatni tanlash uni boshqa qatorga qo'shadi. Har bir qiymat yangi satrda bo'ladi.

E'tibor bering, agar siz elementlarni ajratish uchun boshqa ajratuvchi qo'ymoqchi bo'lsangiz, uni vbNewline<10 o'rniga qo'sh tirnoq ichida ishlating>.

Xulosa

Bugun uchun hammasi shu. Biz ochiladigan ro'yxatda bir nechta tanlov qilish uchun bir nechta yondashuvlarni sanab o'tdik. Umid qilamanki, bu sizga foydali bo'ladi. Agar biror narsani tushunish qiyin bo'lsa, sharh qoldiring. Bu yerda oʻtkazib yuborgan boshqa usullarni bizga xabar bering.