Me võime leida rea numbreid Excelis, kasutades mitmeid viise, kuid VBA pakub rohkem funktsioone ja kohandusi. Mille abil saame leida rea numbreid arukalt. Täna näitab see artikkel 4 kasulikku makrot rea numbri leidmiseks Excelis VBA abil.

Lae alla praktiline töövihik

Võite tasuta Exceli töövihiku siit alla laadida ja iseseisvalt harjutada.

4 makrot, et leida rea number VBA abil Excelis

Tutvuge meie andmestikuga, mida me kasutame meetodite uurimiseks, mis esindavad mõningaid müüjaid erinevates piirkondades.

Makro 1: VBA rea numbri leidmiseks valiku muutmise teel

Kõigepealt kasutame Exceli makrot. VBA leida rea number, valides ükskõik millist lahtrit. See tähendab, et kui te lihtsalt valite ükskõik millise kasutatud lahtri, näitab makro koheselt rea numbri. Selleks peate te hoida koodid lehel , mitte moodulis.

Sammud:

• Tehke paremklõps lehe pealkirjal ja valige Vaata koodi alates kontekstmenüü .

• Seejärel kirjutage järgmised koodid-

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rnumber As Integer Rnumber = ActiveCell.row If ActiveCell.Value "" Then MsgBox "Klõpsatud lahtri rea number on: " & Rnumber End If End Sub End Sub 

• Hiljem ei ole vaja koode käivitada, minge lihtsalt tagasi oma lehe juurde.

Koodide lahtimõtestamine:

• Kõigepealt lõin ma Privaatne sub menetlus - Tööleht_valikMuutus .
• Seejärel deklareeritakse muutuja Rnumber nagu Tervearvuline .
• rida määrab aktiivse lahtri rea numbri.
• Järgnevalt Kui avaldis kontrollib aktiivset lahtrit, kas see on tühi või mitte, ja siis MsgBox näitab väljundit.

• Nüüd klõpsake lihtsalt mis tahes kasutatud lahtril ja see näitab teile rea numbrit.

Loe edasi: Excel VBA: Leia string veerus ja tagasta rea number

Makro 2: aktiivse lahtri rea numbri leidmine VBA abil

See makro tagastab aktiivse lahtri rea numbri meie lehe määratud lahtris. Seega peame oma koodides mainima töölehe nime ja väljundraku. Siinkohal kasutame Lahter D14 kui meie väljundraku.

Sammud:

• Press ALT + F11 avada VBA aken .

• Seejärel klõpsake uue mooduli lisamiseks järgmiselt: Insert> moodul .

• Pärast seda sisestage järgmised koodid moodulisse-

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

• Seejärel pöörduge tagasi oma lehe juurde.

Koodide lahtimõtestamine:

• Siin, Find_Row_Number_of_an_Active_Cell() on Sub
• The wSheet on deklareeritud kui Tööleht
• Siis on Komplekt avaldus valib aktiivse lahtri
• Range tagastab rea numbri väljundrakus.

• Nüüd valige lahter ja klõpsake järgmiselt: Arendaja> Makros .

• Pärast ilmumist Makro dialoogiboksi, valige lihtsalt makro nimi ja vajutage nuppu Käivita .

Varsti pärast seda näete, et valitud lahtri rea number tagastatakse meie väljundruutu.

Näete, et B8 lahter on valitud, seega on väljundiks 8.

Loe edasi: Kuidas saada Exceli praeguse lahtri rea number (4 kiiret viisi)

Sarnased lugemised

• Kuidas suurendada rea arvu Exceli valemiga (6 praktilist viisi)
• Saada rea number vahemikust Excel VBAga (9 näidet)
• Kuidas tagastada Exceli lahtri vaste rea number (7 meetodit)
• Kuidas saada rea number Exceli lahtri väärtusest (5 meetodit)

Makro 3: VBA rea numbri leidmiseks väärtuse sobitamise abil

Kui soovite leida rea numbri, otsides väärtust, siis on see makro teie jaoks. Te peate mainima otsinguväärtust ja veeru numbrit koodides, nagu on näidatud alloleval pildil.

Sammud:

• Järgige kahte esimest sammu eelmisest meetodist uue mooduli sisestamiseks.
• Seejärel sisestage sinna järgmised koodid-

 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 & " asub real: " & fCell.row) Else MsgBox (Matching_Value & " Not matched") EndIf End Sub 

• Pärast seda minge tagasi oma lehe juurde.

Koodide lahtimõtestamine:

• Siinkohal on Find_Row_Matching_a_Value() Sub
• Ja wBook ja wSheet on deklareeritud kui Tööleht ja fCell on deklareeritud kui Range .
• The wBook ja wSheet on määratud ActiveWorkbook ja ActiveSheet .
• Const võtab otsitava väärtuse jaoks sisendi.
• Hiljem, Range otsib väärtust läbi mainitud veeru.
• Järgnevalt Kui ja Muidu avaldus näitab tulemust, kasutades MsgBox .

• Hiljem, järgige eelmise meetodi 5. sammu avada Makro dialoogiaknas.
• Valige makro nimi ja vajutage lihtsalt Käivita .

Peagi ilmub teavituskast, mis näitab teile rea numbrit.

Loe edasi: Excel VBA: väärtuse rea numbri tagastamine (5 sobivat meetodit)

Makro 4: Ridade numbri leidmise nupp

Meie viimases meetodis näitame teile kõige targemat meetodit rea numbri määramiseks, kasutades VBA makros. Teeme nupu ja määrame sellega makro. Kui me vajutame nupule, siis avaneb sisendkast, kus saame sisestada otsitava väärtuse, mille jaoks soovime rea numbrit. Eelmine makro võis otsida läbi mainitud veeru, kuid see makro võib otsida ükskõik millist veergu, ükskõik kust lehel.

Sammud:

• Järgige taas teise meetodi kahte esimest sammu. uue mooduli sisestamiseks.
• Seejärel sisestage järgmised koodid sellesse-

 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 

• Seejärel minge tagasi oma lehe juurde.

Koodide lahtimõtestamine:

• Kõigepealt lõin ma Sub protseduur Find_Row_Number().
• Seejärel deklareeritakse kaks muutujat, mValue nagu String ja rida nagu Range .
• Seejärel kasutas InputBox väärtuse sisestamiseks.
• Hiljem on Komplekt ja Kui avaldis leiab rea numbri, kui see ei ole tühi.
• Lõpuks on MsgBox näitab väljundit.

• Hiljem klõpsake Arendaja> Sisesta ja seejärel valige Nupp käsk alates Vormi Controls sektsioon .

• Siis saate te plussmärk kursoriga, lohistage kuhugi, klõpsates oma lehel vastavalt soovitud suurusele ja seejärel vabastage klõps.

• Pärast hiire vabastamist on Makro määramine dialoogiaken avaneb automaatselt.
• Valige makro nimi nagu on nimetatud koodides.
• Siis vajutage lihtsalt OK .

• Seejärel tehke nupul paremklõps ja valige Teksti redigeerimine nupu nime muutmiseks.

• Sisestage nupu nimi, seejärel klõpsake kuskil väljaspool nuppu ja nimi muutub.

• Nüüd klõpsake nupule, see avab sisestusruumi.
• Lõpuks sisestage lihtsalt otsinguväärtus ja vajutage OK .

Nüüd vaadake, see näitab sobitatud väärtuse rea numbrit.

Loe edasi: Leidke string veergu ja tagastage rea number Excelis (7 võimalust)

Kokkuvõte

See on kõik artikli jaoks. Loodan, et eespool kirjeldatud protseduurid on piisavalt head, et leida rea number Excelis kasutades VBA-d. Võite vabalt küsida mis tahes küsimust kommentaaride sektsioonis ja palun andke mulle tagasisidet. Külastage ExcelWIKI, et uurida rohkem.