Excel-də VBA istifadə edərək sətir nömrəsini necə tapmaq olar (4 makro)

  • Bunu Paylaş
Hugh West

Biz Excel-də sətir nömrələrini bir çox yolla tapa bilərik, lakin VBA daha çox funksiya və fərdiləşdirmə təklif edir. Bununla biz sətir nömrələrini ağıllı yollarla tapa bilərik. Bu gün bu məqalə VBA-dan istifadə edərək Excel-də sıra nömrəsini tapmaq üçün 4 faydalı makro nümayiş etdirəcək.

Təcrübə İş Kitabını endirin

Siz pulsuz Excel iş kitabını buradan yükləyə bilərsiniz və müstəqil məşq edin.

VBA.xlsm istifadə edərək sətir nömrəsini tapın

Excel-də VBA dən istifadə edərək sətir nömrəsini tapmaq üçün 4 makro

Müxtəlif bölgələrdə bəzi satıcı satışlarını təmsil edən üsulları araşdırmaq üçün istifadə edəcəyimiz verilənlər bazamızla tanış olun.

Makro 1: Seçimi Dəyişdirməklə Sıra Nömrəsini Tapmaq üçün VBA

İlk olaraq Excel-də VBA hər hansı bir xana seçərək sıra nömrəsini tapmaq üçün makrodan istifadə edəcəyik. Bu o deməkdir ki, hər hansı bir istifadə olunan xananı seçsəniz, makro dərhal sıra nömrəsini göstərəcəkdir. Bunun üçün siz kodları modulda deyil, vərəqdə saxlamalı olacaqsınız.

Addımlar:

  • Sağ- vərəq başlığına klikləyin və Kontekst menyusundan Kodu Baxın seçin.

  • Sonra isə aşağıdakıları yazın. aşağıdakı kodlar-
9749
  • Daha sonra kodları işə salmağa ehtiyac yoxdur, sadəcə vərəqinizə qayıdın.

Kod Bölgüsü:

  • Əvvəlcə mən Şəxsi Alt proseduru yaratdım – İş vərəqi_SeçimiDəyişikliyi .
  • Sonra Rnumber dəyişənini elan etdi tam .
  • sətir aktiv xananın sıra nömrəsini təyin edəcək.
  • Sonra İf ifadəsi yoxlayacaq boş olub-olmamasından asılı olmayaraq aktiv xananı göstərin və sonra MsgBox çıxışı göstərəcək.
  • İndi sadəcə olaraq hər hansı bir istifadə edilmiş xananın üzərinə klikləyin və o sizə sıranı göstərəcək. nömrə.

Ətraflı oxuyun: Excel VBA: Sütunda sətir tapın və sətir nömrəsini qaytarın

Makro 2: VBA-dan istifadə edərək Aktiv Hüceyrənin Sıra nömrəsini tapın

Bu makro vərəqimizin müəyyən edilmiş xanasındakı aktiv xananın sıra nömrəsini qaytaracaq. Beləliklə, kodlarımızda iş vərəqinin adını və çıxış xanasını qeyd etməliyik. Burada çıxış xanası olaraq Cell D14 -dən istifadə edəcəyik.

Addımlar:

  • ALT + F11 VBA pəncərəsini açmaq üçün.

  • Sonra yeni modul daxil etmək üçün aşağıdakı kimi klikləyin: Daxil edin > Modul .

  • Bundan sonra modulda aşağıdakı kodları yazın-
4281
  • Sonra vərəqinizə qayıdın.

Kod bölgüsü:

  • Burada , Aktiv_Cell() -in_Sıra_Nömrəsini_tapın Alt
  • wSheet İş vərəqi
  • kimi elan edilib Sonra Set ifadəsi aktiv xananı seçəcək
  • Range çıxış xanasındakı sıra nömrəsini qaytaracaq.
  • İndi xana seçin və aşağıdakı kimi klikləyin: Developer >Makroslar .

  • Makro dialoq qutusunda göründükdən sonra sadəcə makro adını seçin və düyməsini basın. Çalışın .

Bir müddət sonra siz seçilmiş xananın sıra nömrəsinin çıxış xanamıza qaytarıldığını görəcəksiniz.

Görə bilərsiniz ki, B8 xanası seçilib, buna görə də 8 çıxışdır.

Ətraflı oxuyun: Excel-də cari xananın sətir sayını necə əldə etmək olar (4 sürətli üsul)

Oxşar oxunuşlar

  • Satır nömrəsini Excel-də necə artırmaq olar Excel Formula (6 Faydalı Yol)
  • Excel VBA ilə Aralıqdan Sətir Nömrəsini Alın (9 Nümunə)
  • Satır nömrəsini necə qaytarmaq olar Excel-də Hüceyrə Uyğunluğu (7 Metod)
  • Excel-də Hüceyrə Dəyərindən Sıra Nömrəsini Necə Almaq olar (5 Metod)

Makro 3: Dəyəri Uyğunlaşdıraraq Sətir Nömrəsini Tapmaq üçün VBA

Əgər siz dəyər axtararaq sıra nömrəsini tapmaq istəyirsinizsə, bu makro sizin üçündür. Siz aşağıdakı şəkildə göstərildiyi kimi kodlarda axtarış dəyərini və sütun nömrəsini qeyd etməli olacaqsınız.

Addımlar:

  • Birincisini izləyin yeni modul daxil etmək üçün əvvəlki üsuldan iki addım .
  • Sonra ona aşağıdakı kodları daxil edin-
3390
  • Bundan sonra öz parametrinizə qayıdın. vərəq.

Kod bölgüsü:

  • Burada Find_Row_Matching_a_Value() Alt
  • wBook wSheet kimi elan edilir İş vərəqi fCell Range kimi elan edilir.
  • wBook wSheet quraşdırılıb ActiveWorkbook ActiveSheet üçün.
  • Const axtarış dəyəri üçün daxil olacaq.
  • Daha sonra, Range qeyd olunan sütun vasitəsilə dəyəri axtaracaq.
  • Sonra Əgər Else ifadəsi MsgBox istifadə edərək nəticəni göstərəcək.
  • Daha sonra Makro dialoq qutusunu açmaq üçün əvvəlki metoddan 5-ci addımı izləyin .
  • makrosun adı və sadəcə Çalışdır düyməsini basın.

Tezliklə bildiriş qutusu sizə sıra nömrəsini göstərəcək.

Ətraflı oxuyun: Excel VBA: Dəyərin Sətir sayını qaytarın (5 Uyğun Metod)

Makro 4: Sətir Nömrəsini Tapmaq üçün Düymə

Sonuncu metodumuzda biz sizə VBA makroslarından istifadə edərək sıra nömrəsini təyin etməyin ən ağıllı üsulunu göstərəcəyik. Bir düymə düzəldəcəyik və onunla bir makro təyin edəcəyik. Düyməni kliklədiyimiz zaman o, sıra nömrəsini istədiyimiz axtarış dəyərini daxil edə biləcəyimiz bir giriş qutusu açacaq. Əvvəlki makro qeyd olunan sütunda axtarış edə bilərdi, lakin bu makro vərəqin istənilən yerində istənilən sütunu axtara bilər.

Addımlar:

  • Yenə də yeni modul daxil etmək üçün ikinci üsuldan ilk iki addımı izləyin .
  • Sonra ona aşağıdakı kodları daxil edin-
8399
  • Sonra geri qayıdın səninvərəq.

Kod bölgüsü:

  • Əvvəlcə mən Alt proseduru Find_Row_Number().
  • Sonra iki dəyişən elan edildi, mValue String sətir Range kimi .
  • Daha sonra dəyər daxil etmək üçün InputBox -dən istifadə etdi.
  • Daha sonra Set If ifadəsi boş deyilsə, sıra nömrəsini tapacaq.
  • Nəhayət, MsgBox çıxışı göstərəcək.
  • Daha sonra üzərinə klikləyin. Tərtibatçı > Daxil et və sonra Forma İdarəetmələri bölməsindən Düymə komandasını seçin.

  • Sonra kursorunuzla artı işarəsi alacaqsınız, istədiyiniz ölçüyə uyğun olaraq vərəqinizə klikləməklə istənilən yerə sürükləyin və sonra klikləməni buraxın.

  • Mausu buraxdıqdan sonra avtomatik olaraq Makro Təyin et dialoq qutusu açılacaq.
  • Kodlarda qeyd olunduğu kimi makrosun adını seçin.
  • Sonra sadəcə OK düyməsini basın.

  • Sonra, düyməni sağ klikləyin və Mətni redaktə et seçin. düymə adını redaktə etmək üçün.

  • Düymənin adını yazın, sonra düymədən kənar hər hansı yerə klikləyin və ad dəyişdiriləcək.

  • İndi düyməni basın, o, giriş qutusunu açacaq.
  • Nəhayət, sadəcə axtarış dəyərini daxil edin və düyməsini basın. OK .

İndi baxın, uyğun gələnlərin sıra nömrəsini göstərirdəyər.

Ətraflı oxuyun: Sütunda sətir tapın və Excel-də sətir nömrəsini qaytarın (7 üsul)

Nəticə

Hamısı məqalə üçün. Ümid edirəm ki, yuxarıda təsvir olunan prosedurlar VBA-dan istifadə edərək Excel-də sıra nömrəsini tapmaq üçün kifayət qədər yaxşı olacaq. Şərh bölməsində hər hansı bir sual verməkdən çekinmeyin və mənə rəy bildirin. Ətraflı araşdırmaq üçün ExcelWIKI-yə daxil 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.