Excel ish daftarimizda katta ma'lumotlar to'plami mavjud bo'lsa, ba'zida biz olishni istagan aniq natijalarni olish uchun qatorlar bo'ylab aylana olsak qulay bo'ladi. VBA ni amalga oshirish Excelda har qanday operatsiyani bajarishning eng samarali, eng tez va xavfsiz usuli hisoblanadi. Ushbu maqolada biz sizga VBA makrosi yordamida Excelda jadval satrlarini aylanib o'tishning 11 xil usulini ko'rsatamiz.

Ishchi kitobini yuklab olish

Bu yerdan bepul Excel ish kitobini yuklab olishingiz mumkin.

VBA yordamida Excelda jadval qatorlari boʻylab aylanishning 11 usuli

Ushbu boʻlimdan soʻng siz jadval satrlari boʻylab aylanishni 11 xil usul bilan oʻrganasiz, masalan, bo'sh katakcha paydo bo'lguncha qatorlar bo'ylab aylanish, ma'lum qiymat topilguncha qatorlar bo'ylab aylanish, qatorlar bo'ylab aylanish va ma'lum bir katakchani ranglash va hokazo. Excelda VBA makros bilan.

Yuqorida usullarni tavsiflash uchun ushbu maqola amal qiladigan ma'lumotlar to'plamining namunasi keltirilgan.

1. VBA-ni jadvalning har bir qatoridagi har bir katakchani hujayra mos yozuvlar raqami bo'yicha o'tkazish uchun joylashtiring

Agar siz Excel ish varag'ingizdagi jadvalning har bir qatoridagi har bir katakchani o'tkazmoqchi bo'lsangiz va qaytariladigan qiymat sifatida hujayra mos yozuvlar raqamini oling, keyin quyida muhokama qilingan amallarni bajaring.

Qadamlar:

• Boshida , klaviaturada Alt + F11 tugmasini bosing yoki oʻtingo'zgaruvchi.

3905

Ushbu kod bo'lagi 1 dan 15 gacha satrlar bo'ylab aylanish uchun mo'ljallangan. Agar u " Edge " maxsus so'zini topsa, u so'z joylashgan katakni ranglaydi. U soʻzni qidirishda 1-dan 15-qatorgacha boʻlgan barcha maʼlumotlarni skanerlashni tugatmaguncha buni davom ettiradi.

Batafsil oʻqing: VLOOKUP Jadval massividan qanday foydalanish kerak? Excelda hujayra qiymati

Shunga o'xshash o'qishlar

• TABLE funktsiyasi Excelda mavjudmi?
• Jadvalni Excelda ro'yxatga qanday o'zgartirish mumkin (3 tezkor usul)
• Excelda diapazonni jadvalga aylantirish (5 ta oson usul)
• Excel jadvalidagi formuladan unumli foydalanish (4 ta misol bilan)
• Excel jadvali nomi: Siz bilishingiz kerak bo'lgan barcha narsalar

7. Excelda har bir satr boʻylab aylanish va har bir toq qatorni boʻyash uchun VBA ni qoʻllash

Oldingi boʻlimdan biz maʼlum qiymatga ega boʻlgan katakchani qanday boʻyashni bilib oldik. Ushbu bo'limda biz Excel dasturida VBA makros bilan jadvalning har bir qatori bo'ylab aylanish va har bir toq qatorni rang berishni o'rganamiz.

Jarayonni bajarish bosqichlari quyida tavsiflangan.

Qadamlar:

• Avval ko'rsatilganidek, Visual Basic Editor ni Dasturchi dan oching. yorlig'ini bosing va kod oynasiga Module ni qo'shing .
• Keyin, quyidagi kodni nusxalang va uni qo'ying . kod oynasi.

5795

Sizning kodingiz endi ishlashga tayyor.

• Endi, Ishga tushirish so'l va natijani ko'rish uchun quyidagi rasmga qarang.

Barcha toq sonli qatorlar rangli ishchi varaqning jadvalidagi barcha satrlarni aylantirgandan so'ng.

VBA kodining tushuntirishi

9425

O'zgaruvchini aniqlang.

3080

Biz ishlayotgan diapazonni aniqlang.

5464

Kodning bu qismi joriy qatorning keyingi qatoridan boshlab barcha qatorlar boʻylab iteratsiyaga ishora qiladi, B4 . Agar satr raqamlarini 2 ga bo'lish tartibi butun son turida saqlangan qaytarilgan qator raqamiga teng bo'lsa, u holda bu kod kodda taqdim etilgan Rang indeksi bilan hisoblash yo'li bilan chiqarilgan barcha qatorlarni ranglaydi. U diapazon oxiriga yetguncha barcha qatorlar bo‘ylab harakatlanadi.

8. Excelda qatorlar bo‘ylab aylanish va har bir juft qatorni ranglash uchun VBA ni qo‘llash

Oldingi bo‘limda biz jadvalning har bir toq qatorini qanday bo‘yashni o‘rgangan edik. Ushbu bo'limda biz Excel dasturida VBA makros yordamida jadvalning har bir qatorini aylanib o'tish va har bir juft qatorni bo'yashni o'rganamiz.

Jarayonni bajarish bosqichlari quyida muhokama qilinadi.

Qadamlar:

• Birinchi navbatda, Dasturchi yorlig'idan Visual Basic Editor -ni oching va Qo'shish a Module kod oynasida.
• Keyin, quyidagi kodni nusxalang va uni kod oynasiga qo'ying .

6864

Sizning kodingiz hozir tayyorishga tushirish.

• Keyin, Ishga tushirish makrosni va natijani ko'rish uchun quyidagi rasmga qarang.

Barcha juft sonli qatorlar ish jadvalidagi barcha qatorlar boʻylab aylantirilgandan soʻng ranglanadi .

VBA kodining tushuntirishi

8532

O'zgaruvchini aniqlang.

5694

Biz ishlaydigan diapazonni belgilang.

3561

Ushbu kod qismi keyin takrorlashni boshlaydi. joriy qatordan uchta qator, B4 . U avval uni ranglaydi, keyin qatorlar sonini 2 ga oshiradi va maʼlumotlar toʻplamining oxirgi qatoriga yetguncha rang berishda davom etadi.

9. Excelda bo'sh katakchaga qadar satrlar bo'ylab takrorlash uchun so'lni qo'llang

Agar siz kodingiz xuddi shunday ishlashini istasangiz jadvalning barcha qatorlari bo'ylab aylanib chiqadi va u bo'sh katakka yetganda to'xtaydi , keyin bu bo'lim siz uchun. Siz bu vazifani Excel VBA da FOR Loop va Do-Until Loop bilan ham bajarishingiz mumkin.

9.1. FOR Loop bilan

VBA Excelda FOR Loop bo'lgan bo'sh katakcha paydo bo'lguncha jadvaldagi satrlar bo'ylab aylanib o'tish uchun qadamlar quyida keltirilgan.

Qadamlar:

• Avvalida Dasturchi yorlig'idan Visual Basic Editor -ni oching va Qo'shish a Module kod oynasida.
• Shundan so'ng, quyidagi kodni nusxalang va uni kod oynasiga qo'ying .

4756

Sizning kodingiz endi ishlashga tayyor.

• Keyin, Ishga tushiring makro va natija quyidagi gifda ko'rsatilgan.

Makroni ishga tushirgandan so'ng, u jadvaldagi barcha qatorlar bo'ylab aylanishni boshladi va bo'sh katak B8 ga yetib borgach, u iteratsiyani to'xtatdi .

VBA kodini tushuntirish

8700

Oʻzgaruvchini aniqlang.

6179

Ekranni yangilash hodisasini oʻchirib qoʻying.

6996

Yacheyka B4 dan boshlab oxirgi qatorga qadar barcha qatorlarni saqlang.

1858

B4 katakchani -ni tanlang.

2541

Ushbu kod qismi barcha qatorlar bo'ylab aylana boshlaydi. U ketma-ket bo'sh katakni topgach, uni tanlaydi va oxirigacha qatorlarni skanerlashni davom ettiradi.

1695

Ekranni yangilash hodisasini yoqing.

9.2. Do-Until Loop bilan

Qadamlar quyida VBA da Do-Until tsikli bo'lgan bo'sh katakcha paydo bo'lguncha satrlar bo'ylab aylanish.

Qadamlar:

• Birinchi navbatda, Dasturchi yorlig'idan Visual Basic Editor -ni oching va Qo'shish a Module kod oynasida.
• Keyin, quyidagi kodni nusxalang va kod oynasiga qo'ying .

9801

Sizning kodingiz endi ishga tayyor.

• Keyinroq, Ishga tushirish makro. Natija quyidagi gif-da ko'rsatilgan.

Makroni ishga tushirgandan so'ng, u jadvaldagi barcha satrlarni aylana boshladi va bir marta u bo'sh katak, B8 katagiga yetdi, u iteratsiyani to'xtatdi .

VBA kodiIzoh

8101

Biz ishlaydigan katakchani tanlang.

9839

Bo'sh katak topilmaguncha tsiklni boshlaydi va davom ettiradi.

6602

Bo'sh katak bo'lganda qatorda topilgandan so'ng uni tanlang va iteratsiyani to'xtating.

10. Excelda bir nechta bo'sh hujayralar bo'lgunga qadar satrlar bo'ylab takrorlash uchun VBA makrosi

Oldingi bo'limda siz bo'sh katak topilganda tsiklni qanday to'xtatishni o'rgandingiz. Agar bitta o'rniga bir nechta bo'sh hujayralar topilmaguncha iteratsiyani to'xtatmoqchi bo'lmasangiz nima bo'ladi.

Jadvalda bir nechta bo'sh katakchalar topilmaguncha satrlar bo'ylab aylanish bosqichlari bilan VBA Excel quyida ko'rsatilgan.

Qadamlar:

• Birinchi navbatda, Visual Basic Editor -ni oching. Dasturchi yorlig'ini va Qo'shish a Moduli kod oynasida.
• Keyin, quyidagi kodni nusxalash va uni kod oynasiga joylashtiring.

3722

Sizning kodingiz endi ishlashga tayyor.

• Endi, Makrosni ishga tushiring va natija uchun quyidagi gif-ni ko'ring.

Makroni ishga tushirgandan so'ng, u to'xtamadi. birinchi bo'sh katak, hujayra B8 . U B16 uyasida ketma-ket ikkita bo'sh kataklarni topgach to'xtadi.

VBA kod tushuntirishi

6556

Uyachani tanlang biz ishlaymiz.

8145

Keyallanishni boshlaydi va ikkita ketma-ket bo'sh katak topilmaguncha davom etadi.

8268

Agar ikkita ketma-ket bo'sh katak topilsa, u holdauni tanlang va takrorlashni to'xtating.

11. Excelda barcha ustunlarni bo'sh qolguncha birlashtirish orqali VBA-ni qatorlar bo'ylab aylanish uchun joylashtirish

Ushbu bo'lim sizga jadvaldagi barcha satrlar bo'ylab aylanish va bo'sh katakchaga qadar barcha ustunlarni birlashtirishni ko'rsatadi. VBA Excel-da topiladi.

Keling, buni Excelda VBA makros bilan qanday qilishni bilib olaylik.

Qadamlar:

• Avvaliga Dasturchi yorlig'idan Visual Basic Editor -ni oching va Qo'shish Moduli kod oynasida.
• Keyin, quyidagi kodni nusxalang va uni kod oynasiga qo'ying .

5131

Kodingiz endi ishga tayyor.

• Keyinroq, Ishga tushirish so'l va natija uchun quyidagi gifni ko'ring.

Yuqoridagi gif-dan ko'rinib turibdiki, MsgBox qalqib chiquvchi oyna mavjud bo'lib, unda har bir sahifada joylashgan barcha ustunlarning birlashtirilgan qiymati ko'rsatilgan. satr Excel ish varag'ingiz jadvalidan. Lekin u boʻsh katakka yetib borgach toʻxtadi.

VBA kodini tushuntirish

8715

Oʻzgaruvchilarni aniqlang.

4421

Biz ishlaydigan varaq nomini o'rnating (“ ConcatenatingAllColUntilBlank ” - ishchi kitobdagi varaq nomi).

6866

Biz ishlayotgan diapazonni belgilang.

4289

Bu kod qismi massiv bilan siklni boshlaydi. U massivning eng katta pastki belgisini va pastki chegarasini qaytarmaguncha aylanishni davom ettiradibirinchi o'lchov. Keyin u ikkinchi o'lchamning pastki chegarasini chiqarish iteratsiyasiga kiradi. Shundan so'ng, u barcha chiqarilgan qiymatlarni iResult o'zgaruvchisida ularni birlashtirish va natijani MsgBox-ga tashlash orqali uzatadi. U bo'sh katak topmagunicha buni davom ettiradi.

Xulosa

Xulosa qilish uchun ushbu maqola sizga satrlar bo'ylab aylanishning 11 ta samarali usulini ko'rsatdi. VBA makros bilan Excelda jadvalining. Umid qilamanki, ushbu maqola siz uchun juda foydali bo'ldi. Mavzu bo'yicha har qanday savollarni berishingiz mumkin.

• Keyingi, qalqib chiquvchi kod oynasida, menyu satrida Qo'shish -> Modul .

• Keyin, quyidagi kodni nusxalang va kodga qo'ying. oyna.

Kodingiz endi ishga tushirishga tayyor.

• Endi, o'z sahifangizda F5 tugmasini bosing. klaviatura yoki menyu panelidan Ishga tushirish -> Sub/UserForm ni ishga tushiring. Shuningdek, makrosni ishga tushirish uchun pastki menyu satridagi kichik o'ynash belgisini bosishingiz mumkin.

• Yoki vizual guvohlik bering va ma'lumotlar to'plami va natijani solishtiring, siz kodni saqlab qo'yishingiz va qiziqtirgan ish varag'iga qaytishingiz mumkin.
• U yerdan <1 tugmasini bosishingiz mumkin>Makrolar Tuzuvchi yorlig'idan Makro nomini tanlang va keyin Ishga tushirish tugmasini bosing.

Kod muvaffaqiyatli bajarilgandan so'ng, natijani ko'rish uchun yuqoridagi gif-ga qarang. Excel sahifangizdagi jadvaldagi har bir satrdagi har bir katakning hujayra mos yozuvlar raqamini ko'rsatadigan MsgBox qalqib chiquvchi oyna paydo bo'ladi.

VBA kodini tushuntirish

5552

B ustunini qidirish orqali jadvaldagi oxirgi qator raqamini olish uchun.

3615

Ma'lumotlarimiz boshlanadigan 4-qatorni o'rnating.

8324

Birinchi qatordan aylanish uchun.

8587

Ma'lumotlarimiz boshlanadigan 2-ustun raqamini o'rnating.

3486

Oxirgi qatorni olish uchun qatorlar bo'ylab aylanishni boshlang.joriy satrni oxirgi qatorgacha baholash orqali ustun raqami.

2330

Ustunni birinchi qatordan oxirgi qatorgacha koʻpaytirish.

9200

Ushbu kod qismi qayta ishlash uchun ishlaydi, har bir satrdan keyin koʻpaytiriladi. iteratsiya qiling va kod natijasini ko'rsating.

Batafsil o'qing: Qanday qilib Excel jadvaliga avtomatik ravishda yangi qator qo'shish mumkin

2 . Har bir satrdagi har bir katakni qiymat bo'yicha aylantirish uchun VBA-ni qo'llang

Agar siz jadvalning har bir satridagi har bir katakchadan o'tishni va hujayralardagi qiymatni qaytariladigan qiymat sifatida tashlamoqchi bo'lsangiz bo'lsa, bu bo'lim buni VBA Excel bilan qanday qilishni aniqlashga yordam beradi.

Buni ListObject va <1 bilan amalga oshirishingiz mumkin>DataBodyRange VBA xususiyati. Biz sizga ob'ekt va xususiyatga ega makro kodni ko'rsatamiz.

2.1. ListObject bilan

VBA Excel-dagi ListObject yordamida jadvalning har bir qatoridagi katakchalar qiymati bo'yicha o'tish bosqichlari quyida keltirilgan.

Qadamlar:

• Avvalgidek, Dasturchi yorlig'idan Visual Basic Editor -ni oching va Kod oynasiga Moduli kiriting.
• Keyin, kod oynasida quyidagi kodni nusxalang va qo'ying u.

6460

Sizning kodingiz endi ishlashga tayyor.

• Bundan so'ng, Ishga tushirish makro Yuqoridagi bo'limda sizga ko'rsatganimizdek. Natija gif-da ko'rsatilganquyida.

Har bir qatordagi har bir katak tomonidan olib boriladigan qiymatini ko'rsatuvchi MsgBox qalqib chiquvchi oyna bo'ladi Excel varaqingizdagi jadvaldan.

VBA kodini tushuntirish

7511

O'zgaruvchilarni aniqlang.

3344

Ushbu qism Kod birinchi bo'lib jadvaldagi qatorlar bo'ylab aylana boshlaydi (“ TblStudents ” – bizning jadval nomi). Keyin har bir satr uchun ustunlarni kiritadi. Shundan so'ng, MsgBox-ga katak qiymatini o'tkazing. Keyin keyingi ustunga o'ting. Bir qatorning barcha ustunlari bo'ylab takrorlashni tugatgandan so'ng, u keyingi qatorga o'tadi va oxirgi qatorga qadar takrorlash jarayonini davom ettiradi.

2.2. DataBodyRange xususiyati bilan

Jadvaldan olingan ma'lumotlarga aniqroq munosabatda bo'lish uchun siz ListObject ning DataBodyRange xususiyatidan foydalanishingiz mumkin. DataBodyRange xususiyati sizga sarlavha qatori va qo'shish qatori o'rtasidagi ro'yxatdagi diapazonni o'z ichiga olgan natijani beradi.

Har bir satrdagi har bir katakchani aylanib o'tish bo'yicha qadamlar. VBA Excel-da DataBodyRange bilan hujayra qiymati bo'yicha jadvalning jadvali quyida keltirilgan.

Qadamlar:

• Ko'rsatilganidek oldin Visual Basic Editor -ni Dasturchi yorlig'idan oching va kod oynasida Qo'shish Moduli .
• Keyin. , quyidagi kodni nusxalang va uni kod oynasiga qo'ying .

8283

Sizning kodingiz endi ishlashga tayyor.

• Keyinroq, Ishga tushirish so'l va natijani ko'rish uchun quyidagi gif-ga qarang.

Qalqib chiquvchi oyna bo'ladi MsgBox sizga Excel varag'ingizdagi jadvaldagi har bir satrdan har bir katak tomonidan olib boriladigan qiymatni ko'rsatadi.

VBA kodining tushuntirishi

7177

Oʻzgaruvchini aniqlang.

5447

Ushbu kod qismi birinchi navbatda jadvaldagi qatorlar boʻylab aylana boshlaydi (“ TblStdnt ” bizning jadval nomi) va bir qator qiymatlarni qaytaradi. jadvalning sarlavha qatori. Keyin diapazon qiymatini MsgBox-ga o'tkazing. Keyin diapazonni chiqarish uchun keyingi qatorga o'tadi va oxirgi qatorgacha takrorlash jarayonini davom ettiradi.

3. Excelda ustunlarni birlashtirish orqali satrlar bo'ylab takrorlash uchun VBA makrosini qo'llang

Ushbu bo'limda ma'lumotlar to'plamidagi ustunlarni birinchi ustun bilan birlashtirish orqali jadvaldagi satrlarni aylantirish usuli ko'rsatiladi Excelda.

Masalan, bizning ma'lumotlar to'plamimiz uchun birinchi navbatda, ularni birlashtirish orqali John B5 va 101 C5 katakchalarini birlashtirish orqali takrorlaymiz va keyin takrorlaymiz. B5 katakdagi Jon va D5 katakchasidagi 89 ularni 5-qator dan birlashtirish orqali.

Buni qanday amalga oshirish mumkinligini sizga ko'rsatamiz. Excelda VBA makros.

Qadamlar:

• Avval Visual Basic Editor -ni <-dan oching. 1>Dasturchi yorlig'i va Qo'shish a Moduli kod oynasida.
• Ikkinchidan, kod oynasida nusxa quyidagini kodva qo'ying .

6671

Kodingiz endi ishga tushirishga tayyor.

• Uchinchidan, Ishga tushirish makrosni. Natijani ko'rish uchun quyidagi gif-ga qarang.

Sizga birlashtirilgan qiymatni ko'rsatadigan MsgBox qalqib chiquvchi oyna paydo bo'ladi. birinchi va ikkinchi ustundagi katakchalar ( B5 ustunidagi Jon B va 101 C5-ustun C ) va keyin birlashtirilgan qiymat birinchi va uchinchi ustun kataklari ( B5 katakdagi Jon B va 89 D5-ustun D ) 5-qator raqami ma'lumotlar to'plamidan. Va bu birlashtirish operatsiyasi jadvalning oxirgi qatoriga yetguncha davom etadi.

VBA kodining izohi

3845

O'zgaruvchini aniqlang.

4085

Keyin kod faol varaqdan jadvalni tanlaydi (“ TblConcatenate ” bizning jadval nomimizda).

7596

Shundan so'ng, sarlavhadan tashqari har bir qatorni takrorlashni boshlaydi. ustun. Agar iteratsiya ustun sarlavhasi va qatorlar oralig'ida moslikni topsa, u qiymatni iValue o'zgaruvchisida saqlaydi.

6393

Agar yuqoridagi shart bajarilmasa, u holda kod qiymatni MsgBox-ga tashlaydi va shartni tugatadi. Shundan so'ng, u boshqa diapazonda aylanishga o'tadi va oxirgi qatorga qadar takrorlashni davom ettiradi. Yakuniy qatorga yetib borgach, makros kod bajarilishini tugatadi.

4. Takrorlash uchun makrosni joylashtiringExcelda jadvaldagi barcha ustunlarni birlashtirish orqali satrlar orqali

Ushbu bo'limda biz har bir satrga ega bo'lgan barcha ustunlarni bilan bilan birlashtirishni o'rganamiz. Excelda VBA makros.

Bajarilishi kerak bo'lgan qadamlar quyida ko'rsatilgan.

Qadamlar:

• Birinchi navbatda <-ni oching. 1>Visual Basic Editor Developer yorlig'idan va Insert a Module kod oynasiga.
• Keyin, quyidagi kodni nusxalash va uni kod oynasiga joylashtirish .

5860

Sizning kodingiz endi ishga tayyor.

• Keyin, Ishga tushirish makros kodini.

Yuqoridagi gifdan ko'rinib turibdiki, u erda qalqib chiquvchi MsgBox sizga Excel ish varag'ingiz jadvalidagi har bir qatorda joylashgan barcha ustunlarning birlashtirilgan qiymatini ko'rsatadi.

VBA kodining tushuntirishi

3363

O'zgaruvchilarni aniqlang.

Biz ishlaydigan varaq nomini o'rnating (“ ConcatenatingAllCol ” - varaq nomi ish kitobida).

8407

De biz ishlaydigan jadval nomini yaxshilang (“ TblConcatenateAll ” - bu bizning ma’lumotlar to‘plamimizdagi jadval nomi).

3158

Jadvalning har bir qatori bo‘ylab takrorlashni boshlaydi.

9827

Jadvalning har bir satrining har bir ustuni orqali iteratsiyani boshlaydi.

3900

Har bir satrning har bir ustunidagi qiymatlarni kesish orqali natijani saqlang. Har bir satrda joylashgan barcha ustunlarni skanerdan o'tkazgandan so'ng, u o'tdinatijada MsgBox. Keyin yana keyingi qatorda aylanishni boshlaydi va jadvalning oxirgi qatoriga yetguncha aylanishni davom ettiradi.

Batafsil o'qing: Excel VBA yordamida jadvalning bir nechta ustunlarini qanday saralash mumkin (2 ta usul)

5. Agar qiymat VBA makrosi yordamida jadval satrlari boʻylab aylanib oʻtish natijasida topilsa, iteratsiyani toʻxtating

Fazrat qilaylik, siz jadvalingizdagi qatorlar boʻylab aylanishni xohlaysiz va u maʼlum bir qiymatni topganida tsiklni toʻxtating . Buni oddiy so'l kod yordamida qilishingiz mumkin.

Keling, buni qanday qilishni VBA Excelda o'rganamiz.

Qadamlar:

• Avvaliga Dasturchi yorlig'idan Visual Basic Editor ni oching va kod oynasida Qo'shish Moduli ni oching.
• Keyin, kod oynasida quyidagi kodni nusxalang va qo'ying .

6971

Kodingiz endi ishga tayyor .

• Keyinroq, Ishga tushirish makros.
• U siklni ishga tushiradi va ochilganda uni to'xtatadi. diapazondagi maxsus qiymat (“ Edge ”)ni topadi va natijani MsgBox ga chiqaradi.

Yuqoridagi rasmdan ko'rinib turibdiki, biz topilgan hujayra manzilini, $B$10 ni ko'rsatadigan qalqib chiquvchi MsgBox mavjud. belgilangan qiymat, “ Edge ” .

VBA kod tushuntirishi

5081

Taniqlash o'zgaruvchi.

3637

Ushbu kod qismi 1 dan 15 gacha satrlar bo'ylab aylanish uchun bu yerda. Agar u ma'lum bir so'zni topsa“ Edge ” so‘ng natijani so‘zni o‘z ichiga olgan katak manzili bilan uzatadi. U soʻzni qidirishda 1-dan 15-qatorgacha boʻlgan barcha maʼlumotlarni skanerlashni tugatmaguncha buni davom ettiradi.

Batafsil oʻqing: Excel jadvalidan qatorlar va ustunlarni qanday kiritish yoki oʻchirish mumkin

6. Har bir satr bo'ylab aylanish va Excelda ma'lum bir qiymatni bo'yash uchun VBA

Agar siz ko'rsatilgan qiymatning katak manzilini MsgBox-ga tashlashni xohlamasangiz nima bo'ladi? Siz qiymatga ega bo'lgan katakchani ranglashni xohlashingiz mumkin .

Keling, buni VBA makros bilan qanday qilishni bilib olaylik.

Qadamlar:

• Avvalgidek, Tuzuvchi yorlig'idan Visual Basic Editor -ni oching va Qo'shish a Module kod oynasida.
• Keyin, quyidagi kodni nusxalang va uni kod oynasiga qo'ying .

3882

Kodingiz endi ishga tushirishga tayyor.

• Shundan so'ng, Ishga tushirish makrosni.
• U diapazonda ma'lum qiymatni (“ Edge ”) topganida aylanmani boshlaydi va uni to'xtatadi va ColourIndex bilan yacheykani ranglaydi kodda ko'rsatganingiz.

Yuqoridagi rasmdan ko'rib turganingizdek, C ell B10 , biz belgilangan qiymatni topdik, “ Edge ” kod bajarilgandan keyin rang.

VBA kodini tushuntirish

5982

Aniqlang