Əgər siz VBA-dan istifadə edərək alt sətir tapmağın ən asan yollarını axtarırsınızsa, onda siz doğru yerdəsiniz. Bu məqaləni keçdikdən sonra siz alt sətirin mövqeyini tapa və ya bu alt sətirdən istifadə edərək məlumat çıxara və ya alt sətirin formatını asanlıqla dəyişə biləcəksiniz. Gəlin məqaləyə keçək.

İş kitabını endirin

VBA-dan istifadə edərək alt sətirləri tapmağın 9 yolu

Burada məndə aşağıdakılar var. VBA istifadə edərək bir sətirdə alt sətir tapmağın yollarını göstərəcəyim məlumat cədvəli. Təsadüfi sətirdə alt sətir tapmağın yollarını da göstərməyə çalışacağam.

Mən bu tapşırığı Microsoft Excel 365 versiyasından istifadə edərək yerinə yetirmişəm, siz öz rahatlığınıza uyğun istənilən başqa versiyadan istifadə edə bilərsiniz.

Metod-1: VBA istifadə edərək sətirdə alt sətirin tapılması

VBA istifadə edərək sətirdə istədiyiniz alt sətri tapmaq istəyirsinizsə, VBA kodunda InStr funksiyası.

Addım-01 :

➤ Developer Tab>> Visual Basic Seçim

Sonra Visual Basic Redaktoru açılacaq.

➤<11-ə keçin>Daxil edin Tab>> Modul Seçim

Bundan sonra Modul yaradılacaq.

Addım-02 :

➤Aşağıdakı kodu yazın

9775

Burada, InStr(1, " Düşünürəm ki, buna görə də varam”, “düşün”) sətrin alt sətirinin mövqeyini qaytaracaq. 1 -dirbaşlanğıc mövqeyi, “ Düşünürəm, buna görə də varam” istədiyiniz alt sətiri tapacağınız sətir və “düşün” tapmaq istədiyiniz alt sətirdir. Defolt olaraq hərf-həssasdır, ona görə də axtarmaq istədiyiniz alt sətirinizin hərfindən ehtiyatlı olun.

➤ F5

düyməsini basın. Nəticə :

Bundan sonra siz “düşün” alt sətirinin mövqeyini ehtiva edən aşağıdakı Mesaj Qutusu alacaqsınız.

Metod-2: Sətirdə hərflərə həssas olmayan alt sətirin tapılması

Əgər VBA istifadə edərək haldadan asılı olmayaraq sətirdə istədiyiniz alt sətir tapmaq istəyirsinizsə, bunu edin metod.

Addım-01 :

➤ Metod-1

3730

Burada vbTextCompare böyük hərflərə həssas olmayan alt sətri tapmaq üçün istifadə olunur.

➤ F5

düyməsini basın. Nəticə :

Sonra siz “düşün” alt sətirinin mövqeyini ehtiva edən aşağıdakı Mesaj Qutusu alacaqsınız.

Aşağıdakı koddan istifadə etməklə eyni şeyi edə bilərsiniz.

8173

Burada Müqayisəli Mətni Seçim böyük hərflərə həssas olmayan alt sətir tapacaq.

➤ F5

Nəticə düyməsini basın:

Sonra "düşünmək" alt sətirinin mövqeyini ehtiva edən aşağıdakı Mesaj Qutusu alacaq.

Metod-3: InstrRev funksiyasından istifadə VBA-da

Burada a-nın sonundan bir alt sətir tapmağın yolunu göstərəcəyəmsətir.

Addım-01 :

➤ Metod-1

4067

InStrRev sol tərəfin əvəzinə sağ tərəfdən olan alt sətri tapacaq.

➤ F5

Nəticə :

Sonra, siz aşağıdakı Mesaj Qutusu ikinci “I” alt sətirinin mövqeyini ehtiva edən Mesaj Qutusu alacaqsınız. sağ tərəf.

Metod-4: Məlumat diapazonunda sətirdə alt sətirin mövqeyinin tapılması

Xüsusi simvolu tapmaq istəyirsinizsə “@” E-poçt İd -də, sonra bu üsula əməl edin. Mən bu məqsədlə bura Mövqe sütunu əlavə etdim.

Addım-01 :

➤Follow Addım-01 Metod-1

4897

O, FindSubstring adlı funksiya yaradacaq (istənilən başqa addan istifadə edə bilərsiniz)

dəyər sətri ehtiva edən xana istinadıdır və o, Rəsm kimi elan edilir.

Addım -02 :

➤Çıxış seçin Cell E5

➤Aşağıdakı funksiyanı yazın ( VBA tərəfindən yaradılmışdır)

=FindSubstring(D5)

D5 sətri ehtiva edən xanadır.

➤ düyməsini basın ENTER

➤ Doldurma Dəstəyi Aləti

Nəticə :

Sonra, E-poçt İd-də “ @” xüsusi simvolun mövqelərini alacaqsınız.

Oxşar oxunuşlar:

• Necə Tapmaq olarExcel-də VBA-dan istifadə edərək hüceyrədə sətir (2 Metod)
• Excel-də VBA-dan istifadə edərəkNövbəti tap (2 Nümunə)
• Sətri necə tapmaq olar Excel-də VBA (8 Nümunə)
• VBA Excel-də Son Sətiri Tapın (5 üsul)

Metod-5: Müəyyən Alt-sətirin yoxlanılması a Data diapazonunda olan sətir

Fərz edək ki, siz Nəticə sütunundan asılı olaraq tələbələrin adlarına Keçir və ya Uyğun gəlmədi yazmaq istəyirsiniz burada Keçmə və ya Uğursuz mötərizədə yazılmışdır. Bu alt sətri Nəticə sütununda tapmaq və onu Uğursuz və ya uğursuz sütununda yazmaq üçün bu metodu izləyin.

Addım-01 :

➤ Metod-1

1492

Burada xana diapazonu C5:C10 bu, Nəticə sütunu

InStr(cell.value, “Keçmə”) > 0 rəqəmin sıfırdan böyük olduğu şərtdir (xanada “Keçmə” olduqda)  onda aşağıdakı sətir davam edəcək və bitişik xanada çıxışı Keçildi<12 kimi verəcəkdir>.

Şərt yalnış olarsa, xanada heç bir “Keçmə” yoxdur, o zaman Else altındakı sətir yerinə yetiriləcək və çıxış dəyərini xanada verəcəkdir. qonşu xana Uğursuz kimi.

Bu dövrə hər bir xana üçün davam edəcək.

➤ F5

Nəticə :

Sonra, Keçmə və ya uğursuzluqda aşağıdakı çıxışları əldə edəcəksiniz sütun.

Metod-6: Sətirdə müəyyən alt sətirin yoxlanılması və verilənlərin çıxarılması

Adlı tələbələri tapmağın yolunu göstərəcəyəm. Michael Tələbə Adı sütununda və bu üsulda VBA istifadə edərək onların müvafiq məlumatlarını çıxarın.

Addım-01 :

➤ Metod-1-dən Addım-01 ə əməl edin

2145

Burada mən B100 Aktiv Vərəq Aralığı kimi, lakin siz istifadənizdən asılı olaraq istənilən diapazondan istifadə edə bilərsiniz.

InStr(1, Range("B" & i), "Michael") > 0 xananın daxilində olub olmadığını yoxlamaq üçün şərtdir. B sütununda Michael

Range("E" & icount & ":G" & icount) çıxış məlumatlarınızı istədiyiniz diapazondur və Range("B" & i & ":D" & i).value dəyərləri verəcək B -dən D -ə qədər.

➤ F5

<11 düyməsini basın>Nəticə :

Bundan sonra siz Michael adlı tələbələr üçün aşağıdakı çıxarılmış məlumatları əldə edəcəksiniz.

Metod-7: Word üçün alt sətir axtarışı

Əgər alt sətri söz kimi tapmaq istəyirsinizsə, o zaman fol bu metodu aşağı salın.

Addım-01 :

➤ Metod-1

8137

Sətrin in olub olmadığını yoxlayacaq və sonra onun mövqeyi veriləcək

➤ F5 düyməsini basın

Nəticə :

Sonra siz aşağıdakı mesaj qutusunu alacaqsınız, burada sözün mövqeyi:6 (<11-in mövqeyi)>is ).

Sınaya bilərsinizsətirdə olmayan söz üçün bu kodu çıxarın.

➤Aşağıdakı kodu yazın

7838

➤ F5

Nəticə :

Daha sonra siz söz tapılmadı -ni göstərən aşağıdakı mesaj qutusunu alacaqsınız.

Metod-8: Instr və LEFT funksiyasından istifadə

Burada mən sətirdəki alt sətirin yerini tapmağın və bu alt sətirdən əvvəlki mətnləri istifadə edərək çıxarmağın yolunu izah edəcəyəm. VBA və SOL funksiyası .

Addım-01 :

➤ Addım-01 i izləyin. 11>Metod-1

1942

j = InStr(txt, "is") alt sətirin mövqeyi dir və Left(txt, j - 1) <11-dən əvvəl alt sətirləri çıxaracaq> dir.

➤ F5

Nəticə :

düyməsini basın Daha sonra siz Burada ( dən əvvəl alt sətir ) göstərən aşağıdakı mesaj qutusunu alacaqsınız.

Metod-9: Qalınlama Sətirdə müəyyən alt sətir

Bu metodu izləməklə Nəticə sütununda mötərizədən əvvəl qiymətləri qalınlaşdıra bilərsiniz d.

Addım-01 :

➤ Üsulun Addım-01 -ni izləyin 1

4439

txt = InStr(1, Cell, "(") birinci mötərizənin mövqeyini qaytaracaq və Cell.Characters(1, txt - 1).Font.Bold alt sətri birinci mötərizədən əvvəl Qalın edəcək.

Addım-02 :

➤ Nəticə sütununu seçin

➤Get Developer Tab>> Makrolar Seçim

Sonra Makro sehrbaz görünəcək.

➤ Boldingsubstring (VBA kod adı) və sonra Çalışdır seçin.

Nəticə :

Bundan sonra Nəticə Sütun qalın şriftlə yazılacaq.

Təcrübə Bölməsi

Özünüz təcrübə etmək üçün biz Təcrübə adlı vərəqdə aşağıdakı kimi bir Təcrübə bölməsini təqdim etmişik. Zəhmət olmasa özünüz edin.

Nəticə

Bu məqalədə mən VBA istifadə edərək alt sətirləri tapmağın ən asan yollarını əhatə etməyə çalışdım. Excel-də effektiv şəkildə. Ümid edirəm ki, faydalı tapacaqsınız. Hər hansı təklif və ya sualınız varsa, onları bizimlə bölüşməkdən çəkinməyin.