Excel-dagi faol hujayradan diapazonni tanlash uchun VBA-dan qanday foydalanish kerak (3 usul)

Hugh West

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

Biz sizga 3 usullarini ko'rsatamiz Excel VBA - faol hujayradan diapazonni tanlash >. Buni ko‘rsatish uchun biz 3 ustunli ma’lumotlar to‘plamini tanladik: “ Ism ”, “ Familiya ” va “ E-pochta ”. Biz hujayra ni tanlaymiz va Excel VBA -dan foydalanib, u yacheyka dan diapazonni tanlaymiz.

Amaliyot kitobini yuklab oling

Active Cell.xlsm dan diapazonni tanlang

Excelda VBA yordamida faol hujayradan diapazonni tanlashning 3 usuli

1. Faol yacheykadan oxirgi bo'sh bo'lmagan katakcha oralig'ini tanlash uchun VBA dan foydalanish

Birinchi usul uchun biz Range.End xususiyatidan foydalanamiz.

Bu yerda biz kodimizni Module sifatida kiritamiz. Module oynasini ochish uchun quyidagilarni bajaring-

Qadamlar:

  • Birinchi navbatda, Dasturchi tab >>> Visual Basic -ni tanlang.

Visual Basic oynasi paydo bo'ladi.

  • Nihoyat, Insert >>> Module -ni tanlang.

Bu Module oynasini ochadi.

1.1. End(xlUp) xossasidan foydalanish

Ushbu bo'limda biz diapazon yuqoriga oxirgi bo'sh bo'lmagan katakchani bizning faol katakchamizdan .

Qadamlar:

  • Avval Module oynasini oching.
  • Ikkinchidan, typing quyidagi kod. 
9186

Biz qo'ng'iroq qilamiz Sub Protsedura ToUp . Keyin biz diapazonni tanlaymiz. Birinchi qiymat bizning faol katakchamiz . Oxirgi qiymat ActiveCell.End(xlUp) . Nihoyat, biz diapazon ni diapazon bilan tanlayapmiz. Select usuli.

  • Uchinchidan, Saqlash va oynani yoping.
  • Shundan so'ng C6 katakchasini tanlang. Bu hujayra bizning faol hujayra .

Endi biz Makro oynasini oching. Buning uchun-

  • Dasturchi yorlig'idan >>> Makrolar -ni tanlang.

Shundan so'ng Makro muloqot oynasi paydo bo'ladi.

  • Keyin, “ Makro nomi: ”dan “ ToUp ” ni tanlang.
  • Nihoyat, Ishga tushirish<2-ni bosing>.

Biz buni ko'rib turibmiz, biz tanlangan hujayra diapazoni C4:C6 .

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

1.2. End(xlDown) xossasini kiritish

Ushbu bo'limda biz faol katakchamizdan diapazon pastga ni tanlaymiz.

Qadamlar:

  • Birinchidan, Module oynasini oching.
  • Ikkinchidan, turi quyidagi kod. 
4908

Biz Sub Protsedurani ToDown deb nomlaymiz. Keyin biz diapazonni tanlaymiz. Birinchi qiymat bizning faol katakchamiz . Oxirgi qiymat ActiveCell.End(xlDown) . Nihoyat, biz diapazon ni diapazon bilan tanlash. usulni tanlash.

  • Uchinchidan, Saqlash va oynani yoping.
  • Shundan so'ng C6 katakchani tanlang. Bu bizning faol katakchamiz .

  • Keyin Makro dialog oynasini oching.
  • “ ToDown ”ni tanlang.
  • Nihoyat, Ishga tushirish tugmasini bosing.

Shunday qilib, biz Excel VBA -dan foydalanib, faol katakchamizdan diapazonni tanladik .

Batafsil o'qing: Excel VBA bo'sh katakchalar oralig'ida aylanish uchun (4 ta misol)

O'xshash maqolalar

  • Excel VBA: diapazondagi ustunlar boʻylab aylanish (5 ta misol)
  • Excelda diapazondagi har bir qator uchun VBA dan qanday foydalanish kerak
  • Excel makrosi: Dinamik diapazonga ega bir nechta ustunlarni saralash (4 usul)
  • VBA Excelda diapazondagi qatorlar va ustunlar boʻylab aylanish (5 ta misol)
  • Excel VBA da diapazonni massivga qanday aylantirish mumkin (3 usul)

1.3. End(xlToLeft) xossasini qo'llash

Ushbu bo'limda biz faol katakchamiz ning chap qismiga diapazon ni tanlaymiz. .

Qadamlar:

  • Birinchidan, Module oynasini oching.
  • Ikkinchidan, turi quyidagi kod. 
3489

Biz Sub Protsedurani ToLeft deb nomlaymiz. Keyin biz diapazonni tanlaymiz. Birinchi qiymat bizning faol katakchamiz . Oxirgi qiymat ActiveCell.End(xlToLeft) . Nihoyat, biz diapazon bilan diapazon ni tanlayapmiz. usulni tanlang.

  • Uchinchidan, Saqlash va oynani yoping.
  • Shundan so'ng D7 katakchasini tanlang. Bu bizning faol katakchamiz .

  • Keyin Makro dialog oynasini oching.
  • “ Chapga ”ni tanlang.
  • Nihoyat, Ishga tushirish tugmasini bosing.

Shunday qilib, biz Excel VBA -dan foydalanib, faol katakchamizdan diapazonni tanladik .

1.4. End(xlToRight) xossasini amalga oshirish

Ushbu bo'limda biz faol katakchamiz ning o'ng tomonidagi diapazon ni tanlaymiz. .

Qadamlar:

  • Birinchidan, Module oynasini oching.
  • Ikkinchidan, turi quyidagi kod. 
1838

Biz Sub Procedure ToRight deb nomlaymiz. Keyin biz diapazonni tanlaymiz. Birinchi qiymat bizning faol katakchamiz . Oxirgi qiymat ActiveCell.End(xlToRight) . Nihoyat, biz diapazon bilan diapazon ni tanlayapmiz. usulni tanlang.

  • Uchinchidan, Saqlash va oynani yoping.
  • Shundan so'ng, C8 katakchani tanlang. Bu bizning faol hujayramiz .

  • Keyin Makro dialog oynasini oching.
  • “ O‘ngga ”ni tanlang.
  • Nihoyat, Ishga tushirish tugmasini bosing.

Shunday qilib, biz diapazonni tanladik Excel VBA yordamida faol hujayradan .

2. Faol hujayradan diapazonni tanlash uchun VBA Range.Offset xususiyatidan foydalanish Excel da VBA dan foydalanish

Ikkinchi usul uchun biz faol katakchamiz yordamida diapazon ni tanlash uchun VBA Range.Offset xususiyatidan foydalanamiz. .

Qadamlar:

  • Birinchi navbatda Module oynasiga quyidagi kodni yozing . 
7547

Biz Ichki protsedura UsingOffset ni yaratdik. Keyin biz diapazonni tanlaymiz. Birinchi qiymat bizning faol katakchamiz . Oxirgi qiymat ActiveCell.Offset (1,2) . Ofset xossasi bilan biz 1 qatorni pastga va 2 ustunni o'ngga siljitamiz. Nihoyat, biz diapazon bilan diapazon ni tanlayapmiz. usulni tanlang.

  • Ikkinchidan, Saqlash va oynani yoping.
  • Shundan so'ng, B8 katakchani tanlang. Bu bizning faol hujayramiz .

  • Keyin Makro dialog oynasini oching.
  • “ UsingOffset ” ni tanlang.
  • Nihoyat, Ishga tushirish tugmasini bosing.

Xulosa qilib aytganda, biz faol katakdan diapazonni tanladik. Bundan tashqari, yakuniy bosqich shunday bo'lishi kerak.

Batafsil o'qing: Excel VBA: Qiymatli hujayralar diapazonini oling (7) Misollar)

3. CurrentRegion xususiyatidan foydalanib Excelda VBA-dan foydalanib Active Cell-dan Range-ni tanlang.

Oxirgi usul uchun biz Range.CurrentRegion xususiyatidan foydalanamiz.

Qadamlar:

  • Birinchi navbatda, Module oynasiga quyidagi kodni yozing . 
5988

Biz Sub Protseduramizni chaqiramiz. cRegion . Keyin biz diapazonni tanlaymiz. CurrentRegion xususiyati bilan biz diapazonni bo'sh katakcha gacha tanlayapmiz. Nihoyat, biz diapazon bilan diapazon ni tanlayapmiz. usulni tanlang.

  • Ikkinchidan, Saqlash va Excel varag'iga qayting.
  • Shundan so'ng, C10 katakchasini tanlang. Bu bizning faol katakchamiz .

  • Keyin Makro dialog oynasini oching.
  • “ cRegion ”ni tanlang.
  • Nihoyat, Ishga tushirish tugmasini bosing.

Shunday qilib, biz boʻsh katak gacha boʻlgan diapazon ni tanladik .

Amaliyot boʻlimi

Biz Excel faylida har bir usul uchun amaliy ma'lumotlar to'plamini taqdim etdik.

Xulosa

Biz' sizga 3 Excel VBA diapazonni faol hujayra dan tanlash usullarini ko'rsatdim. Agar qadamlarni tushunishda muammolarga duch kelsangiz, quyida izoh qoldiring. O'qiganingiz uchun tashakkur, muvaffaqiyatda davom eting!

Oldingi xabar YYYYMMGD sanani matnga qanday aylantirish mumkin (3 tezkor usul)
Keyingi post Excelda VBA DIR funksiyasidan qanday foydalanish (7 amaliy misol)

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.