Wij kunnen rijnummers in Excel op vele manieren vinden, maar VBA biedt meer mogelijkheden en aanpassingen, waardoor we rijnummers op een slimme manier kunnen vinden. Dit artikel toont 4 nuttige macro's om rijnummers te vinden in Excel met VBA.

Download Praktijk werkboek

U kunt de gratis Excel-werkmap hier downloaden en zelfstandig oefenen.

4 Macro's om rijnummers te vinden met VBA in Excel

Maak kennis met onze dataset die we zullen gebruiken om de methoden te onderzoeken die enkele verkopers in verschillende regio's vertegenwoordigen.

Macro 1: VBA om rijnummer te vinden door selectie te wijzigen

Eerst gebruiken we een macro in Excel VBA om het rijnummer te vinden door een willekeurige cel te selecteren. Dit betekent dat als u gewoon een gebruikte cel selecteert, de macro onmiddellijk het rijnummer zal tonen. Daarvoor moet u bewaar de codes in een blad niet in de module.

Stappen:

• Rechtsklik op de bladtitel en selecteer Code bekijken van de contextmenu .

• Schrijf dan de volgende codes-

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rnumber As Integer Rnumber = ActiveCell.row If ActiveCell.Value "" Then MsgBox "Het rijnummer van de aangeklikte cel is: " & Rnumber End If End Sub 

• Later hoef je de codes niet uit te voeren, maar ga je gewoon terug naar je blad.

Code Breakdown:

• Eerst heb ik een Private Sub procedure - Werkblad_SelectieWijziging .
• Dan verklaarde hij een variabele Rnummer als Integer .
• rij bepaalt het rijnummer van de actieve cel.
• Vervolgens wordt de Als statement zal de actieve cel controleren of deze leeg is of niet, en dan MsgBox toont de uitvoer.

• Klik nu op een gebruikte cel en u krijgt het rijnummer te zien.

Lees meer: Excel VBA: Zoek string in kolom en geef rijnummer terug

Macro 2: Het rijnummer van een actieve cel vinden met VBA

Deze macro geeft het rijnummer van een actieve cel in een opgegeven cel van ons blad. We moeten dus de naam van het werkblad en de uitvoercel in onze codes vermelden. Hier gebruiken we Cel D14 als onze uitgangscel.

Stappen:

• Druk op ALT + F11 om de VBA-venster .

• Klik vervolgens als volgt om een nieuwe module in te voegen: Invoegen> Module .

• Typ daarna de volgende codes in de module-

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

• Ga dan terug naar je blad.

Code Breakdown:

• Hier, Find_Row_Number_of_an_Active_Cell() is de Sub
• De wSheet wordt gedeclareerd als een Werkblad
• Dan is de Stel statement selecteert de actieve cel
• Bereik geeft het rijnummer in de uitvoercel.

• Selecteer nu een cel en klik als volgt: Ontwikkelaar> Macro's .

• Na het verschijnen in de Macro dialoogvenster, selecteert u de macronaam en drukt u op Ren .

Kort daarna ziet u dat het rijnummer van de geselecteerde cel terugkomt in onze uitvoercel.

U ziet dat de B8 cel is geselecteerd, dus 8 is de uitgang.

Lees meer: Hoe het rijnummer van de huidige cel in Excel te krijgen (4 snelle manieren)

Vergelijkbare lezingen

• Hoe rij nummer verhogen in Excel formule (6 handige manieren)
• Rijnummer uit bereik halen met Excel VBA (9 voorbeelden)
• Hoe het rijnummer van een celmatch in Excel te retourneren (7 methoden)
• Hoe rij nummer te krijgen van cel waarde in Excel (5 methoden)

Macro 3: VBA om rijnummer te vinden door een waarde te matchen

Als u het rijnummer wilt vinden door een waarde te zoeken, dan is deze macro geschikt voor u. U moet de zoekwaarde en het kolomnummer in de codes vermelden, zoals in de onderstaande afbeelding.

Stappen:

• Volg de eerste twee stappen van de vorige methode om een nieuwe module in te voegen.
• Voeg dan de volgende codes in-

 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 & " bevindt zich in rij: " & fCell.row) Else MsgBox (Matching_Value & " Not matched") EndAls Einde Sub 

• Ga daarna terug naar je blad.

Code Breakdown:

• Hier is de Find_Row_Matching_a_Value() de Sub
• En wBook en wSheet worden verklaard als Werkblad en fCell wordt gedeclareerd als Bereik .
• De wBook en wSheet zijn vastgesteld voor ActiveWorkbook en ActiveSheet .
• Const zal invoer nemen voor de zoekwaarde.
• Later, Bereik zoekt de waarde via de genoemde kolom.
• Vervolgens wordt de Als en Anders statement zal het resultaat tonen met behulp van MsgBox .

• Later, volg de 5e stap van de vorige methode om de Macro dialoogvenster.
• Selecteer de macronaam en druk gewoon op Ren .

Binnenkort zal een meldingsvenster u het rijnummer tonen.

Lees meer: Excel VBA: Rijenummer van waarde teruggeven (5 geschikte methoden)

Macro 4: Knop om rijnummer te vinden

In onze laatste methode tonen we u de slimste methode om een rijnummer te bepalen met behulp van VBA We maken een knop en wijzen daaraan een macro toe. Als we op de knop klikken, opent zich een invoerveld waarin we de zoekwaarde kunnen invoeren waarvoor we het rijnummer willen hebben. De vorige macro kon zoeken in een bepaalde kolom, maar deze macro kan zoeken in elke kolom, waar dan ook in het blad.

Stappen:

• Volg opnieuw de eerste twee stappen van de tweede methode om een nieuwe module in te voegen.
• Voeg vervolgens de volgende codes in-

 Sub Find_Row_Number() Dim mValue As String Dim mrrow As Range mValue = InputBox("Voeg een waarde in") 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 

• Ga dan terug naar je blad.

Code Breakdown:

• Eerst heb ik een Sub procedure Find_Row_Number().
• Dan verklaarde hij twee variabelen, mWaarde als String en rij als Bereik .
• Gebruikte toen de InputBox om een waarde in te voegen.
• Later, de Stel en Als statement zal het rijnummer vinden als het niet leeg is.
• Tot slot MsgBox toont de uitvoer.

• Klik later op Ontwikkelaar> Invoegen en selecteer dan de Knop commando van de Sectie Formuliercontroles .

• Dan krijg je een plusteken sleep met uw cursor op uw blad naar de gewenste grootte en laat dan de klik los.

• Na het loslaten van de muis wordt de Macro toewijzen dialoogvenster wordt automatisch geopend.
• Selecteer de macronaam zoals vermeld in de codes.
• Druk dan gewoon op OK .

• Klik vervolgens met de rechtermuisknop op de knop en selecteer Bewerk tekst om de naam van de knop te bewerken.

• Typ de naam van de knop, klik dan ergens buiten de knop en de naam wordt gewijzigd.

• Klik nu op de knop, die een invoerveld opent.
• Tenslotte voegt u de zoekwaarde in en drukt u op OK .

Kijk nu eens, het toont het rijnummer van de gematchte waarde.

Lees meer: String in kolom zoeken en rijnummer teruggeven in Excel (7 manieren)

Conclusie

Dat is alles voor het artikel. Ik hoop dat de hierboven beschreven procedures goed genoeg zijn om het rijnummer in Excel te vinden met behulp van VBA. Voel je vrij om vragen te stellen in de commentaarsectie en geef me feedback. Bezoek ExcelWIKI om meer te ontdekken.