Excel-də diapazonda sətirlər arasında dövr etmək üçün VBA (6 nümunə)

  • Bunu Paylaş
Hugh West

Bu dərslikdə biz Excel-də diapazonda sətirlər arasında dövrə vurmaq üçün VBA -dən necə istifadə edəcəyimizi əhatə edəcəyik. Eyni şeyi təkrar-təkrar etməmək üçün döngələrdən istifadə edirik. Microsoft Excel proqramında işləyərkən biz özümüzü elə bir vəziyyətdə tapa bilərik ki, eyni tapşırığı dəfələrlə yerinə yetirməliyik. Biz bunu VBA -də döngələrdən istifadə etməklə asanlıqla edə bilərik. Bu yazıda biz VBA ilə Excel-də sətirlər arasında dövr etmək üçün 6 nümunə nümayiş etdirəcəyik. Nümunələr boyu istifadə edəcəyimiz döngə ' Next Döngü 'dir.

Təcrübə İş Kitabını Yükləyin

Təcrübə iş kitabını buradan endirə bilərik.

Range.xlsm-də VBA Satırlar üzrə Döngə

Excel-də VBA ilə Aralıqda Satırlar Arası Döndürmək üçün 6 Nümunə

Nümunələri göstərmək üçün bu dərslikdə biz aşağıdakı verilənlər dəstindən istifadə edəcəyik. Datasetdə 5 Satıcı nın ilk iki ayı üzrə satış məbləğləri var.

1. Sətirlər arası dövrə vurmaq üçün Dəyişən diapazonlu VBA-dan istifadə edin

Birinci misalda biz excel-də VBA dən istifadə edərək diapazondakı sətirlər arasında dövr etmək üçün diapazon dəyişənindən istifadə edəcəyik. Biz aşağıdakı verilənlər dəstində VBA dövrəsini tətbiq edəcəyik.

Bu nümunəni yerinə yetirmək üçün addımlara baxaq.

ADDIMLAR:

  • Başlamaq üçün ' Range Variable ' aktiv iş səhifəsinə keçin.
  • Bundan əlavə, sağ klikləyin və ' Koda Baxın ' seçimini seçin. Siz də basa bilərsiniz Alt + F11 onu açmaq üçün.

  • Yuxarıdakı əməliyyat həmin iş vərəqi üçün kod pəncərəsini açır. .
  • Bundan əlavə, kod pəncərəsində kodu daxil edin:
8797
  • Sonra Çalışdır və ya F5 <2 düyməsini basın>kodu işlətmək üçün.

  • Nəhayət, aşağıdakı skrinşot kimi nəticələr əldə edəcəyik.

Ətraflı oxuyun: Excel VBA: Aralıqda Sütunlar üzrə Döngə (5 Nümunə)

2. Rəqəm Dəyişənləri

Aralıqda sətirlər arasında dövrə vurmaq üçün başqa bir seçim dəyişəni seçməkdir. İkinci misalda biz rəqəmsal dəyişənlərlə diapazonda sətirlər arasında dövr etmək üçün aşağıdakı verilənlər dəstində VBA tətbiq edəcəyik.

Gəlin baxaq bu metodu yerinə yetirmək üçün addımlar.

ADDIMLAR:

  • İlk olaraq " Rəqəm" adlı aktiv vərəqdə sağ klikləyin Dəyər '.
  • Sonra ' Koda Baxın ' seçimini seçin.

  • Bu hərəkət həmin iş vərəqi üçün kod pəncərəsini açacaq. Siz həmçinin həmin kod pəncərəsini açmaq üçün Alt + F11 düyməsini sıxa bilərsiniz.
  • Həmin pəncərəyə aşağıdakı kodu daxil edin:
9193
  • Bundan sonra kodu işə salmaq üçün Çalışdır üzərinə klikləyin və ya F5 düyməsini basın.

  • Nəhayət, aşağıdakı şəkildəki kimi nəticələri görə bilərik. Yuxarıdakı kod ədədin formatını onluq nöqtələrə çevirir.

Oxuyun.Ətraflı: Excel-də diapazonda sətirlər və sütunlar arasında dövrə vurmaq üçün VBA (5 Nümunə)

3. Excel VBA diapazonda sətirlər arasında dövrə vurmaq üçün İstifadəçi tərəfindən seçilmiş diapazonda

üçüncü misal, biz istifadəçi tərəfindən seçilmiş diapazonda VBA -dən istifadə edəcəyik ki, diapazondakı sətirlər arasında dövrə vuraq. Beləliklə, istifadəçi verilənlər toplusunun seçilmiş sahəsində dövrə tətbiq edə biləcək.

Gəlin bu nümunə ilə əlaqəli addımlara baxaq.

ADIMLAR:

  • Əvvəlcə xana diapazonunu seçin ( D5:D9 ).

  • Sonra, ' İstifadəçi Seçildi ' adlı aktiv vərəqdə sağ klikləyin . ' Koda Baxın ' seçimini seçin.

  • Yuxarıdakı əmr VBA kod pəncərəsini açacaq aktiv iş vərəqi üçün. Siz həmçinin Alt + F11 düymələrinə basaraq həmin kod pəncərəsini aça bilərsiniz. Həmin boş kod pəncərəsinə aşağıdakı kodu daxil edin:
7042
  • Sonra həmin iş vərəqinin kodunu işə salmaq üçün Çalışdır üzərinə klikləyin və ya F5 açar.

  • Beləliklə, seçilmiş diapazonun ilk dəyərini göstərən mesaj qutusu görünür.

  • Bundan əlavə, OK üzərinə klikləsəniz, o, seçilmiş diapazonun D6 xanası olan ikinci dəyərini qaytaracaq.

  • Bu proses seçilmiş diapazonun D9 xanası olan son dəyərinə qədər davam edəcək.

Ətraflı oxuyun: VBA-dan verilənlərlə diapazondakı sıraları saymaq üçün necə istifadə etmək olarExcel (5 Makros)

Oxşar Oxumalar

  • Excel-də Aktiv Hüceyrədən Aralığı seçmək üçün VBA-dan Necə İstifadə Edilir (3 Metod)
  • Excel Makro: Dinamik diapazonla birdən çox sütunu çeşidləyin (4 üsul)
  • Excel VBA-da diapazonu massilə necə çevirmək olar (3 üsul)

4. VBA ilə Dinamik diapazonda sətirlər arasında dövrə vurmaq

Dördüncü misalda biz dinamik diapazonda sətirlər arasında dövr etmək üçün VBA tətbiq edəcəyik . Bu nümunə əvvəlkilərdən bir qədər fərqlidir. Excel iş vərəqi üçün dövrədə diapazonu fərdiləşdirə biləcəyik. Bu metodu göstərmək üçün aşağıdakı məlumat dəstindən istifadə edəcəyik. Aşağıdakı məlumat dəstində biz ( B8:C12 ) diapazonun dəyərlərini xüsusi dəyərlə dolduracağıq.

Sadəcə aşağıdakı addımları keçin. bu metodu yerinə yetirmək üçün.

ADDIMLAR:

  • İlk olaraq B1 6 dəyəri daxil edin. 1>C B2 xanasında.
  • İkincisi, aktiv xanada sağ klikləyin və ' Koda Baxın seçimini seçin '.

  • Bu əmr aktiv iş səhifəsi üçün VBA kod pəncərəsini açacaq. Həmin kod pəncərəsini açmağın başqa bir yolu Alt + F11 düyməsini sıxmaqdır.
  • Üçüncü olaraq həmin kod pəncərəsinə aşağıdakı kodu daxil edin:
7476
  • İndi kodu işə salmaq üçün Çalışdır üzərinə klikləyin və ya F5 düyməsini basın.

  • Nəticədə verilənlər bazası dəyərlə doldurulur 2500.00$ aşağıdakı şəkildə.

QEYD:

Yuxarıdakı şəkildə, 6 dəyəri diapazonun ilk iki cərgəsini təmsil edir ( B8:B9 ).

  • Son olaraq, 9 dəyərini daxil edin 6 əvəzinə B1 xanası. Nəticələri aşağıdakı şəkildə görə bilərik.

5.

VBA diapazonunda bütün sətirdən dönmək üçün daxil edin.Beşinci misalda, biz diapazondakı bütün cərgədə dövrə vurmaq üçün VBA necə tətbiq edə biləcəyimizi görəcəyik. Bu nümunə seçilmiş bir və ya bir neçə sətirdən müəyyən bir dəyərin mövqeyini tapacaq.

Beləliklə, bu nümunəni yerinə yetirmək üçün izləyəcəyimiz addımlara baxaq.

ADDIMLAR:

  • Başlamaq üçün ' Bütün Sıra ' adlı aktiv vərəqdə sağ klikləyin . ' Koda Baxın ' seçimini seçin.

  • Yuxarıdakı əmr boş VBA kod pəncərəsini açır. aktiv iş vərəqi üçün. Alt + F11 düymələrini sıxmaqla da bu kod pəncərəsini əldə edə bilərik.
  • Sonra, həmin kod pəncərəsinə aşağıdakı kodu daxil edin:
7035
  • Sonra kodu çalıştırmaq üçün Çalışdır üzərinə klikləyin və ya F5 düyməsini basın.

  • Yuxarıdakı şəkildə, vurğulanmış dəyər ' Chris ' bizim axtaracağımız dəyəri göstərir. ‘ 5:9 ’ diapazon dəyəri xana diapazonunda dəyəri axtaracağımızı göstərir ( B5:B9 ).
  • Nəhayət, mesaj qutusu dəyərin olduğunu göstərir.' Chris ' B6 xanasında yerləşir.

Ətraflı oxuyun: VBA-dan necə istifadə etmək olar Excel-də bir diapazonda olan hər bir sətir

6. Excel VBA ilə diapazonda hər n-ci sətirdən keçin

Son nümunədə biz VBA <2 tətbiq edəcəyik>aralıqdakı hər n-ci sətirdə dövr etmək. Aşağıdakı verilənlər toplusunda məlumat diapazonumuzun tək nömrə cərgələrinə rəng kölgəsi tətbiq edəcəyik.

Beləliklə, gəlin bu metodu yerinə yetirmək üçün addımlara baxaq.

ADDIMLAR:

  • İlk olaraq ' n-ci Sıra ' adlı aktiv vərəqdə sağ klikləyin . ' Koda Baxın ' seçimini seçin.

  • Sonra boş VBA kod pəncərəsini açır. həmin iş vərəqi üçün. Bu kod pəncərəsini Alt + F11 düyməsini sıxmaqla da əldə edə bilərik.
  • Sonra, növbəti kod pəncərəsinə aşağıdakı kodu daxil edin:
8526
  • İndi kodu işə salmaq üçün Çalışdır üzərinə klikləyin və ya F5 düyməsini basın.

  • Nəhayət, yuxarıdakı kodun məlumat dəstimizdən yalnız tək nömrə sətirlərini kölgə saldığını görə bilərik.

Ətraflı oxuyun: Excel VBA Boş Hüceyrə qədər Aralıqda Döngə etmək (4 Nümunə)

Nəticə

Nəticədə bu dərslik sizə 6 ilə diapazondakı sətirlər arasında dönmə nümunələri verir. 1>VBA excel-də. Bacarıqlarınızı sınamaq üçün bu məqalədəki təcrübə iş vərəqini yükləyin. Hər hansı bir sualınız varsa, qutuya şərh yazmağınız xahiş olunuraşağıda. Komandamız mesajınıza ən qısa zamanda cavab verməyə çalışacaq. Gələcəkdə daha ixtiraçı Microsoft Excel həlləri üçün diqqətli olun.

Hugh West sənayedə 10 ildən çox təcrübəyə malik yüksək təcrübəli Excel təlimçisi və analitikidir. Mühasibat uçotu və maliyyə üzrə bakalavr dərəcəsi və Biznesin idarə edilməsi üzrə magistr dərəcəsinə malikdir. Hugh tədrisə həvəslidir və izləmək və başa düşmək asan olan unikal tədris yanaşması işləyib hazırlayıb. Onun Excel üzrə ekspert biliyi bütün dünyada minlərlə tələbə və mütəxəssisə öz bacarıqlarını təkmilləşdirməyə və karyeralarında üstün olmağa kömək etmişdir. Hugh öz bloqu vasitəsilə biliklərini dünya ilə bölüşür, fərdlərə və müəssisələrə öz potensiallarını tam şəkildə çatdırmaq üçün pulsuz Excel dərsləri və onlayn təlimlər təklif edir.