VBA ni amalga oshirish Excelda har qanday operatsiyani bajarishning eng samarali, eng tez va xavfsiz usuli hisoblanadi. Ushbu maqolada biz Excelda VBA yordamida satrda boshqa satr mavjudligini qanday tekshirishni ko'rsatamiz.

Mashq shablonini yuklab oling

Siz bepul amaliyot Excel shablonini bu yerdan yuklab olishingiz mumkin.

Stringda qiymat borligini tekshirish uchun VBA.xlsm

6 VBA-dagi usullar Excelda satrda boshqa satr mavjudligini tekshirish

Ushbu bo'limda quyida siz satrda boshqa satr bor yoki yo'qligini tekshirish uchun VBA ni qanday amalga oshirish bo'yicha 6 ta samarali usulni topasiz. .

1. Satrda pastki qator mavjudligini tekshirish uchun VBA

Quyida InStr funksiyasi misolida Excelda satrda pastki qator bor yoki yoʻqligini aniqlash mumkin.

Qadamlar:

• Klaviaturangizda Alt + F11 tugmalarini bosing yoki Dasturchi -> Visual Basic -ni ochish uchun Visual Basic Editor .

• Qalqib chiquvchi kod oynasida, menyu panelidan , Qo'shish -> Modul .

• Kod oynasida quyidagi koddan nusxa oling va uni joylashtiring.

9719

Sizning kod endi ishga tayyor.

• Ishga tushirish makrosni.

Agar satringiz pastki qatorni o'z ichiga olgan bo'lsa, siz moslik topasiz, aks holda u hech qanday moslikni qaytarmaydi.

Bizning misolimizda , biz bilishni xohladik yoki bizning“ Film: Temir odam, Batmen, Supermen, O‘rgimchak odam, Tor ” asosiy qatorida “ Xulk ” so‘zi bor yoki yo‘q. Aksincha, biz Film topilmadi natijasini olamiz.

2. Satrda raqam bor yoki yoʻqligini tekshirish uchun VBA

Siz VBA kodidan foydalanib satrlarda raqamlar bor yoki yoʻqligini qidirishingiz mumkin.

Quyidagi misolga qarang. qaysi qatorlar film nomlari bilan raqamlar borligini topadi.

Satrlarda VBA raqamlari bor yoki yoʻqligini tekshirish bosqichlari quyida keltirilgan.

Qadamlar:

• Avvalgidek, Dasturchi yorlig'idan Visual Basic Editor -ni oching va Qo'shish a Module kod oynasida.
• Kod oynasida quyidagi koddan nusxa oling va uni joylashtiring.

3662

• Bu emas VBA dasturini ishga tushirish uchun quyi protsedura, bu Foydalanuvchi tomonidan belgilangan funktsiyani (UDF) yaratishdir, uni biz vazifani bajarish uchun ish varaqimizda chaqiramiz. Shunday qilib, kodni yozgandan so'ng, so'l faylni saqlash uchun Ishga tushirish tugmasini bosish o'rniga, menyu satridan Saqlash tugmasini bosing.
• Endi orqaga qayting. qiziqtirgan ish varag'iga o'ting va VBA kodida ( SearchNumber , kodning birinchi qatorida) va funksiya qavslari ichiga hozirgina yaratgan foydalanuvchi tomonidan belgilangan funksiyani yozing. , yetakchi raqamlarga ega boʻlgan satr katakchasining yacheyka mos yozuvlar raqamini kiriting (masalan, Uyacha)B5 ).
• Enter tugmasini bosing.

Siz mantiqiy qiymatga ega bo'lasiz ( TO'G'RI). yoki Yolg'on ), agar katakdagi satr raqamlardan iborat bo'lsa, siz TRUE , aks holda FALSE ni olasiz.

• Qaysi qatorda raqamlar mavjudligini va qaysi qatorda raqamlar yo‘qligini tekshirish uchun formulani qolgan katakchalarga qo‘llash uchun To‘ldirish dastagi kachani pastga torting.

3. Satrdan raqamlarni chiqarish uchun VBA

Yuqoridagi bo'limda biz satrda raqamlar bor yoki yo'qligini tekshirishni o'rganamiz. Va bu bo'limda biz bu raqamlarni qanday chiqarish va ularni boshqa katakchaga joylashtirishni quyida keltirilgan misol orqali o'rganamiz.

Satrlarda raqamlar bor yoki yo'qligini tekshirish va ularni chiqarish bosqichlari bilan VBA quyida keltirilgan.

Qadamlar:

• -dan Visual Basic Editor -ni oching. Tuzuvchi yorlig'i va Qo'shish a UserForm bu safar kod oynasidagi Qo'shish yorlig'idan.
• Ko'rsatilgan Asboblar qutisi dan torting. va UserForm da Buyruq tugmasi -ni tushiring.

• Ikki marta bosing tugmasini bosing, quyidagi koddan nusxa oling va uni joylashtiring.

4329

• kodni ishga tushiring va u sizni qiziqtirgan ish varag'iga olib boradi.
• Buyruq tugmachasini bosing va siz satrlardan chiqarilgan raqamni olasiz.

4. VBA satrda ma'lum harf mavjudligini tekshirish uchun

Bu usul deyarlisatrdagi pastki satrni tekshirish usuliga o'xshash.

Quyida Excelda qatorda ma'lum bir harf bor yoki yo'qligini aniqlash uchun InStr funksiyasi mavjud.

Qadamlar :

• Avvalgidek, Dasturchi yorlig'idan Visual Basic Editor -ni oching va Qo'shish Kod oynasida modul .
• Kod oynasida quyidagi koddan nusxa oling va uni joylashtiring.

4101

Sizning kodingiz endi ishlashga tayyor.

• Ishga tushirish dasturni. Agar satringiz harfini o'z ichiga olgan bo'lsa, siz moslik topasiz, aks holda u hech qanday moslik topilmaydi.

Bizning misolimizda , biz “ Film: Iron Man, Batman, Superman, Spiderman, Thor ” asosiy qatorida “ Z ” harfi bor yoki yoʻqligini bilmoqchi edik. ” yoki yo'q. Bunday bo'lmagani uchun biz Letter not found natijasini olamiz.

5. Satr diapazonida boshqa satr mavjudligini tekshirish uchun VBA

Biz berilgan satrda boshqa satr bor yoki yo'qligini tekshirishni o'rgandik. Ammo bu bo'limda biz qatorlar qatorida pastki qator bor yoki yo'qligini quyidagi ma'lumotlar to'plami misolida tekshirishni o'rganamiz.

Qadamlar:

• Dasturchi yorlig'idan Visual Basic Editor ni oching va kod oynasida Qo'shish Moduli ni oching. .
• Kod oynasida quyidagi koddan nusxa oling va uni joylashtiring.

9582

Kodingiz endi tayyorishga tushirish.

• kodni ishga tushirish .

Agar siz diapazoni string pastki qatorni o'z ichiga oladi, shunda siz moslikni topasiz, aks holda u hech qanday moslikni qaytarmaydi.

6. Stringdan satrlarni ajratib olish uchun VBA

Ushbu bo'limda biz satrlarda ma'lum pastki satrlar bor yoki yo'qligini tekshirish va ularni boshqa katakchadan chiqarish yo'llarini ko'rib chiqamiz.

Biz ma'lumotlarni ajratib olamiz. quyidagi maʼlumotlar toʻplamidan “ Kris ” bilan boshlangan ismlar.

Qadamlar :

• Ishlab chiquvchi yorlig'idan Visual Basic Editor -ni oching va kod oynasida Qo'shish Moduli -ni.
• Kod oynasida quyidagi koddan nusxa oling va uni joylashtiring.

7095

Sizning kodingiz ishga tayyor.

• Kodni ishga tushiring.

Faqat “ Kris ” bilan boshlangan ismlar oldindan belgilangan kataklarda saqlanadi.