VBA tətbiqi Excel-də istənilən əməliyyatı yerinə yetirmək üçün ən effektiv, ən sürətli və ən təhlükəsiz üsuldur. Bu yazıda biz sizə VBA istifadə edərək Excel-də sətirdə başqa sətir olub-olmadığını yoxlamaq yollarını göstərəcəyik.

Təcrübə Şablonunu Yükləyin

Siz pulsuz təcrübə Excel şablonunu buradan endirə bilərsiniz.

Strin Dəyəri İçəri Olmadığını Yoxlamaq üçün VBA.xlsm

6 VBA-da Metodlar Excel-də sətirdə başqa bir sətir olub-olmadığını yoxlamaq üçün

Bu bölmədə siz sətirdə başqa sətir olub-olmadığını yoxlamaq üçün VBA necə həyata keçiriləcəyinə dair 6 effektiv üsul tapa bilərsiniz. .

1. Sətirdə alt sətir olub-olmadığını yoxlamaq üçün VBA

Aşağıda Excel-də sətirdə alt sətir olub-olmadığını tapmaq üçün InStr funksiyasının nümunəsi verilmişdir.

Addımlar:

• Klaviaturanızda Alt + F11 düymələrini basın və ya nişana keçin Tərtibatçı -> Visual Basic Redaktoru açmaq üçün Visual Basic .

• Açılan kod pəncərəsində, menyu çubuğundan , klikləyin Daxil et -> Modul .

• Kod pəncərəsində aşağıdakı kodu kopyalayın və yapışdırın.

1483

Sizin kod indi işə salınmağa hazırdır.

• makronu işlədin .

Əgər sətiriniz alt sətrini ehtiva edirsə, onda siz uyğunluq tapılacaqsınız, əks halda heç bir uyğunluq tapılmayacaq.

Nümunəmizdə , bizim olub olmadığını öyrənmək istədik“ Film: Dəmir Adam, Batman, Supermen, Hörümçək adam, Tor ” əsas sətri “ Hulk ” sözünü ehtiva edir, ya yox. Əksinə, biz Film tapılmadı nəticəsini alırıq.

2. Sətirdə nömrə olub-olmadığını yoxlamaq üçün VBA

Siz VBA kodundan istifadə etməklə sətirlərdə nömrələrin olub-olmadığını araşdıra bilərsiniz.

Aşağıdakı nümunəyə baxın. hansı sətirlərin film adları olan nömrələri ehtiva etdiyini tapacaq.

Sətrlərdə VBA olan nömrələrin olub olmadığını yoxlamaq üçün addımlar aşağıda verilmişdir.

Addımlar:

• Əvvəlki kimi, Developer nişanından Visual Basic Redaktoru açın və Daxil edin kod pəncərəsində Module .
• Kod pəncərəsində aşağıdakı kodu kopyalayın və yapışdırın.

5427

• Bu, deyil VBA proqramının işə salınması üçün Alt Prosedur, bu, tapşırığı yerinə yetirmək üçün iş vərəqimizdə çağıracağımız User Defined Function (UDF) yaratmaqdır. Beləliklə, kodu yazdıqdan sonra Çalışdır düyməsini sıxmaq əvəzinə, makro faylı saxlamaq üçün menyu çubuğundan Saxla düyməsini sıxın.
• İndi geri qayıdın. maraqlandıran iş vərəqinə daxil edin və indicə yaratdığınız istifadəçi tərəfindən müəyyən edilmiş funksiyanı VBA kodunda ( AxtarışNömrəsi , kodun birinci sətirində) və funksiyanın mötərizəsinin içərisinə yazın. , aparıcı nömrələri olan sətir xanasının xana istinad nömrəsini daxil edin (məsələn, Xüceyrə)B5 ).
• Enter düyməsini basın.

Boolean dəyəri alacaqsınız ( DOĞRU və ya Yanlış ), xanadakı sətir ədədlərdən ibarətdirsə, onda siz DOĞRU alacaqsınız, əks halda YANLIŞ .

• Hansı sətirdə nömrələrin olub-olmadığını yoxlamaq üçün düsturu qalan xanalara tətbiq etmək üçün Doldurma Dəstəyi ilə xananı aşağı çəkin.

3. Sətirdən nömrələri çıxarmaq üçün VBA

Yuxarıdakı bölmədə biz sətirdə nömrələrin olub-olmadığını yoxlamaq yollarını öyrənirik. Və bu bölmədə biz həmin nömrələri necə çıxarıb başqa xanaya yerləşdirməyi aşağıda verilmiş nümunə ilə öyrənəcəyik.

Sətrlərdə ədədlərin olub-olmadığını yoxlamaq və onları çıxarmaq üçün addımlar VBA ilə aşağıda verilmişdir.

Addımlar:

• Visual Basic Redaktoru -ni açın. Developer nişanı və Daxil et a UserForm bu dəfə kod pəncərəsindəki Daxil et tabından.
• Görünən Alətlər qutusundan sürükləyin. və UserForm -də Command Button -ni buraxın.

• İki dəfə klikləyin. düyməsini basın, aşağıdakı kodu kopyalayın və yapışdırın.

7428

• Kodu işlədin və o sizi maraqlandıran iş vərəqinə aparacaq.
• Command Button üzərinə klikləyin və siz sətirlərdən çıxarılan nömrəni alacaqsınız.

4. Sətirdə müəyyən hərf olub-olmadığını yoxlamaq üçün VBA

Bu üsul demək olarsətirdə alt sətri yoxlamaq metoduna bənzər.

Aşağıda Excel-də sətirdə müəyyən hərfin olub-olmadığını tapmaq üçün InStr funksiyası var.

Addımlar :

• Əvvəlki kimi, Developer nişanından Visual Basic Redaktoru açın və Daxil edin Modul kod pəncərəsində.
• Kod pəncərəsində aşağıdakı kodu köçürün və yapışdırın.

1255

Kodunuz indi işləməyə hazırdır.

• Proqramı işlədin . Əgər sətirinizdə hərf varsa, onda siz uyğunluq tapacaqsınız, əks halda, heç bir uyğunluq tapılmadı.

Nümunəmizdə , biz “ Film: Iron Man, Batman, Superman, Spiderman, Thor ” əsas sətirimizdə “ Z hərfinin olub olmadığını öyrənmək istədik. ” və ya yox. Olmadığı üçün biz Məktub tapılmadı nəticəsini alırıq.

5. VBA sətir diapazonunda başqa sətir olub-olmadığını yoxlamaq üçün

Verilmiş sətirdə başqa sətir olub-olmadığını yoxlamaq üsulunu öyrəndik. Lakin bu bölmədə biz misal olaraq aşağıdakı verilənlər dəsti ilə sətir diapazonunda alt sətir olub-olmadığını yoxlamağı öyrənəcəyik.

Addımlar:

• Developer nişanından Visual Basic Redaktoru açın və kod pəncərəsində Daxil edin Modulu .
• Kod pəncərəsində aşağıdakı kodu kopyalayın və yapışdırın.

6323

Kodunuz indi hazırdırçalıştırın.

• Kodu işlədin .

Əgər sətir diapazonu alt sətri ehtiva edir, onda siz uyğunluq tapacaqsınız, əks halda, heç bir uyğunluq tapılmadığını qaytarmayacaq.

6. Sətirdən sətirləri çıxarmaq üçün VBA

Bu bölmədə biz sətirlərdə müəyyən alt sətirlərin olub-olmadığını yoxlamaq və onları başqa xanada çıxarmaq yollarını görəcəyik.

Biz sətirlərin məlumatını çıxaracağıq. aşağıdakı verilənlər dəstindən “ Chris ” ilə başlayan adlar.

Addımlar :

• Developer nişanından Visual Basic Redaktoru açın və kod pəncərəsində Daxil edin Modulu .
• Kod pəncərəsində aşağıdakı kodu kopyalayın və yapışdırın.

1996

Kodunuz artıq işə hazırdır.

• Çalışdır kodu.

Yalnız “ Chris ” ilə başlayan adlar əvvəlcədən təyin edilmiş xanalarda saxlanıla bilər.