Ustundagi foydalanilgan diapazonni tanlash uchun Excel VBA (8 ta misol)

Hugh West

02-06-2023 Makroslar va amp; Excel VBA
  • Buni Baham Ko'Ring
Hugh West

Mundarija

Ushbu qo'llanmada 8 Excel ustunida Ishlatilgan diapazon ni tanlash uchun VBA dan foydalanish misollari ko'rsatiladi. Odatda, exceldagi UsedRange xossasi ishchi varaqning unda ma'lumotlarga ega bo'lgan qismini ifodalaydi. Misollarni aniq ko'rsatish uchun biz barcha misollar uchun ma'lum bir ma'lumotlar to'plamida UsedRange xossasini qo'llaymiz.

Amaliyot kitobini yuklab oling

Mashq qilish kitobini shu yerdan yuklab olishimiz mumkin. .

Column.xlsm-da UsedRange-ni tanlash uchun VBA

Ustunda UsedRange-ni tanlash uchun VBA-ning 8 ta oson misoli

Quyidagi rasmda , biz barcha misollar uchun foydalanadigan ma'lumotlar to'plamini ko'rishimiz mumkin. Maʼlumotlar toʻplamida Sotuvchilar nomlari, ularning Joylashuvi , Hudud, va ‘ Jami miqdori ’ sotuvlar mavjud. Ushbu ma'lumotlar to'plamida sarlavhani o'z ichiga olgan holda foydalanilgan diapazon ko'rib chiqiladi. Shunday qilib, quyidagi ma'lumotlar to'plamida foydalanilgan diapazon ( B2:E15 ).

1. Excel

da VBA bilan Ustun ichida UsedRange ni tanlang.

Birinchi navbatda, biz ma'lumotlar to'plamimizdan barcha ustunlarni tanlaymiz. Buning uchun ustunlardagi VBA select UsedRange xususiyatidan foydalanamiz. Keling, ushbu usulni bajarish bosqichlarini ko'rib chiqamiz.

QADAMLAR:

  • Boshlash uchun, nomidagi faol varaqda sichqonchaning o'ng tugmachasini bosing ' Ustunlarni_tanlash '.
  • Bundan tashqari, ' Kodni ko'rish ' variantini tanlang.

  • Keyin yuqoridagi amal bo'sh joyni ochadi VBA Ushbu ish varag'i uchun kod oynasi. Biz ushbu kod oynasini Alt + F11 tugmalarini bosish orqali ham olishimiz mumkin.
  • Keyin, ushbu kod oynasiga quyidagi kodni kiriting: 
7841
  • Shundan so'ng kodni ishga tushirish uchun Ishga tushirish yoki F5 tugmasini bosing.

  • Nihoyat, quyidagi rasmdagi kabi natijaga erishamiz. Maʼlumotlar toʻplamimizdagi ustunlardagi foydalanilgan diapazon hozir tanlanganligini koʻrishimiz mumkin.

2. Ustundagi butun UsedRangedan nusxa olish uchun VBA dan foydalaning

Ikkinchi misolda biz ma'lumotlar to'plamimizdagi ustunlardagi barcha ishlatilgan diapazonni nusxalash uchun VBA -dan foydalanamiz. Umuman olganda, biz ushbu usuldan ma'lumotlar to'plamimizdan ma'lum bir hududni nusxalash uchun foydalanamiz. Ushbu usulni amalga oshirish uchun quyidagi amallarni bajarishimiz kerak.

QADAMLAR:

  • Birinchi, ' Nusxa olish '.
  • Keyingi, o'sha yorliqda sichqonchaning o'ng tugmasi tugmasini bosing va ' Kodni ko'rish ' variantini tanlang.

  • U joriy ish varag'i uchun bo'sh VBA kod oynasini ochadi. Ushbu oynani olishning yana bir usuli - klaviaturadan Alt + F11 ni bosish.
  • Keyin, ushbu kod oynasiga quyidagi kodni kiriting: 
4929
  • Endi kodni ishga tushirish uchun Ishga tushirish yoki F5 tugmasini bosing.

  • Nihoyat, natijani quyidagi kabi ko'rishimiz mumkin. Bundan tashqari, biz foydalanilgan diapazon atrofida chegara chizig'ini ko'rishimiz mumkin. Bu kodda ma'lumotlar nusxalanganligini bildiradibu chegara ichida.

Batafsil o'qish: Excel VBA: Dinamik diapazonni boshqa ish kitobiga nusxalash

3. Hisob raqami UsedRange-dagi Ustunlar soni VBA yordamida

Uchinchi misolda biz ma'lumotlar to'plamimizdagi ustunlar sonini Excel VBA ustundagi Used Range usulidan foydalanib hisoblaymiz. . Ushbu misol xabarlar oynasidagi ma'lumotlar to'plamidagi foydalanilgan diapazondagi ustunlarning umumiy sonini qaytaradi. Ushbu usulni bajarish uchun quyidagi amallarni bajaring.

QADAMLAR:

  • Birinchi navbatda, ' Ustunlar soni ' nomli faol varaqni tanlang.
  • Ikkinchidan, faol varaq nomini o'ng tugmasini bosing va " Kodni ko'rish " opsiyasini bosing.

  • Yuqoridagi buyruq faol ish varag'i uchun bo'sh VBA kod oynasini ochadi. Klaviaturadan Alt + F11 tugmalarini bosish orqali ham kod oynasini olishimiz mumkin.
  • Uchinchidan, bo'sh kod oynasiga quyidagi kodni kiriting: 
3175
  • Keyin, Ishga tushirish -ni bosing yoki kodni ishga tushirish uchun F5 tugmasini bosing.

  • Nihoyat, natijani xabarlar oynasida olamiz. Ishlatilgan diapazondagi ustunlar soni 4 .

Batafsil o'qing: diapazondagi qatorlarni hisoblash uchun VBA-dan qanday foydalanish kerak Excel-dagi ma'lumotlar bilan (5 ta makros)

4. Excel VBA-dan foydalanilgan diapazondagi oxirgi ustun sonini hisoblash uchun

Oldingi usulda biz oxirgi ustun raqamini chiqarib oldik. ishlatiladigan diapazon.Biroq, bu misolda biz VBA select UsedRange xususiyatidan foydalanib, butun ish varag'i bo'ylab ishlatilgan diapazondagi oxirgi ustun sonini aniqlaymiz. Keling, ushbu amalni bajarish uchun qanday amallarni bajarishimiz kerakligini ko'rib chiqaylik.

QADAMLAR:

  • Boshlash uchun sichqonchaning o'ng tugmachasini bosing ' Oxirgi ustun ' nomli faol varaqda.
  • Keyin, ' Kodni ko'rish ' variantini tanlang.

  • Demak, yuqoridagi buyruq ushbu ish varag'i uchun bo'sh VBA kod oynasini ochadi. Ushbu kod oynasini ochishning muqobil usuli Alt + F11 tugmasini bosishdir.
  • Shundan so'ng ushbu kod oynasiga quyidagi kodni kiriting: 
7729
  • Endi kodni ishga tushirish uchun Ishga tushirish yoki F5 tugmasini bosing.

  • Oxir-oqibat, biz natijani xabarlar oynasida olamiz. Ishlatilgan diapazondagi oxirgi ustun ishchi varaqning 5- ustunidir.

Shunga o'xshash o'qishlar

  • Excel-dagi diapazondagi har bir qator uchun VBA-dan qanday foydalanish kerak
  • VBA-dan Excel-dagi faol hujayradan diapazonni tanlash uchun foydalaning (3 usul)
  • Excel makrosi: Dinamik diapazon bilan bir nechta ustunlarni saralash (4 usul)

5. VBA bilan UsedRange-dan oxirgi ustunning oxirgi katakchasini tanlang

Beshinchi misolda Excel varaqidagi oxirgi ustunning oxirgi katakchasini tanlash uchun VBA select Used Range xususiyatidan foydalanamiz. Ushbu misolni ko'rsatish uchun bizoldingi ma'lumotlar to'plamimiz bilan davom etadi. Endi ushbu usulni bajarish bosqichlarini ko'rib chiqing.

QADAMLAR:

  • Avval " Oxirgi_Yacheyka<2" nomli faol varaqni tanlang>'.
  • Keyingi, o'sha varaq nomini o'ng tugmasini bosing . ' Kodni ko'rish ' variantini tanlang.

  • Keyin biz bo'sh VBA kod oynasini olamiz . Shuningdek, biz ushbu kod oynasini ochish uchun Alt + F11 tugmalarini bosishimiz mumkin.
  • Shundan soʻng ushbu kod oynasiga quyidagi kodni kiriting: 
4854
  • Endi kodni ishga tushirish uchun Ishga tushirish yoki F5 tugmasini bosing.

  • Nihoyat, natijani quyidagi rasmda ko'rishimiz mumkin. Oxirgi ustunning tanlangan oxirgi yacheykasi E15 katagidir.

6. Excel VBA

yordamida tanlangan UsedRange uchun hujayra diapazoni toping.

Ushbu misolda biz Excel ish varag'ida tanlangan ishlatilgan diapazonning hujayra diapazoni topish uchun VBA ni qo'llaymiz. Biz foydalanilgan diapazondagi barcha ustunlar uchun VBA koddan foydalanamiz. Kod yacheyka diapazonini hamda foydalanilgan diapazondagi ustun manzilini qaytaradi. Ushbu amalni bajarish uchun quyidagi amallarni bajaring.

QADAMLAR:

  • Avvalida faol varaq yorlig'ida sichqonchaning o'ng tugmasini bosing ' Hujayra diapazonini topish ' deb nomlangan.
  • Ikkinchidan, ' Kodni ko'rish ' variantini tanlang.

  • U bo'sh VBA kod oynasini ochadi. Ushbu kod oynasini ochishning yana bir usuli - Alt + F11 .
  • Uchinchidan, ushbu kod oynasiga quyidagi kodni kiriting: 
9534
  • Keyin, kodni ishga tushirish uchun bosing. Ishga tushirish yoki F5 tugmasini bosing.

  • Oxir-oqibat, quyidagi kabi xabar oynasi paydo bo'ladi. quyidagi rasmda natija ko'rsatilgan.

Shunga o'xshash o'qishlar

  • VBA - Qatorlar bo'ylab aylanish va Excelda diapazondagi ustunlar (5 ta misol)
  • Excel VBA da diapazonni massivga qanday aylantirish mumkin (3 usul)

7. Insert Bo'sh kataklarni hisoblash uchun VBA UsedRange xususiyati

Ushbu misolda Excel varaqidagi bo'sh kataklarni hisoblash uchun VBA select UsedRange xususiyatidan foydalanamiz. Ba'zan bizda ma'lumotlar to'plamining ishlatilgan diapazonida bo'sh hujayralar bo'lishi mumkin. Biz UsedRange xususiyatidan foydalanib, o'sha bo'sh kataklarning sonini osongina hisoblashimiz mumkin. Keling, ushbu misolni bajarish bosqichlarini ko'rib chiqamiz.

QADAMLAR:

  • Birinchi, ' deb nomlangan faol varaq yorlig'ida sichqonchaning o'ng tugmachasini bosing Bo'sh_hujayralar '.
  • Keyin, ' Kodni ko'rish ' variantini tanlang.

  • Yuqoridagi amal bo'sh VBA kod oynasini ochadi. Ushbu kod oynasini ochishning muqobil usuli Alt + F11 tugmasini bosishdir.
  • Keyin, ushbu kod oynasiga quyidagi kodni kiriting: 
6304
  • Keyin, Ishga tushirish -ni bosing yoki kodni ishga tushirish uchun F5 tugmasini bosing.

  • Nihoyat, natijani xabarlar oynasida olamiz. Thexabar oynasi biz foydalanilgan diapazondagi jami katakchalar va bo'sh hujayralar sonini ko'rsatadi.

8. Excel <10 ustunidagi birinchi bo'sh katakni aniqlash uchun VBA UsedRange>

Oxirgi misolda Excel ish varag'imizdagi birinchi bo'sh katakni topish uchun ustundagi Used Range xususiyatini tanlash uchun Excel VBA dan foydalanamiz. Ushbu usul ma'lum bir ustunning birinchi bo'sh katakchasini topadi. Bo'sh katak har doim ma'lumotlar to'plamining ishlatilgan diapazonidan tashqarida bo'ladi. Shunday qilib, agar foydalanilgan diapazonda biron bir katak bo'sh yoki bo'sh bo'lsa, bu usulda ko'rib chiqilmaydi. Endi ushbu usulni bajarish uchun quyidagi amallarni bajaring.

QADAMLAR:

  • Boshlash uchun faol tugmani sichqonchaning o'ng tugmasi bilan bosing ' Birinchi_Bo'sh ' nomli varaq yorlig'i.
  • Bundan tashqari, ' Kodni ko'rish ' variantini tanlang.

  • U bo'sh VBA kod oynasini ochadi. Shuningdek, ushbu kod oynasini ochish uchun Alt + F11 tugmalarini bosishimiz mumkin.
  • Bundan tashqari, VBA kod oynasining boʻsh joyiga quyidagi kodni kiriting: 
9433
  • Keyin, kodni ishga tushirish uchun Ishga tushirish yoki F5 tugmasini bosing.

  • Nihoyat, yuqoridagi kod E16 katagiga ' FirstEmptyCell ' qiymatini kiritadi. Bu ma'lumotlar to'plamining ishlatilgan diapazonidan keyingi E ustunining birinchi bo'sh katagidir.

Batafsil o'qish: Excel VBA Bo'sh katakchaga qadar diapazon bo'ylab aylanish (4 ta misol)

Xulosa

Xulosa qilib aytganda, ushbu qo'llanmada 8 Excel sahifasida VBA select UsedRange xususiyatidan foydalanishga misollar ko'rsatilgan. O'z mahoratingizni sinab ko'rish uchun ushbu maqolada ishlatiladigan amaliy varaqni yuklab oling. Agar sizda biron bir savol bo'lsa, iltimos, quyidagi qutiga sharh qoldiring. Bizning jamoamiz sizning xabaringizga imkon qadar tezroq javob berishga harakat qiladi. Kelajakda innovatsion Microsoft Excel yechimlaridan ehtiyot bo'ling.

Oldingi xabar Excel jadvaliga ma'lumotlar jadvalini qanday qo'shish mumkin (4 ta tezkor usul)
Keyingi post Excelda farqlar foizini qanday hisoblash mumkin (3 ta oson usul)

Hugh West - bu sohada 10 yildan ortiq tajribaga ega bo'lgan yuqori tajribali Excel treneri va tahlilchisi. Buxgalteriya hisobi va moliya yo‘nalishi bo‘yicha bakalavr va biznes boshqaruvi bo‘yicha magistr darajasiga ega. Xyu o'qitishga ishtiyoqi bor va unga amal qilish va tushunish oson bo'lgan o'ziga xos o'qitish usulini ishlab chiqdi. Uning Excel bo'yicha ekspert bilimlari butun dunyo bo'ylab minglab talabalar va mutaxassislarga o'z malakalarini oshirishga va o'z martabalarida muvaffaqiyat qozonishlariga yordam berdi. Xyu o'z blogi orqali o'z bilimlarini dunyo bilan baham ko'radi, jismoniy shaxslar va korxonalarga o'z salohiyatini to'liq ro'yobga chiqarishga yordam berish uchun bepul Excel darsliklari va onlayn treninglarni taklif qiladi.