Az Excelben sokféleképpen megtalálhatjuk a sorszámokat, de VBA több funkciót és testreszabást kínál. Amelyek segítségével intelligens módon találhatjuk meg a sorszámokat. Ma ez a cikk 4 hasznos makrót mutat be a sorszám kereséséhez az Excelben a VBA használatával.

Gyakorlati munkafüzet letöltése

Az ingyenes Excel munkafüzetet innen töltheti le, és önállóan gyakorolhatja.

4 makró a sorszám megkereséséhez a VBA használatával Excelben

Ismerkedjen meg az adatkészletünkkel, amelyet a különböző régiókban értékesítői eladásokat reprezentáló módszerek feltárására fogunk használni.

Makró 1: VBA a sorszám kereséséhez a kiválasztás megváltoztatásával

Először egy makrót használunk az Excelben VBA hogy bármelyik cella kiválasztásával megkeresse a sorszámot. Ez azt jelenti, hogy ha csak kiválasztja bármelyik használt cellát, a makró azonnal megmutatja a sorszámot. Ehhez ki kell választania a a kódokat egy lapon kell tárolni , nem a modulban.

Lépések:

• Kattintson a jobb gombbal a lap címére, és válassza a Kód megtekintése a kontextus menü .

• Ezután írja a következő kódokat-

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rnumber As Integer Rnumber = ActiveCell.row If ActiveCell.Value "" Then MsgBox "The row number of the clicked cell is: " & Rnumber End If End If End Sub 

• Később nem kell lefuttatni a kódokat, csak menj vissza a lapodhoz.

Kódbontás:

• Először is, létrehoztam egy Private Sub eljárás - Worksheet_SelectionChange .
• Ezután deklarált egy változót Rszám mint Egész szám .
• sor határozza meg az aktív cella sorszámát.
• Ezután a Ha utasítás ellenőrzi az aktív cellát, hogy üres-e vagy sem, majd a MsgBox megjeleníti a kimenetet.

• Most kattintson bármelyik használt cellára, és megjelenik a sorszám.

Bővebben: Excel VBA: Szöveg keresése az oszlopban és a sorszám visszaadása

2. makró: Az aktív cella sorszámának keresése VBA használatával

Ez a makró a lapunk egy megadott cellájában lévő aktív cella sorszámát adja vissza. Tehát a kódjainkban meg kell említenünk a munkalap nevét és a kimeneti cellát. Itt a következőt fogjuk használni D14-es cella mint a kimeneti cellánk.

Lépések:

• Sajtó ALT + F11 a VBA ablak .

• Ezután kattintson az alábbiak szerint egy új modul beillesztéséhez: Beszúrás> modul .

• Ezután írja be a következő kódokat a modulba-

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

• Ezután forduljon vissza a lapjához.

Kódbontás:

• Tessék, Find_Row_Number_of_an_Active_Cell() a Sub
• A wSheet deklarálva van, mint egy Munkalap
• Akkor a Állítsa be a utasítás kiválasztja az aktív cellát
• Tartomány a kimeneti cellában lévő sorszámot adja vissza.

• Most válasszon ki egy cellát, és kattintson az alábbiak szerint: Fejlesztő> Makrók .

• Miután megjelent a Makró párbeszédpanelen csak válassza ki a makró nevét, és nyomja meg a Fuss .

Nem sokkal később látni fogjuk, hogy a kiválasztott cella sorszáma visszakerül a kimeneti cellánkba.

Láthatja, hogy a B8 cella lett kiválasztva, így 8 a kimenet.

Bővebben: Hogyan szerezze be az aktuális cella sorszámát az Excelben (4 gyors módja)

Hasonló olvasmányok

• Hogyan lehet növelni a sorszámot az Excel-képletben (6 praktikus módja)
• Sorszám megszerzése a tartományból az Excel VBA-val (9 példa)
• Hogyan adjuk vissza a cellák sorszámát az Excelben (7 módszerek)
• Hogyan szerezzen sorszámot a cellák értékéből az Excelben (5 módszerek)

3. makró: VBA sorszám keresése egy értékkel való egyezéssel

Ha a sorszámot egy érték keresésével szeretné megtalálni, akkor ez a makró Önnek szól. A kódokban meg kell említenie a keresési értéket és az oszlopszámot az alábbi képen látható módon.

Lépések:

• Kövesse az előző módszer első két lépését egy új modul beillesztéséhez.
• Ezután illessze be a következő kódokat.

 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") EndIf End Sub 

• Ezután menj vissza a lapodhoz.

Kódbontás:

• Itt a Find_Row_Matching_a_Value() a Find_Row_Matching_a_Value() Sub
• És wBook és wSheet a következőként vannak deklarálva Munkalap és fCell a következőképpen van bejelentve Tartomány .
• A wBook és wSheet a következőkre vannak beállítva ActiveWorkbook és ActiveSheet .
• Const a keresési értéket bevitelre veszi.
• Később, Tartomány az értéket az említett oszlopban keresi.
• Ezután a Ha és Else utasítás az eredményt a MsgBox .

• Később, kövesse az előző módszer 5. lépését a Makró párbeszédpanel.
• Válassza ki a makró neve és csak nyomja meg a Fuss .

Hamarosan egy értesítési dobozban megjelenik a sorszám.

Bővebben: Excel VBA: Az érték sorszámának visszaadása (5 megfelelő módszer)

4. makró: Gomb a sorszám megkereséséhez

Utolsó módszerünkben megmutatjuk a legokosabb módszert a sorszám meghatározására a következők segítségével VBA Makrók. Készítünk egy gombot, és hozzárendelünk egy makrót. Amikor rákattintunk a gombra, megnyílik egy beviteli mező, ahol megadhatjuk a keresési értéket, amelyhez a sorszámot szeretnénk. Az előző makró egy adott oszlopban tudott keresni, de ez a makró bármelyik oszlopban kereshet, bárhol a lapon.

Lépések:

• Ismét kövesse az első két lépést a második módszerből. egy új modul beillesztéséhez.
• Ezután illessze be a következő kódokat.

 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 

• Ezután menj vissza a lapodhoz.

Kódbontás:

• Először is, létrehoztam egy Sub eljárás Find_Row_Number().
• Ezután két változót deklarált, mValue mint String és sor mint Tartomány .
• Ezután használta a InputBox egy érték beillesztéséhez.
• Később a Állítsa be a és Ha utasítás megtalálja a sorszámot, ha az nem üres.
• Végül a MsgBox megjeleníti a kimenetet.

• Később kattintson a Fejlesztő> Beillesztés majd válassza ki a Gomb parancsot a Form Controls szakasz .

• Akkor kap egy plusz jel a kurzorral, húzza bárhová a kívánt méretnek megfelelően a lapon kattintva, majd engedje el a kattintást.

• Az egér elengedése után a Makró hozzárendelése párbeszédpanel automatikusan megnyílik.
• Válassza ki a makró neve ahogyan azt a kódexek is említik.
• Ezután csak nyomja meg a OK .

• Ezután kattintson a jobb gombbal a gombra, és válassza a Szöveg szerkesztése a gomb nevének szerkesztéséhez.

• Írja be a gomb nevét, majd kattintson a gombon kívülre, és a név megváltozik.

• Most kattintson a gombra, ez megnyit egy beviteli mezőt.
• Végül csak adja meg a keresési értéket, és nyomja meg a OK .

Most nézzük meg, hogy a megfelelő érték sorszámát mutatja.

Bővebben: Szöveg keresése az oszlopban és a sorszám visszaadása az Excelben (7 mód)

Következtetés

Ez minden a cikkhez. Remélem, hogy a fent leírt eljárások elég jók lesznek ahhoz, hogy megtalálják a sorszámot az Excelben a VBA segítségével. Nyugodtan kérdezzen bármilyen kérdést a megjegyzés rovatban, és kérjük, adjon nekem visszajelzést. Látogasson el az ExcelWIKI-be, hogy többet fedezzen fel.