Excel iş dəftərimizdə böyük verilənlər toplusumuz olduqda, əldə etmək istədiyimiz xüsusi nəticələri çıxarmaq üçün sətirlər arasında dövrə vura bilsək, bəzən rahat olur. 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 makrosu ilə Excel-də cədvəl sətirləri arasında dövrə vurmağın 11 müxtəlif üsulunu göstərəcəyik.

İş kitabını endirin.

Ödənişsiz Excel iş kitabını buradan yükləyə bilərsiniz.

VBA ilə Excel-də Cədvəl sətirləri arasında dövr etmək üçün 11 üsul

Bu bölmədən sonra siz cədvəl sətirləri arasında dövrə vurmağı 11 müxtəlif üsulla, Excel-də VBA makrosunun köməyi ilə boş xanaya qədər sətirlər arasında dövrə vurmaq, xüsusi dəyər tapılana qədər sətirlər arasında dövr etmək, sətirlər arasında dövr etmək və xüsusi xananı rəngləndirmək və s. kimi.

Yuxarıda metodları təsvir etmək üçün bu məqalənin izləyəcəyi nümunə verilənlər toplusudur.

1. Hüceyrə Referans Nömrəsi ilə Cədvəlin Hər Sətirindəki Hər Xanada Döngü etmək üçün VBA-nı yerləşdirin

Excel iş vərəqinizdə cədvəlin hər cərgəsindəki hər bir xanada dövr etmək istəyirsinizsə və xana istinad nömrəsini qaytarılan dəyər kimi əldə edin, sonra aşağıda müzakirə olunan addımları yerinə yetirin.

Addımlar:

• Əvvəlcə , klaviaturanızda Alt + F11 düyməsini basın və ya gedindəyişən.

8444

Bu kod parçası 1-dən 15-ə qədər sətirlər arasında dövrə vurmaq üçün buradadır. Əgər o, xüsusi “ Edge ” sözünü tapırsa, o, sözü saxlayan xananı rəngləndirir. O, sözün axtarışında 1-dən 15-ci sətirə qədər bütün verilənləri skan etməyi bitirənə qədər bunu etməyə davam edir.

Ətraflı oxuyun: VLOOKUP Cədvəl Massivindən Necə İstifadə Edilir Excel-də Hüceyrə Dəyəri

Oxşar oxumalar

• CƏDVƏL funksiyası Excel-də mövcuddurmu?
• Cədvəli Excel-də Siyahıya Necə Çevirmək olar (3 sürətli üsul)
• Excel-də diapazonu Cədvələ çevirmək (5 asan üsul)
• Excel Cədvəlində Düsturdan Səmərəli İstifadə Edin (4 Nümunə ilə)
• Excel Cədvəli Adı: Bilməli olduğunuz hər şey

7. Excel-də hər bir sətirdə dövrə vurmaq üçün VBA tətbiq edin və hər tək cərgəni rəngləndirin

Əvvəlki bölmədən biz konkret dəyər daşıyan xananın rənglənməsini öyrəndik. Bu bölmədə biz Excel-də VBA makrosunun köməyi ilə cədvəlin hər bir sətirində dövrə vurmağı və hər tək sıranı rəngləndirməyi öyrənəcəyik.

Prosesi yerinə yetirmək üçün addımlar aşağıda təsvir edilmişdir.

Addımlar:

• Əvvəlcə göstərildiyi kimi, Developer -dən Visual Basic Redaktoru açın. nişanı və Daxil et a Modul kod pəncərəsinə.
• Sonra, aşağıdakı kodu kopyalayın və yapışdırın kod pəncərəsi.

5821

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

• İndi, Çalışdırın makronu və nəticəni görmək üçün aşağıdakı şəklə baxın.

Bütün tək nömrəli sətirlər rənglidir iş vərəqinin cədvəlində yerləşən bütün sətirləri döndərdikdən sonra.

VBA Kodunun İzahı

6246

Dəyişənləri təyin edin.

8955

İşləyəcəyimiz diapazonu müəyyənləşdirin.

1465

Kodun bu hissəsi cari sıranın növbəti sətirindən başlayaraq bütün sətirlər üzrə iterasiyaya aiddir, B4 . Əgər sətir nömrələrinin 2-yə bölünməsi rejimi tam ədəddə saxlanılan qaytarılmış sətir nömrəsinə bərabərdirsə, bu kod kodda verilmiş Rəng İndeksi ilə hesablama ilə çıxarılan bütün sətirləri rəngləndirir. O, diapazonun sonuna çatana qədər bütün cərgələr arasında hərəkət etməyə davam edir.

8. Excel-də sətirlər arasında dövrə vurmaq və hər cüt sətirləri rəngləmək üçün VBA tətbiq edin

Əvvəlki bölmədə cədvəlin hər tək cərgəsini rəngləndirməyi öyrəndik. Bu bölmədə biz Excel-də VBA makrosunun köməyi ilə cədvəlin hər bir sətirində dövrə vurmağı və hər cüt sətiri rəngləndirməyi öyrənəcəyik.

Prosesi yerinə yetirmək üçün addımlar aşağıda müzakirə olunur.

Addımlar:

• İlk olaraq Developer tabından Visual Basic Redaktoru açın və Daxil edin a Module kod pəncərəsində.
• Sonra aşağıdakı kodu kopyalayın və yapışdırın kod pəncərəsinə.

6542

Kodunuz artıq hazırdırçalıştırın.

• Sonra, makronu Çalıştır və nəticəni görmək üçün aşağıdakı şəklə baxın.

İş vərəqinin cədvəlində yerləşən bütün sətirlər arasında dövr etdikdən sonra bütün cüt nömrəli sətirlər rənglənir .

VBA kodunun izahı

9032

Dəyişənləri müəyyənləşdirin.

2004

İşləyəcəyimiz diapazonu müəyyənləşdirin.

9552

Bu kod parçası təkrarlanandan sonra təkrarlanmağa başlayır. cari sıradan üç sıra, B4 . O, əvvəlcə onu rəngləndirir, sonra sıra sayını 2 artırır və verilənlər dəstinin sonuncu cərgəsinə çatana qədər onu rəngləndirməyə davam edir.

9. Excel-də Boş Hüceyrə qədər Satırlar arası İterasiya etmək üçün Makronu Tətbiq edin

Əgər kodunuzun onun kimi işləməsini istəyirsinizsə cədvəlin bütün sətirlərində dövrə vuracaq və boş xanaya çatdıqda dayanacaq , onda bu bölmə sizin üçündür. Siz həmin tapşırığı Excel VBA -də həm FOR Döngüsü , həm də Do-Until Döngəsi ilə yerinə yetirə bilərsiniz.

9.1. FOR Döngüsü ilə

VBA Excel-də FOR Döngəsi olan boş xana görünənə qədər cədvəldə sətirlər arasında dönmə addımları aşağıda verilmişdir.

Addımlar:

• Əvvəlcə Developer tabından Visual Basic Redaktoru açın və Daxil edin a Module kod pəncərəsində.
• Bundan sonra aşağıdakı kodu kopyalayın və yapışdırın kod pəncərəsinə.

2332

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

• Sonra Çalıştır makro və nəticə aşağıdakı gif-də göstərilir.

Makro işə salındıqdan sonra cədvəldəki bütün sətirlər arasında dövrə vurmağa başladı və boş xana, B8 xanasına çatdıqdan sonra iterasiyanı dayandırdı .

VBA Kod İzahatı

2425

Dəyişənləri müəyyənləşdirin.

1113

Ekranın yenilənməsi hadisəsini söndürün.

2104

B4 xanasından başlayaraq sonuncuya qədər bütün sətirləri saxlayın.

3150

Hüceyrə B4 -i seçin.

7078

Bu kod parçası bütün sətirlər arasında dövr etməyə başlayır. O, cərgədə boş xana tapdıqda onu seçir və sona çatana qədər sətirləri skan etməyə davam edir.

2844

Ekranın yenilənməsi hadisəsini yandırın.

9.2. Do-Until Loop ilə

Aşağıda VBA -də Do-Until loop olan boş xana verilənə qədər sətirlər arasında dövrə vurmaq üçün addımlar.

Addımlar:

• İlk olaraq, Developer nişanından Visual Basic Redaktoru açın və Daxil edin a Module kod pəncərəsində.
• Sonra, aşağıdakı kodu kopyalayın və yapışdırın kod pəncərəsinə.

1585

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

• Daha sonra, Çalıştır makronu. Nəticə aşağıdakı gif-də göstərilir.

Makro işə salındıqdan sonra cədvəldə bütün sətirlər arasında dövrə vurmağa başladı və bir dəfə boş xanaya, B8 xanasına çatdı, iterasiyanı dayandırdı .

VBA Koduİzahat

9775

İşləyəcəyimiz xananı seçin.

5797

Boş xana tapılana qədər dövrəyə başlayır və davam edir.

8193

Boş xana olduqda cərgədə tapın, sonra onu seçin və təkrarı dayandırın.

10. Excel-də Çoxlu Boş Hüceyrələrə Kadar Sətirlər üzrə İterasiya etmək üçün VBA Makronu

Əvvəlki bölmədə siz boş xana tapıldıqda döngəni necə dayandırmağı öyrəndiniz. Bəs siz bir əvəzinə birdən çox boş xana tapılana qədər iterasiyanı dayandırmaq istəmirsinizsə nə etməli?

Cədvəldə birdən çox boş xana tapılana qədər sətirlər arasında dönmə addımları ilə VBA Excel aşağıda göstərilmişdir.

Addımlar:

• İlk olaraq, Visual Basic Redaktoru açın. Developer nişanı və Daxil et a Modul kod pəncərəsində.
• Sonra, aşağıdakı kodu kopyalayın və yapışdırın onu kod pəncərəsinə.

6526

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

• İndi, Makronu çalıştırın və çıxış üçün aşağıdakı gif-ə baxın.

Makro işə salındıqdan sonra o dayanmadı. ilk boş xana, Hüceyrə B8 . B16 xanasında ardıcıl iki boş xana tapdıqda o dayandı.

VBA Kod İzahatı

7001

Xananı seçin ki, biz işləyəcəyik.

2576

Ardıcıl iki boş xana tapılana qədər dövrəyə başlayır və davam edir.

7913

Ardıcıl iki boş xana tapıldıqda, sonraonu seçin və təkrarı dayandırın.

11. Excel-də bütün sütunları boş qalana qədər birləşdirərək sətirlər arasında dövrə vurmaq üçün VBA-nı yerləşdirin

Bu bölmə sizə cədvəldəki bütün sətirləri necə döndərəcəyinizi və boş xanaya qədər bütün sütunları birləşdirməyinizi göstərəcək. VBA Excel ilə tapılır.

Gəlin bunu Excel-də VBA makrosu ilə necə edəcəyimizi öyrənək.

Addımlar:

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

8234

Kodunuz indi işə hazırdır.

• Daha sonra, Çalıştır və nəticə üçün aşağıdakı gif-ə baxın.

Yuxarıdakı gif-dən gördüyünüz kimi, hər birində yerləşən bütün sütunların birləşdirilmiş dəyərini göstərən MsgBox pop-up var. sətir Excel iş vərəqinizin cədvəlindən. Lakin boş xanaya çatdıqdan sonra dayandı .

VBA Kodunun İzahı

4764

Dəyişənləri təyin edin.

9400

İşləyəcəyimiz vərəq adını təyin edin (“ ConcatenatingAllColUntilBlank ” iş kitabındakı vərəq adıdır).

3004

İşləyəcəyimiz diapazonu müəyyənləşdirin.

9155

Bu kod parçası dövrəni massivlə başlayır. O, massivin ən böyük alt simvolunu və ən aşağı sərhədini qaytarana qədər dövrəyə davam edirbirinci ölçü. Sonra ikinci ölçüsün aşağı sərhədinin çıxarılması iterasiyasına daxil olur. Bundan sonra o, bütün çıxarılan dəyərləri iResult dəyişənində birləşdirərək və nəticəni MsgBox-a ataraq keçir. O, boş xana tapana qədər bunu etməyə davam edir.

Nəticə

Nəticədə bu məqalə sizə sətirlər arasında dövrə vurmağın 11 effektiv üsulunu göstərdi. Excel-də VBA makrosu ilə cədvəlin . Ümid edirəm bu məqalə sizin üçün çox faydalı oldu. Mövzu ilə bağlı istənilən sualı verməkdən çekinmeyin.

• Sonra, açılan kod pəncərəsində, menyu çubuğunda Daxil et -> Modul .

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

7350

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

• İndi, ekranda F5 düyməsini basın. klaviatura və ya menyu çubuğundan seçin Çalış -> Sub/UserForm -u işə salın. Siz həmçinin makronu işə salmaq üçün alt menyu çubuğundakı kiçik Oynatma işarəsinə klikləyə bilərsiniz.

• Və ya verilənlər toplusunu və nəticəni əyani şəkildə müşahidə etmək və müqayisə etmək, kodu saxlamaq və maraqlandığınız iş vərəqinə qayıda bilərsiniz.
• Oradan <1 düyməsini klikləyə bilərsiniz>Makrolar , Developer nişanından, Makro adını seçin, və sonra Çalışdır düyməsini basın.

Uğurlu kod icrasından sonra nəticəni görmək üçün yuxarıdakı gif-ə baxın. Excel vərəqinizdəki cədvəldən hər bir sətirdən hər xananın xana istinad nömrəsini göstərən MsgBox pop-up olacaq.

VBA kodunun izahı

6476

B sütununu axtararaq cədvəldə sonuncu sətir nömrəsini əldə etmək üçün.

8794

Məlumatlarımızın başladığı yerdən 4-cü sətir nömrəsini təyin edin.

4814

Birinci cərgədən dönmək üçün.

1656

Datalarımızın başladığı yerdən 2-ci sütunu təyin edin.

5339

Sonuncunu əldə etmək üçün sətirlər arasında dövr etməyə başlayıncari cərgəni sonuncu sətə qədər qiymətləndirərək sütun nömrəsi.

9598

Sütunu birinci cərgədən axırıncı cərgəyə qədər artır.

1847

Bu kod parçası emal etmək üçün işləyir, hər birindən sonra artır. iterasiya edin və kodun nəticəsini göstərin.

Ətraflı oxuyun: Excel Cədvəlində Avtomatik Yeni Sətir əlavə etmək olar

2 . Hər bir cərgədə hər bir xananı dəyərə görə çevirmək üçün VBA tətbiq edin

Əgər siz cədvəlin hər cərgəsindəki hər bir xananı dövrələmək və xanalarda olan dəyəri qaytarılan dəyər kimi atmaq istəyirsinizsə , onda bu bölmə sizə bunu VBA Excel ilə necə edəcəyinizi anlamağa kömək edəcək.

Bunu ListObject və <1 ilə edə bilərsiniz. VBA -nin>DataBodyRange xassəsi. Biz sizə həm obyekt, həm də xassə ilə makro kodu göstərəcəyik.

2.1. ListObject ilə

VBA Excel-də ListObject ilə xana dəyərinə görə cədvəlin hər sətirindəki hər bir xananı döngü etmək üçün addımlar aşağıda verilmişdir.

Addımlar:

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

3635

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

• Bundan sonra, Çalıştır makro yuxarıdakı bölmədə sizə göstərdiyimiz kimi. Nəticə gif-də göstəriliraşağıda.

Hər sətirdən hər bir hüceyrənin daşıdığı dəyəri göstərən MsgBox pop-up olacaq>Excel vərəqinizdəki cədvəldən.

VBA Kodunun İzahı

7345

Dəyişənləri müəyyənləşdirin.

9488

Bu parça kodu əvvəlcə cədvəldəki sətirlər arasında dövrə vurmağa başlayır (“ TblStudents ” bizim cədvəlimizin adıdır). Sonra hər sətir üçün sütunlar daxil edir. Bundan sonra xananın dəyərini MsgBox-a keçirin. Sonra növbəti sütuna keçin. Bir sətrin bütün sütunları arasında təkrarlama tamamlandıqdan sonra o, növbəti cərgəyə keçir və təkrarlama prosesini sonuncu sıraya qədər davam etdirir.

2.2. DataBodyRange Property ilə

Cədvəldən çıxarılan məlumatlarla daha konkret olmaq üçün siz ListObject -in DataBodyRange xassəsindən istifadə edə bilərsiniz. DataBodyRange xassəsi sizə başlıq cərgəsi ilə daxiletmə cərgəsi arasında siyahıdan diapazonu ehtiva edən nəticə çıxaracaq.

Hər cərgədəki hər bir xananı döndürə biləcəyiniz addımlar VBA Excel-də DataBodyRange ilə hüceyrə dəyəri ilə cədvəlin dəyəri aşağıda verilmişdir.

Addımlar:

• Göstərildiyi kimi əvvəl, Developer nişanından Visual Basic Redaktoru açın və kod pəncərəsində Daxil edin Modulu .
• Sonra , aşağıdakı kodu kopyalayın və onu kod pəncərəsinə yapışdırın .

1594

Kodunuz indi işə hazırdır.

• Daha sonra Çalışdırın makronu və nəticəni görmək üçün aşağıdakı gif-ə baxın.

Bir pop-up MsgBox sizə Excel vərəqinizdəki cədvəldən hər sətirdən hər bir xananın daşıdığı dəyəri göstərir.

VBA Kodu İzahatı

3576

Dəyişənləri təyin edin.

4551

Bu kod parçası əvvəlcə cədvəldəki sətirlər arasında dövr etməyə başlayır (“ TblStdnt ” bizim cədvəlin adıdır) və istisna olmaqla bir sıra dəyərləri qaytarır. cədvəlin başlıq sırası. Sonra diapazonun dəyərini MsgBox-a keçirin. Sonra diapazonu çıxarmaq üçün növbəti sıraya keçir və təkrarlama prosesini sonuncu sıraya qədər davam etdirir.

3. Excel-də sütunları birləşdirərək sətirləri təkrarlamaq üçün VBA makrosunu tətbiq edin

Bu bölmə verilənlər dəstinizdən sütunları birinci sütunla birləşdirərək cədvəldəki sətirlər arasında necə dövrə vuracağınızı göstərəcək. Excel-də.

Məsələn, verilənlər bazamız üçün əvvəlcə biz onları birləşdirərək John B5 və 101-i C5 xanasında təkrarlayacağıq və sonra təkrarlayacağıq. B5 xanasındakı Con və D5 xanasındakı 89-u sətir 5 -dən birləşdirərək.

Gəlin sizə bunu necə edə biləcəyinizi göstərək Excel-də VBA makrosu.

Addımlar:

• Əvvəlcə Visual Basic Redaktoru açın. 1>Developer nişanı və Daxil et a Modul kod pəncərəsində.
• İkincisi, kod pəncərəsində kopyalayın aşağıdakıları kodvə yapışdırın .

7876

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

• Üçüncü, Makronu çalıştırın . Nəticəni görmək üçün aşağıdakı gif-ə baxın.

Sizə birləşdirilən dəyəri göstərən pop-up MsgBox olacaq. birinci və ikinci sütunun xanalarının ( B sütunundan B5 xanasındakı Con və C sütunundan C5 xanasında 101) və sonra birləşdirilmiş dəyər birinci və üçüncü sütunun xanalarının ( Sütun B -dən B5 xanasındakı Con və D5 sütunundan -dən 89) sətir nömrəsi 5 verilənlər bazanızdan. Və bu birləşmə əməliyyatı cədvəlin sonuncu cərgəsinə çatana qədər davam edəcək.

VBA Kodunun İzahı

3815

Dəyişənləri təyin edin.

8045

Sonra kod aktiv vərəqdən cədvəli seçir (“ TblConcatenate ” bizim cədvəl adımızda).

7655

Bundan sonra, başlığı istisna olmaqla, hər bir sıra təkrarlamağa başlayır. sütun. İterasiya sütun başlığı və sətirlər arasında uyğunluq tapırsa, o, dəyəri iValue dəyişənində saxlayır.

4510

Yuxarıdakı şərt yerinə yetirilmirsə, onda kod dəyəri MsgBox-a atır və şərti tamamlayır. Bundan sonra o, başqa diapazonda dövrəyə keçir və son sıraya qədər təkrarlamağa davam edir. Son sıraya çatdıqdan sonra makro kodun icrasını bitirir.

4. Təkrar etmək üçün Makronu yerləşdirinExcel-də Cədvəldə Bütün Sütunları Birləşdirməklə Satırlar vasitəsilə

Bu bölmədə biz hər sətirin verilənlər bazasında saxladığı bütün sütunları ilə necə birləşdirəcəyimizi öyrənəcəyik. Excel-də VBA makrosu.

İcra ediləcək addımlar aşağıda göstərilmişdir.

Addımlar:

• İlk olaraq, Visual Basic Redaktoru Developer nişanından və Daxil edin Module kod pəncərəsində.
• Sonra, aşağıdakı kodu kopyalayın və onu kod pəncərəsinə yapışdırın .

4559

Sizin kodunuz artıq işə hazırdır.

• Sonra, Çalışdır makro kodu.

Yuxarıdakı gifdən də göründüyü kimi, orada Excel iş vərəqinizin cədvəlindən hər sətirdə yerləşən bütün sütunların birləşdirilən dəyərini sizə göstərən MsgBox pop-up.

VBA kodunun izahı

7978

Dəyişənləri müəyyən edin.

7016

İşləyəcəyimiz vərəqin adını təyin edin (“ ConcatenatingAllCol ” vərəq adıdır iş dəftərində).

3392

De işləyəcəyimiz cədvəlin adını dəqiqləşdirin (“ TblConcatenateAll ” verilənlər dəstimizdəki cədvəl adıdır).

8037

Cədvəlin hər sətirində iterasiyaya başlayır.

9078

Cədvəlin hər bir sətirinin hər bir sütunu vasitəsilə iterasiyaya başlayır.

7397

Hər bir sıranın hər bir sütununun daşıdığı dəyərləri kəsərək nəticəni yadda saxlayın. Hər bir cərgədə yerləşən bütün sütunları skan etdikdən sonra o, keçdinəticədə MsgBox. Sonra yenidən növbəti cərgədə dövrə vurmağa başlayır və cədvəlin sonuncu cərgəsinə çatana qədər dövrəyə davam edir.

Ətraflı oxuyun: Excel VBA ilə cədvəlin çoxsaylı sütunlarını necə çeşidləmək olar (2 Metod)

5. VBA Makro ilə Cədvəlin Satırları üzrə Döngələmə zamanı Dəyər Tapılıbsa, İterasiyanı dayandırın

Fərz edək ki, siz cədvəlinizin sətirləri arasında dövrə vurmaq istəyirsiniz və müəyyən bir dəyər tapdıqda dövrəni dayandırırsınız . Siz bunu sadə bir makro kodu ilə edə bilərsiniz.

Gəlin bunu necə edəcəyimizi öyrənək VBA Excel-də.

Addımlar:

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

2744

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

• Daha sonra makronu Çalışdırın .
• O, dövrəni başlatacaq və onu dayandıracaq. diapazonda xüsusi dəyəri (“ Edge ”) tapır və nəticəsini MsgBox -ə atır.

Yuxarıdakı şəkildən gördüyünüz kimi, sizə tapdığımız xana ünvanını, $B$10 göstərən pop-up MsgBox var. göstərilən dəyər, “ Kənar ” .

VBA Kod İzahatı

9924

Müəyyənləşdirin dəyişən.

6393

Bu kod parçası 1-dən 15-ə qədər sətirlər arasında dövr etmək üçün buradadır. Əgər o, xüsusi sözü taparsa“ Edge ” sonra nəticəni sözü tutan xana ünvanı ilə ötürür. O, sözün axtarışında 1-dən 15-ci sətirə qədər olan bütün məlumatları skan etməyi bitirənə qədər bunu etməyə davam edir.

Ətraflı oxuyun: Excel Cədvəlindən Sətir və Sütunları Necə Daxil Etmək və ya Silmək olar

6. Excel-də hər bir sətirdə dövrə vurmaq və xüsusi dəyəri rəngləmək üçün VBA

MsgBox-da göstərilən dəyərin xana ünvanını atmaq istəmirsinizsə nə etməli? Axtardığınız dəyəri daşıyan xananı rəngləmək istəyə bilərsiniz.

Gəlin bunu VBA makrosundan istifadə edərək öyrənək.

Addımlar:

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

4307

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

• Bundan sonra makronuzu Çalışdırın .
• O, diapazonda xüsusi dəyəri (“ Kənar ”) tapdıqda dövrəni başlatacaq və onu dayandıracaq və ColourIndex ilə xananı rəngləndirəcək kodda təqdim etdiyiniz.

Yuxarıdakı şəkildən gördüyünüz kimi, C B10 , göstərilən dəyəri tapdığımız yerdə “ Kənar ” kodun icrasından sonra rənglənir.

VBA Kodu İzahatı

5782

Müəyyənləşdirin