➤ F5

Natija :

Keyin, siz quyidagi Xabar qutisi ikkinchi “I” pastki qatorning oʻrnini oʻz ichiga olgan holda olasiz. o'ng tomonda.

4-usul: Ma'lumotlar oralig'idagi satrdagi pastki satr o'rnini topish

Agar siz maxsus belgini topmoqchi bo'lsangiz “@” E-pochta identifikatori , keyin ushbu usulga amal qiling. Buning uchun men bu yerga Joylashuv ustunini qo'shdim.

01-bosqich :

➤Kuzatilish Qadam-01 Usul-1

2137

U FindSubstring nomli funktsiyani yaratadi (siz har qanday boshqa nomdan foydalanishingiz mumkin)

qiymati - qatorni o'z ichiga olgan katakcha havolasi va u Range deb e'lon qilinadi.

Qadam -02 :

➤Chiqishni tanlang Uya E5

➤Quyidagi funksiyani kiriting ( VBA tomonidan yaratilgan)

=FindSubstring(D5)

D5 - qatorni o'z ichiga olgan katak.

➤ tugmasini bosing ENTER

➤ Toʻldirish dastagi Asbob

Natija :

Keyin, siz E-pochta identifikatori da “ @” maxsus belgining oʻrinlarini olasiz.

Shunga o'xshash o'qishlar:

• Qanday topish mumkinExcelda VBA dan foydalangan holda katakchadagi satr (2 usul)
• Keyingisini Excelda VBA-dan foydalanib topish (2 ta misol)
• Qanday qilib qatorni topish mumkin Excelda VBA (8 ta misol)
• VBA Excelda oxirgi qatorni topish (5 usul)

5-usul: Muayyan pastki qatorni tekshirish a Ma'lumotlar diapazonidagi satr

Faraz qilaylik, siz Natija ustuniga qarab talabalar ismlariga O'tish yoki Muvofiq emas so'zlarini yozmoqchisiz. bu yerda O'tish yoki O'tmay qavs ichida yozilgan. Ushbu pastki qatorni Natijalar ustunida topish va uni O'tish yoki muvaffaqiyatsizlik ustuniga yozib olish uchun ushbu usulga amal qiling.

01-qadam :

➤ Usul-1

5514

ning 01-bosqichi ga amal qiling. Bu yerda hujayra diapazoni C5:C10 bu Natija ustuni

InStr(cell.value, “Pass”) > 0 bu raqam noldan katta boʻlgan shart (yacheykada “Oʻtish” mavjud boʻlsa)  keyin keyingi qator davom etadi va qoʻshni katakchadagi natijani Oʻtdi<12 deb beradi>.

Agar shart noto'g'ri bo'lsa, katakchada hech qanday “O'tish” yo'qligini bildiradi, u holda Else ostidagi qator bajariladi va chiqish qiymatini beradi. qo'shni katak Muvaffaqiyatsiz .

Ushbu tsikl har bir katak uchun davom etadi.

➤ F5

Natija :

Keyin, siz O'tish yoki muvaffaqiyatsiz bo'lganda quyidagi natijalarni olasiz. ustun.

6-usul: Satrdagi ma'lum bir kichik satrni tekshirish va ma'lumotlarni ajratib olish

Men ismli talabalarni topish yo'lini ko'rsataman. Maykl Talaba ismi ustunida va ushbu usulda VBA yordamida tegishli ma'lumotlarni chiqarib oling.

01-qadam :

➤ Usul-1

1807

Bu yerda men B100 Faol varaq diapazoni sifatida, lekin siz foydalanishingizga koʻra har qanday diapazondan foydalanishingiz mumkin.

InStr(1, Range("B" & i), "Michael") > 0 bu hujayraning mavjudligini tekshirish shartidir. B ustunida Maykl

Range("E" & icount & ":G" & icount) chiqish maʼlumotlari kerak boʻlgan diapazon va Range("B" & i & ":D" & i).value qiymatlarni beradi B ustunlaridan D gacha.

➤ F5

<11 tugmasini bosing>Natija :

Shundan so'ng siz Michael ismli talabalar uchun quyidagi olingan ma'lumotlarni olasiz.

7-usul: Word uchun pastki qatorni qidirish

Agar siz pastki qatorni so'z sifatida topmoqchi bo'lsangiz, u holda fol bu usulni kamaytiring.

01-bosqich :

➤ Usul-1

9775

U satrda bor yoki yoʻqligini tekshiradi va keyin uning pozitsiyasi beriladi

➤ F5 tugmasini bosing

Natija :

Keyin, siz quyidagi xabar oynasini olasiz, unda so'z:6 pozitsiyasida topilgan (<11 pozitsiyasi)>is ).

Siz sinab ko'rishingiz mumkinsatrda bo'lmagan so'z uchun ushbu kodni chiqaring.

➤Quyidagi kodni kiriting

7602

➤ F5

Natija :

Keyin, siz so'z topilmadi ni ko'rsatadigan quyidagi xabar oynasini olasiz.

8-usul: Instr va LEFT funksiyasidan foydalanish

Bu yerda men satrdagi pastki qatorning oʻrnini topish va yordamida ushbu kichik satr oldidagi matnlarni chiqarish yoʻllarini tushuntiraman. VBA va CHAP funksiyasi .

01-bosqich :

➤ qadam-01 ga amal qiling. 11>Usul-1

5357

j = InStr(txt, "is") pastki qatorning o'rni va Left(txt, j - 1) <11 dan oldingi pastki qatorlarni chiqaradi>is .

➤ F5

Natija :

tugmasini bosing Shundan so'ng siz quyidagi xabar oynasini olasiz, unda Bu yerda ( bo'lishidan oldin pastki satr ).

9-usul: Qalin Satrdagi ma'lum pastki satr

Ushbu usulga rioya qilish orqali Natijalar ustunidagi qavs oldidagi baholarni qalin qilib qo'yishingiz mumkin d.

01-bosqich :

➤ Usulning 01-bosqich -ga amal qiling- 1

9393

txt = InStr(1, Cell, "(") birinchi qavs o'rnini qaytaradi va Cell.Characters(1, txt - 1).Font.Bold pastki qatorni birinchi qavsdan oldin Qalin qiladi.

02-bosqich :

➤ Natija ustunini tanlang

➤O'tish Dasturchi Tab>> Makrolar Variant

Keyin, Makro sehrgar paydo bo'ladi.

➤ Boldingsubstring (VBA kod nomi) va keyin Run -ni tanlang.

Natija :

Bundan so'ng Natija ustun dagi baholar qalin bo'ladi.

Amaliyot bo'limi

O'zingiz mashq qilish uchun biz quyida Mashq deb nomlangan varaqdagi kabi Amaliyot bo'limini taqdim etdik. Iltimos, buni o'zingiz bajaring.

Xulosa

Ushbu maqolada men VBA yordamida pastki qatorni topishning eng oson usullarini yoritishga harakat qildim. Excelda samarali. Umid qilamanki, siz buni foydali deb topasiz. Agar sizda biron bir taklif yoki savol bo'lsa, ularni biz bilan baham ko'ring.