Excel'de satır numaralarını birçok yol kullanarak bulabiliriz ancak VBA satır numaralarını akıllı yollarla bulabileceğimiz daha fazla özellik ve özelleştirme sunar. Bugün bu makale, VBA kullanarak Excel'de satır numarasını bulmak için 4 yararlı makro gösterecektir.

Alıştırma Çalışma Kitabını İndirin

Ücretsiz Excel çalışma kitabını buradan indirebilir ve bağımsız olarak pratik yapabilirsiniz.

4 VBA Kullanarak Satır Numarasını Bulmak için Makrolar Excel'de

Farklı bölgelerdeki bazı satış elemanlarının satışlarını temsil eden yöntemleri keşfetmek için kullanacağımız veri kümemizle tanışın.

Makro 1: Seçimi Değiştirerek Satır Numarasını Bulmak için VBA

İlk olarak, Excel'de bir makro kullanacağız VBA Herhangi bir hücreyi seçerek satır numarasını bulmak için. Bu, kullanılan herhangi bir hücreyi seçerseniz, makronun satır numarasını anında göstereceği anlamına gelir. Bunun için kodları bir sayfada saklayın modülde değil.

Adımlar:

• Sayfa başlığına sağ tıklayın ve Kodu Görüntüle bir şey yok. bağlam menüsü .

• Ardından aşağıdaki kodları yazın-

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rnumber As Integer Rnumber = ActiveCell.row If ActiveCell.Value "" Then MsgBox "Tıklanan hücrenin satır numarası: " & Rnumber End If End Sub 

• Daha sonra kodları çalıştırmanıza gerek yok, sadece sayfanıza geri dönün.

Kod Dökümü:

• İlk olarak, bir Özel Alt prosedür - Çalışma Sayfası_SeçimDeğişikliği .
• Ardından bir değişken bildirilir Rnumber olarak Tamsayı .
• sıra aktif hücrenin satır numarasını belirleyecektir.
• Daha sonra Eğer deyimi etkin hücrenin boş olup olmadığını kontrol eder ve ardından MsgBox çıktıyı gösterecektir.

• Şimdi sadece kullanılan herhangi bir hücreye tıklayın ve size satır numarasını gösterecektir.

Daha fazlasını okuyun: Excel VBA: Sütundaki Dizeyi Bulma ve Satır Numarasını Döndürme

Makro 2: VBA Kullanarak Etkin Hücrenin Satır Numarasını Bulma

Bu makro, sayfamızın belirli bir hücresindeki aktif bir hücrenin satır numarasını döndürür. Bu nedenle, kodlarımızda çalışma sayfası adını ve çıktı hücresini belirtmemiz gerekecek. Burada, şunu kullanacağız Hücre D14 bizim çıkış hücremiz olarak.

Adımlar:

• Basın ALT + F11 açmak için VBA penceresi .

• Ardından, yeni bir modül eklemek için aşağıdaki gibi tıklayın: Insert> Modül .

• Bundan sonra, aşağıdaki kodları modüle yazın-

 Sub Find_Row_Number_of_an_Active_Cell() Dim wSheet As Worksheet Set wSheet = Worksheets("Active Cell") wSheet.Range("D14") = ActiveCell.row End Sub 

• Sonra kağıdınıza geri dönün.

Kod Dökümü:

• İşte, Find_Row_Number_of_an_Active_Cell() bu Alt
• Bu wSheet olarak beyan edilir Çalışma Sayfası
• O zaman Set deyimi etkin hücreyi seçecektir
• Menzil çıktı hücresindeki satır numarasını döndürecektir.

• Şimdi bir hücre seçin ve aşağıdaki gibi tıklayın: Geliştirici> Makrolar .

• Filmde göründükten sonra Makro iletişim kutusunda makro adını seçip Koşmak .

Kısa bir süre sonra, seçilen hücrenin satır numarasının çıktı hücremizde döndürüldüğünü göreceksiniz.

Şunu görebilirsiniz B8 hücresi seçilmiştir, bu nedenle çıkış 8'dir.

Daha fazlasını okuyun: Excel'de Geçerli Hücrenin Satır Numarası Nasıl Alınır (4 Hızlı Yol)

Benzer Okumalar

• Excel Formülünde Satır Sayısı Nasıl Artırılır (6 Kullanışlı Yol)
• Excel VBA ile Aralıktan Satır Numarası Alma (9 Örnek)
• Excel'de Bir Hücre Eşleşmesinin Satır Numarası Nasıl Döndürülür (7 Yöntem)
• Excel'de Hücre Değerinden Satır Numarası Nasıl Alınır (5 Yöntem)

Makro 3: Bir Değeri Eşleştirerek Satır Numarasını Bulmak için VBA

Bir değeri arayarak satır numarasını bulmak istiyorsanız, bu makro tam size göre. Aşağıdaki resimde gösterildiği gibi kodlarda arama değerini ve sütun numarasını belirtmeniz gerekecektir.

Adımlar:

• Önceki yöntemdeki ilk iki adımı izleyin yeni bir modül eklemek için.
• Ardından, aşağıdaki kodları içine ekleyin-

 Sub Find_Row_Matching_a_Value() Dim wBook As Workbook Dim wSheet As Worksheet Dim fCell As Range Set wBook = ActiveWorkbook Set wSheet = ActiveSheet Const Matching_Value As String = "Luka" Set fCell = wSheet.Range("B:B").Find(What:=Matching_Value) If Not fCell Is Nothing Then MsgBox (Matching_Value & " is located in row: " & fCell.row) Else MsgBox (Matching_Value & " Not matched") EndEğer End Sub 

• Bundan sonra, sayfanıza geri dönün.

Kod Dökümü:

• Burada, Find_Row_Matching_a_Value() Alt
• Ve wKitap ve wSheet olarak beyan edilir Çalışma Sayfası ve fHücre olarak beyan edilir Menzil .
• Bu wKitap ve wSheet için ayarlanmıştır ActiveWorkbook ve ActiveSheet .
• Const arama değeri için girdi alacaktır.
• Sonra görüşürüz, Menzil değeri söz konusu sütun üzerinden arayacaktır.
• Daha sonra Eğer ve Başka deyimi kullanılarak sonucu gösterecektir MsgBox .

• Sonra görüşürüz, önceki yöntemin 5. adımını takip edin açmak için Makro iletişim kutusu.
• Seçiniz makro adı ve sadece basın Koşmak .

Kısa süre sonra bir bildirim kutusu size satır numarasını gösterecektir.

Daha fazlasını okuyun: Excel VBA: Değerin Satır Sayısını Döndürme (5 Uygun Yöntem)

Makro 4: Satır Numarasını Bulma Düğmesi

Son yöntemimizde, bir satır numarasını belirlemek için en akıllı yöntemi göstereceğiz VBA Bir düğme oluşturacağız ve bununla bir makro atayacağız. Düğmeye tıkladığımızda, satır numarasını istediğimiz arama değerini girebileceğimiz bir giriş kutusu açılacaktır. Önceki makro belirtilen bir sütunda arama yapabilir, ancak bu makro sayfanın herhangi bir yerinde herhangi bir sütunda arama yapabilir.

Adımlar:

• Yine ikinci yöntemdeki ilk iki adımı takip edin yeni bir modül eklemek için.
• Ardından, aşağıdaki kodları içine ekleyin-

 Sub Find_Row_Number() Dim mValue As String Dim mrrow As Range mValue = InputBox("Insert a value") Set mrrow = Cells.Find(What:=mValue, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If mrrow Is Nothing Then MsgBox ("No Match") Else MsgBox (mrrow.row) End If End Sub 

• Sonra sayfanıza geri dönün.

Kod Dökümü:

• İlk olarak, bir Alt prosedürü Find_Row_Number().
• Ardından iki değişken tanımlayın, mDeğer olarak String ve sıra olarak Menzil .
• Sonra da InputBox bir değer eklemek için.
• Daha sonra Set ve Eğer deyimi boş değilse satır numarasını bulacaktır.
• Son olarak MsgBox çıktıyı gösterecektir.

• Daha sonra, tıklayın Geliştirici> Ekleme ve ardından Düğme komutundan Form Kontrolleri bölümü .

• O zaman bir artı işareti imlecinizle, sayfanızda istediğiniz boyuta göre herhangi bir yere tıklayarak sürükleyin ve ardından tıklamayı bırakın.

• Fareyi bıraktıktan sonra Makro Atama iletişim kutusu otomatik olarak açılacaktır.
• Seçiniz makro adı kodlarda belirtildiği gibi.
• Sonra sadece TAMAM. .

• Ardından, düğmeye sağ tıklayın ve Metni Düzenle düğme adını düzenlemek için.

• Düğme adını yazın, ardından düğmenin dışında herhangi bir yere tıklayın ve ad değiştirilecektir.

• Şimdi düğmeye tıklayın, bir giriş kutusu açılacaktır.
• Son olarak, sadece arama değerini girin ve TAMAM. .

Şimdi bir göz atın, eşleşen değerin satır numarasını gösteriyor.

Daha fazlasını okuyun: Excel'de Sütundaki Dizeyi Bulma ve Satır Numarasını Döndürme (7 Yol)

Sonuç

Umarım yukarıda açıklanan prosedürler VBA kullanarak excel'de satır numarasını bulmak için yeterince iyi olur. Yorum bölümünde herhangi bir soru sormaktan çekinmeyin ve lütfen bana geri bildirim verin. Daha fazlasını keşfetmek için ExcelWIKI'yi ziyaret edin.