Voimme löytää rivinumerot Excelissä monin tavoin, mutta VBA tarjoaa enemmän ominaisuuksia ja mukautuksia. Millä voimme löytää rivinumerot älykkäillä tavoilla. Tänään tämä artikkeli näyttää 4 hyödyllistä makroa rivinumeron löytämiseksi Excelissä VBA: n avulla.

Lataa harjoituskirja

Voit ladata ilmaisen Excel-työkirjan täältä ja harjoitella sitä itsenäisesti.

4 Makroja rivinumeron etsimiseen VBA:n avulla Excelissä

Tutustu tietokokonaisuuteemme, jota käytämme tutkiaksemme menetelmiä, jotka edustavat myyjien myyntiä eri alueilla.

Makro 1: VBA löytää rivin numeron muuttamalla valintaa

Ensin käytämme Excelin makroa. VBA löytää rivin numeron valitsemalla minkä tahansa solun. Tämä tarkoittaa, että jos vain valitset minkä tahansa käytetyn solun, makro näyttää rivin numeron välittömästi. Tätä varten sinun täytyy pitää koodit arkissa , ei moduulissa.

Vaiheet:

• Napsauta hiiren kakkospainikkeella arkin otsikkoa ja valitse Näytä koodi alkaen kontekstivalikko .

• Kirjoita sitten seuraavat koodit-

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rnumber As Integer Rnumber = ActiveCell.row If ActiveCell.Value "" Then MsgBox "Napsautetun solun rivinumero on: " & Rnumber End If End If End Sub 

• Myöhemmin koodeja ei tarvitse ajaa, voit vain palata arkkiisi.

Koodin erittely:

• Ensin loin Yksityinen Sub menettely - Worksheet_SelectionChange .
• Sitten ilmoitetaan muuttuja Rnumber kuten Kokonaisluku .
• rivi määrittää aktiivisen solun rivinumeron.
• Seuraavaksi Jos lauseke tarkistaa aktiivisen solun, onko se tyhjä vai ei, ja sitten MsgBox näyttää tulosteen.

• Napsauta nyt mitä tahansa käytettyä solua, niin se näyttää rivinumeron.

Lue lisää: Excel VBA: Etsi merkkijono sarakkeesta ja palauta rivin numero

Makro 2: Etsi aktiivisen solun rivinumero VBA:n avulla

Tämä makro palauttaa aktiivisen solun rivinumeron tietyssä arkin solussa. Meidän on siis mainittava koodissamme työarkin nimi ja tulostussolu. Tässä käytämme komentoa Solu D14 lähtösoluna.

Vaiheet:

• Paina ALT + F11 avataksesi VBA-ikkuna .

• Lisää uusi moduuli seuraavasti: Lisää> Moduuli .

• Kirjoita sen jälkeen seuraavat koodit moduuliin-

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

• Käänny sitten takaisin arkkiisi.

Koodin erittely:

• Tässä, Etsi_rivin_numero_aktiivisesta_solusta() on Sub
• The wSheet ilmoitetaan Työtaulukko
• Sitten Aseta lauseke valitsee aktiivisen solun
• Valikoima palauttaa rivin numeron tulostussolussa.

• Valitse nyt solu ja napsauta seuraavasti: Kehittäjä> Makrot .

• Sen jälkeen, kun hän oli esiintynyt Makro valintaikkunassa, valitse vain makron nimi ja paina painiketta Suorita .

Pian sen jälkeen näet, että valitun solun rivinumero palautetaan tulostussoluun.

Näet, että B8 solu on valittu, joten 8 on lähtöarvo.

Lue lisää: Kuinka saada nykyisen solun rivinumero Excelissä (4 nopeaa tapaa)

Samanlaisia lukemia

• Kuinka lisätä rivinumeroa Excel-kaavassa (6 kätevää tapaa)
• Hanki rivin numero alueesta Excel VBA: lla (9 esimerkkiä)
• Kuinka palauttaa Excelin solun ottelun rivinumero (7 menetelmää)
• Kuinka saada rivin numero solun arvosta Excelissä (5 menetelmiä)

Makro 3: VBA rivinumeron etsimiseen vastaamalla arvoa

Jos haluat löytää rivin numeron etsimällä arvon, tämä makro on sinua varten. Sinun on mainittava hakuarvo ja sarakkeen numero koodeissa, kuten alla olevassa kuvassa näkyy.

Vaiheet:

• Noudata edellisen menetelmän kahta ensimmäistä vaihetta lisätäksesi uuden moduulin.
• Lisää sitten seuraavat koodit siihen-

 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 & " sijaitsee rivillä: " & fCell.row) Else MsgBox (Matching_Value & " Ei löydy vastaavuutta") EndIf End Sub 

• Sen jälkeen palaa takaisin arkkiisi.

Koodin erittely:

• Tässä Find_Row_Matching_a_Value() on Find_Row_Matching_a_Value() Sub
• Ja wBook ja wSheet ilmoitetaan seuraavasti Työtaulukko ja fCell ilmoitetaan seuraavasti Valikoima .
• The wBook ja wSheet on asetettu ActiveWorkbook ja ActiveSheet .
• Const ottaa syötteen hakuarvoa varten.
• Myöhemmin, Valikoima hakee arvon mainitun sarakkeen kautta.
• Seuraavaksi Jos ja Else lauseke näyttää tuloksen käyttämällä MsgBox .

• Myöhemmin, noudata edellisen menetelmän 5. vaihetta avataksesi Makro valintaikkuna.
• Valitse makron nimi ja paina vain Suorita .

Pian ilmoitusruutu näyttää rivinumeron.

Lue lisää: Excel VBA: Palauta arvon rivinumero (5 sopivaa menetelmää)

Makro 4: Painike rivinumeron etsimiseen

Viimeisessä menetelmässämme näytämme sinulle älykkäimmän tavan määrittää rivin numero käyttämällä VBA Kun napsautamme painiketta, se avaa syöttöruudun, jossa voimme syöttää hakuarvon, jolle haluamme rivinumeron. Edellinen makro saattoi hakea mainitussa sarakkeessa, mutta tämä makro voi hakea missä tahansa sarakkeessa, missä tahansa arkissa.

Vaiheet:

• Noudata jälleen toisen menetelmän kahta ensimmäistä vaihetta. lisätäksesi uuden moduulin.
• Lisää seuraavaksi seuraavat koodit siihen-

 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 If Sub 

• Palaa sitten takaisin arkkiisi.

Koodin erittely:

• Ensin loin Sub menettely Find_Row_Number().
• Sitten ilmoitetaan kaksi muuttujaa, mValue kuten merkkijono ja rivi kuten Valikoima .
• Sitten käytettiin InputBox lisätäksesi arvon.
• Myöhemmin Aseta ja Jos lauseke löytää rivin numeron, jos se ei ole tyhjä.
• Lopuksi MsgBox näyttää tulosteen.

• Klikkaa myöhemmin Kehittäjä> Lisää ja valitse sitten Nappi komento Lomake Controls -osio .

• Sitten saat plus-merkki vedä kursorilla mihin tahansa klikkaamalla arkkia haluamasi koon mukaan ja vapauta sitten klikkaus.

• Hiiren vapauttamisen jälkeen Määritä makro valintaikkuna avautuu automaattisesti.
• Valitse makron nimi kuten säännöissä mainitaan.
• Paina sitten vain OK .

• Napsauta sitten painiketta hiiren kakkospainikkeella ja valitse Muokkaa tekstiä muokata painikkeen nimeä.

• Kirjoita painikkeen nimi ja napsauta sitten mitä tahansa painikkeen ulkopuolella, jolloin nimi muuttuu.

• Napsauta nyt painiketta, jolloin avautuu syöttöruutu.
• Lisää lopuksi vain hakuarvo ja paina OK .

Katso nyt, se näyttää sovitetun arvon rivinumeron.

Lue lisää: Etsi merkkijono sarakkeessa ja palauta rivinumero Excelissä (7 tapaa)

Päätelmä

Siinä kaikki artikkelin osalta. Toivon, että edellä kuvatut menettelyt ovat riittävän hyviä löytämään rivinumeron Excelissä VBA: n avulla. Voit vapaasti kysyä mitä tahansa kysymystä kommenttiosassa ja antaa minulle palautetta. Käy ExcelWIKI: ssä tutkimassa lisää.