Številke vrstic v Excelu lahko poiščemo na več načinov, vendar VBA s katerimi lahko na pametne načine poiščemo številke vrstic. Danes bo ta članek prikazal 4 uporabne makre za iskanje številke vrstice v Excelu z uporabo VBA.

Prenesi delovni zvezek za prakso

Brezplačni delovni zvezek programa Excel lahko prenesete s te strani in vadite samostojno.

4 makri za iskanje številke vrstice z uporabo VBA v programu Excel

Spoznajte naš nabor podatkov, ki ga bomo uporabili za raziskovanje metod, ki predstavljajo prodajo nekaterih prodajalcev v različnih regijah.

Makro 1: VBA za iskanje številke vrstice s spreminjanjem izbora

Najprej bomo v Excelu uporabili makro VBA za iskanje številke vrstice z izbiro katere koli celice. To pomeni, da če izberete katero koli uporabljeno celico, bo makro takoj prikazal številko vrstice. V ta namen boste morali kode hranite v listu. , ne v modulu.

Koraki:

• Z desno tipko miške kliknite na naslov lista in izberite Prikaži kodo iz kontekstni meni .

• Nato napišite naslednje kode-

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rnumber As Integer Rnumber = ActiveCell.row If ActiveCell.Value "" Then MsgBox "Številka vrstice kliknjene celice je: " & Rnumber End If End Sub 

• Pozneje ni treba izvajati kod, temveč se vrnite na svoj list.

Razčlenitev kode:

• Najprej sem ustvaril Zasebni podsklop postopek - Worksheet_SelectionChange .
• Nato razglasi spremenljivko Številka R kot Integer .
• vrstica določi številko vrstice aktivne celice.
• Nato Če preveri, ali je aktivna celica prazna ali ne, in nato MsgBox bo prikazal rezultat.

• Zdaj kliknite na katero koli uporabljeno celico in prikazala se vam bo številka vrstice.

Preberite več: Excel VBA: Poiščite niz v stolpcu in vrnite številko vrstice

Makro 2: Iskanje številke vrstice aktivne celice z uporabo VBA

Ta makro bo vrnil številko vrstice aktivne celice v določeni celici našega lista. Zato bomo morali v svojih kodah navesti ime delovnega lista in izhodno celico. Tu bomo uporabili Celica D14 kot izhodno celico.

Koraki:

• Pritisnite ALT + F11 da odprete Okno VBA .

• Nato kliknite, kot sledi, da vstavite nov modul: Vstavljanje> Modul .

• Nato v modul vnesite naslednje kode-

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

• Nato se vrnite k listu.

Razčlenitev kode:

• Tukaj, Poišči_število_vrstice_iz_an_aktivne_celice() je Pod
• Spletna stran wSheet je deklariran kot Delovni list
• Nato Nastavite Izjava bo izbrala aktivno celico
• Razpon vrne številko vrstice v izhodni celici.

• Zdaj izberite celico in kliknite, kot sledi: Razvijalec> Makri .

• Po nastopu v Makro pogovorno okno, izberite ime makra in pritisnite Spustite .

Kmalu zatem boste videli, da se številka vrstice izbrane celice vrne v našo izhodno celico.

Vidite, da je B8 celica je bila izbrana, zato je izhodna vrednost 8.

Preberite več: Kako pridobiti številko vrstice trenutne celice v Excelu (4 hitri načini)

Podobna branja

• Kako povečati številko vrstice v Excelovi formuli (6 priročnih načinov)
• Pridobite številko vrstice iz območja z Excelovim programom VBA (9 primerov)
• Kako vrniti številko vrstice ujemanja celic v Excelu (7 metod)
• Kako dobiti številko vrstice iz vrednosti celice v Excelu (5 metod)

Makro 3: VBA za iskanje številke vrstice z ujemanjem vrednosti

Če želite poiskati številko vrstice z iskanjem vrednosti, potem je ta makro za vas. V kodah morate navesti iskano vrednost in številko stolpca, kot je prikazano na spodnji sliki.

Koraki:

• Izvedite prva dva koraka iz prejšnje metode za vstavitev novega modula.
• Nato vanj vstavite naslednje kode.

 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") EndČe Konec Sub 

• Nato se vrnite na svoj list.

Razčlenitev kode:

• Pri tem je funkcija Find_Row_Matching_a_Value() Pod
• In wBook in . wSheet so razglašeni kot Delovni list in . fCell je razglašen kot Razpon .
• Spletna stran wBook in . wSheet so določene za ActiveWorkbook in . ActiveSheet .
• Const bo vnesel vhodno vrednost za iskanje.
• Kasneje, Razpon bo poiskal vrednost v omenjenem stolpcu.
• Nato Če in . Drugače bo prikazal rezultat z uporabo MsgBox .

• Kasneje, sledite 5. koraku iz prejšnje metode da odprete Makro pogovorno okno.
• Izberite ime makra in pritisnite Spustite .

Kmalu se bo v oknu za obvestila prikazala številka vrstice.

Preberite več: Excel VBA: Vrnite številko vrstice vrednosti (5 primernih metod)

Makro 4: Gumb za iskanje številke vrstice

V zadnji metodi vam bomo pokazali najpametnejšo metodo za določanje številke vrstice z uporabo VBA makrov. Izdelali bomo gumb in mu dodelili makro. Ko bomo kliknili na gumb, se bo odprlo vnosno polje, v katerega lahko vnesemo iskalno vrednost, za katero želimo številko vrstice. Prejšnji makro je lahko iskal po omenjenem stolpcu, ta makro pa lahko išče po katerem koli stolpcu, kjer koli v listu.

Koraki:

• Ponovno sledite prvima dvema korakoma iz druge metode za vstavitev novega modula.
• Nato vanj vstavite naslednje kode.

 Sub Find_Row_Number() Dim mValue As String Dim mrrow As Range mValue = InputBox("Vstavi vrednost") 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 

• Nato se vrnite na svoj list.

Razčlenitev kode:

• Najprej sem ustvaril Pod postopek Find_Row_Number().
• Nato razglasi dve spremenljivki, mVrednost kot Niz in . vrstica kot Razpon .
• Nato uporabite InputBox za vstavitev vrednosti.
• Pozneje je Nastavite in . Če bo našel številko vrstice, če ta ni prazna.
• Nazadnje je MsgBox bo prikazal izhodne podatke.

• Pozneje kliknite Razvijalec> Vstavljanje in nato izberite Gumb ukaz iz Razdelek Nadzor obrazca .

• Nato boste dobili znak plus s kazalcem povlecite kamorkoli po listu glede na želeno velikost in nato sprostite klik.

• Ko spustite miško, se Dodelitev makra pogovorno okno se bo odprlo samodejno.
• Izberite ime makra kot je navedeno v kodeksih.
• Nato pritisnite V REDU .

• Nato z desno tipko miške kliknite na gumb in izberite Urejanje besedila za urejanje imena gumba.

• Vnesite ime gumba, nato kliknite kjer koli zunaj gumba in ime se bo spremenilo.

• Kliknite na gumb, da se odpre vnosno polje.
• Na koncu vstavite iskalno vrednost in pritisnite V REDU .

Zdaj si oglejte, da je prikazana številka vrstice z ujemajočo se vrednostjo.

Preberite več: Poiščite niz v stolpcu in vrnite številko vrstice v Excelu (7 načinov)

Zaključek

Upam, da bodo zgoraj opisani postopki dovolj dobri za iskanje številke vrstice v Excelu z uporabo VBA. Vabljeni, da postavite kakršno koli vprašanje v razdelku za komentarje in mi prosim sporočite povratne informacije. Obiščite ExcelWIKI za raziskovanje več.