Mēs varam atrast rindu numurus programmā Excel, izmantojot daudzus veidus, bet VBA Ar to mēs varam atrast rindu numurus gudros veidos. Šodien šajā rakstā tiks parādīti 4 noderīgi makro, lai atrastu rindas numuru programmā Excel, izmantojot VBA.

Lejupielādēt Practice Workbook

No šejienes varat lejupielādēt bezmaksas Excel darbgrāmatu un patstāvīgi praktizēties.

4 makroekrāni rindas numura atrašanai, izmantojot VBA programmā Excel

Iepazīstieties ar mūsu datu kopu, kuru izmantosim, lai izpētītu metodes, kas atspoguļo dažus pārdevēju pārdošanas apjomus dažādos reģionos.

Makro 1: VBA, lai atrastu rindas numuru, mainot atlasi

Vispirms mēs izmantosim makro programmu programmā Excel. VBA lai atrastu rindas numuru, izvēloties jebkuru šūnu. Tas nozīmē, ka, izvēloties jebkuru izmantoto šūnu, makroprogramma uzreiz parādīs rindas numuru. Lai to izdarītu, jums būs nepieciešams saglabājiet kodus lapā. , nevis modulī.

Soļi:

• Ar peles labo pogu noklikšķiniet uz lapas nosaukuma un atlasiet Skatīt kodu no konteksta izvēlne .

• Tad rakstiet šādus kodus-

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rnumber As Integer Rnumber = ActiveCell.row If ActiveCell.Value "" Then MsgBox "Noklikšķinātās šūnas rindas numurs ir: " & Rnumber End If End Sub End Sub 

• Vēlāk kodus palaist nav nepieciešams, vienkārši atgriezieties pie savas lapas.

Koda sadalījums:

• Vispirms es izveidoju Privātais apakšsektors procedūra - Darblapa_SelectionChange .
• Tad deklarēts mainīgais Rnumber kā Vesels skaitlis .
• rinda tiks noteikts aktīvās šūnas rindas numurs.
• Tālāk Ja paziņojums pārbaudīs aktīvo šūnu, vai tā ir tukša, un pēc tam MsgBox parādīs izvades rezultātu.

• Tagad vienkārši noklikšķiniet uz jebkuras izmantotās šūnas, un tiks parādīts rindas numurs.

Lasīt vairāk: Excel VBA: atrast virkni kolonnā un atgriezt rindas numuru

Makro 2: Aktīvās šūnas rindas numura atrašana, izmantojot VBA

Šis makro atgriež aktīvās šūnas rindas numuru noteiktā mūsu lapas šūnā. Tātad mums būs jānorāda darblapas nosaukums un izejas šūna mūsu kodos. Šeit mēs izmantosim. Šūna D14 kā mūsu izejas šūnu.

Soļi:

• Spiediet ALT + F11 lai atvērtu VBA logs .

• Pēc tam noklikšķiniet uz , lai ievietojiet jaunu moduli: Ievietot> Modulis .

• Pēc tam modulī ievadiet šādus kodus-

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

• Tad atgriezieties pie savas lapas.

Koda sadalījums:

• Šeit, Atrast_Row_Number_of_an_Active_Cell() ir Sub
• Portāls wLoksne ir deklarēts kā Darba lapa
• Tad Komplekts paziņojums izvēlēsies aktīvo šūnu
• Diapazons atgriezīs rindas numuru izejas šūnā.

• Tagad atlasiet šūnas un noklikšķiniet uz tām šādi: Izstrādātājs> Makro .

• Pēc parādīšanās Makro dialoglodziņā vienkārši atlasiet makro nosaukumu un nospiediet Palaist .

Drīz pēc tam redzēsiet, ka atlasītās šūnas rindas numurs tiek atgriezts mūsu izejas šūnā.

Varat redzēt, ka B8 ir izvēlēta šūna, tāpēc izejas vērtība ir 8.

Lasīt vairāk: Kā iegūt pašreizējās šūnas rindas numuru programmā Excel (4 ātri veidi)

Līdzīgi lasījumi

• Kā palielināt rindas numuru Excel formulā (6 parocīgi veidi)
• Rindu numura iegūšana no diapazona ar Excel VBA (9 piemēri)
• Kā Excel programmā Excel atgriezt šūnas atbilstības rindas numuru (7 metodes)
• Kā iegūt rindas numuru no šūnas vērtības programmā Excel (5 metodes)

3. makro: VBA, lai atrastu rindas numuru, saskaņojot vērtību

Ja vēlaties atrast rindas numuru, meklējot vērtību, tad šis makro ir domāts tieši jums. Jums kodos būs jānorāda meklēšanas vērtība un kolonnas numurs, kā parādīts attēlā zemāk.

Soļi:

• Veiciet pirmās divas iepriekšējās metodes darbības lai ievietotu jaunu moduli.
• Pēc tam tajā ievietojiet šādus kodus-

 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") EndJa Beigas apakšsadaļa 

• Pēc tam atgriezieties pie savas lapas.

Koda sadalījums:

• Šajā gadījumā funkcija Find_Row_Matching_a_Value() ir Sub
• Un wBook un wLoksne ir deklarēti kā Darba lapa un fCell ir deklarēts kā Diapazons .
• Portāls wBook un wLoksne ir noteikti ActiveWorkbook un ActiveSheet .
• Konst tiks ievadīta meklēšanas vērtība.
• Vēlāk, Diapazons meklēs vērtību minētajā slejā.
• Tālāk Ja un Citādi paziņojums parādīs rezultātu, izmantojot MsgBox .

• Vēlāk, izpildiet iepriekšējās metodes 5. soli lai atvērtu Makro dialoglodziņš.
• Izvēlieties makro nosaukums un vienkārši nospiediet Palaist .

Drīz vien paziņojuma lodziņā tiks parādīts rindas numurs.

Lasīt vairāk: Excel VBA: atgriezt vērtības rindas numuru (5 piemērotas metodes)

Makro 4: Poga rindas numura atrašanai

Pēdējā metodē mēs parādīsim gudrāko metodi rindas numura noteikšanai, izmantojot VBA Mēs izveidosim pogu un tai piešķirsim makro. Noklikšķinot uz pogas, tiks atvērts ievades lodziņš, kurā varēsim ievadīt meklēšanas vērtību, kurai vēlamies iegūt rindas numuru. Iepriekšējais makro varēja meklēt tikai minētajā kolonnā, bet šis makro var meklēt jebkurā kolonnā, jebkurā vietā lapā.

Soļi:

• Atkal izpildiet pirmās divas darbības no otrās metodes. lai ievietotu jaunu moduli.
• Tālāk tajā ievietojiet šādus kodus.

 Sub Find_Row_Number() Dim mValue As String Dim mrrow As Range mValue = InputBox("Ievietot vērtību") Set mrrow = Cells.Find(What:=mValue, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If mrrow Is Nothing Then MsgBox ("Nav atbilstības") Else MsgBox (mrrow.row) End If End Sub 

• Pēc tam atgriezieties pie savas lapas.

Koda sadalījums:

• Vispirms es izveidoju Sub procedūra Find_Row_Number().
• Pēc tam deklarē divus mainīgos, mValue kā Virkne un rinda kā Diapazons .
• Tad izmantoja InputBox lai ievietotu vērtību.
• Vēlāk Komplekts un Ja paziņojums atradīs rindas numuru, ja tas nebūs tukšs.
• Visbeidzot. MsgBox parādīs izvades rezultātu.

• Vēlāk noklikšķiniet uz Izstrādātājs> Ievietot un pēc tam atlasiet Poga komandu no Sadaļa Veidlapu vadības elementi .

• Tad jūs saņemsiet plus zīme ar kursoru velciet jebkurā vietā, noklikšķinot uz lapas atbilstoši vēlamajam izmēram, un pēc tam atlaidiet klikšķi.

• Pēc peles atlaišanas Piešķirt makro dialoglodziņš tiks atvērts automātiski.
• Izvēlieties makro nosaukums kā minēts kodeksos.
• Pēc tam vienkārši nospiediet LABI .

• Pēc tam ar peles labo pogu noklikšķiniet uz pogas un izvēlieties Rediģēt tekstu lai rediģētu pogas nosaukumu.

• Ierakstiet pogas nosaukumu, pēc tam noklikšķiniet jebkurā vietā ārpus pogas, un nosaukums tiks mainīts.

• Tagad noklikšķiniet uz pogas, un tiks atvērts ievades lodziņš.
• Visbeidzot, vienkārši ievietojiet meklēto vērtību un nospiediet LABI .

Tagad paskatieties, ka tiek parādīts saskaņotās vērtības rindas numurs.

Lasīt vairāk: Atrodiet virkni kolonnā un atgrieziet rindas numuru programmā Excel (7 veidi)

Secinājums

Tas ir viss par rakstu. Es ceru, ka iepriekš aprakstītās procedūras būs pietiekami labas, lai atrastu rindas numuru Excel, izmantojot VBA. Jūtieties brīvi uzdot jebkuru jautājumu komentāru sadaļā un, lūdzu, sniedziet man atsauksmes. Apmeklējiet ExcelWIKI, lai izpētītu vairāk.