MS Excel programmā mums bieži ir jāmeklē vai jāatrod vērtības datu kopā. Tas var būt datu meklēšana rindās vai kolonnās. Par laimi, Excel piedāvā dažādas funkcijas un formulas, lai veiktu šāda veida uzdevumus. Izmantojot Excel VBA kodu, mēs varam automatizēt šo meklēšanas vai vērtību atrašanas uzdevumu. Šajā rakstā mēs redzēsim dažādus veidus, kā to izdarīt. atrast vērtību slejā programmā Excel VBA.

Lejupielādēt Practice Workbook

6 VBA piemēri, lai atrastu vērtību Excel kolonnā

Iegūsim datu kopu ar informāciju par produktiem un to Produkta ID , Zīmols , Modelis , Vienības cena , un Pasūtījuma ID . Mūsu uzdevums ir noskaidrot saskaņoto Pasūtījuma ID . Tagad mūsu uzdevums ir noskaidrot Pasūtījuma ID saistīta ar Produkta ID .

1. Vērtības atrašana kolonnā, izmantojot VBA meklēšanas funkciju

Pirmajā piemērā mēs izmantosim Atrast funkciju VBA lai atrastu vērtību slejā.

📌 Soļi:

• Ejiet uz lapas nosaukumu lapas apakšā.
• Nospiediet peles labo pogu.
• Izvēlieties Skatīt kodu opciju no saraksta.

• Atveras VBA logs. Pēc tam atlasiet Modulis no Ievietot iespēja

• Tagad VBA konsolē ierakstiet šādu kodu

 Sub Find_Value() Dim ProductID As Range Range("D4").ClearContents Set ProductID = Range("B8:B19").Find(What:=Range("C4").Value, _ LookIn:=xlValues, LookAt:=xlWhole) If Not ProductID Is Nothing Then Range("E5").Value = ProductID.Offset(, 4).Value Else MsgBox "Nav atrasti atbilstošie dati !!" End If End Sub 

• Tagad datu kopā ievietojiet pogu.
• Dodieties uz Izstrādātājs cilne.
• Izvēlieties Poga ( Veidlapu kontrole ) no Ievietot sadaļa.

• Dodiet jebkuru pogas nosaukumu. Piemēram, es to dodu kā Meklēšana .

• Piešķiriet kodu šai pogai.
• Izvēlieties pogu un nospiediet peles labo pogu.
• Izvēlieties Piešķirt makro no saraksta.

• Izvēlieties vēlamo makro no Piešķirt makro logs.
• Pēc tam nospiediet LABI .

• Tagad rakstiet jebkuru Produkta ID un noklikšķiniet uz Meklēšana pogu.

Redzams, ka nav redzams neviens sakritības variants, jo šis produkta numurs nav iekļauts sarakstā.

• Ievietojiet citu Produkta ID un vēlreiz nospiediet Meklēšana pogu.

Mēs iegūstam dotā pasūtījuma numuru Produkta ID .

Lasīt vairāk: Kā iegūt šūnas vērtību pēc rindas un kolonnas programmā Excel VBA

2. VBA, lai atrastu vērtību no dažādām darblapām

Tagad šajā sadaļā mēs darīsim to pašu, ko iepriekš, bet dažādām darblapām. Pieņemsim, ka mūsu informācija par produktu ir sadaļā Loksne 2 , un meklēšanas lodziņš ir 3. lapa . Tagad mēs uzrakstīsim VBA kodu, lai mēs varētu meklēt pasūtījuma ID, izmantojot produkta ID no 3. lapa .

2. lapa:

3 lapa:

📌 Soļi:

• Veiciet tos pašus soļus no solis 1 uz solis 2 no iepriekšējās metodes, lai atvērtu VBA konsoli
• Tagad VBA konsolē ierakstiet šādu kodu

 Sub Find_Value_from_worksheets() Dim rng As Range Dim ProductID As String Dim rownumber As Long ProductID = Sheet3.Cells(4, 3) Set rng = Sheet2.Columns("B:B").Find(What:=ProductID, _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) rownumber = rng.Row Sheet3.Cells(5, 5).Value = Sheet2.Cells(rownumber, 6).Value End Sub 

• Tagad atkal ievietojiet tādu pašu pogu kā iepriekšējā.
• Pēc tam piešķiriet makro kodu pogai.

• Ievadiet jebkuru Produkta ID un noklikšķiniet uz Izpildīt poga

Lasīt vairāk: Vērtības meklēšana kolonnā un citas kolonnas vērtības atgriešana programmā Excel

3. Atrodiet un atzīmējiet vērtību kolonnā

Aplūkosim, kā varam noskaidrot vērtības no kolonnas, tās atzīmējot. Šajā nolūkā pieņemsim, ka iepriekš minētajai datu kopai ar papildu kolonnu ar nosaukumu Piegādes statuss . Tagad mūsu uzdevums ir atzīmēt vērtības logā Piegādes statuss slejā, kas ir Gaida .

📌 Soļi:

• Veiciet to pašu darbību no solis 1 uz solis 2 kā iepriekšējā metode, lai atvērtu VBA konsoli
• Tagad VBA konsolē ierakstiet šādu kodu

 Sub Find_and_Mark() Dim strAddress_First As String Dim rngFind_Value As Range Dim rngSrch As Range Dim rng_Find As Range Set rng_Find = ActiveSheet.Range("G1:G16") Set rngSrch = rng_Find.Cells(rng_Find.Cells.Count) Set rngFind_Value = rng_Find.Find("Pending", rngSrch, xlValues) If Not rngFind_Value Is Nothing Then strAddress_First = rngFind_Value.Adrese rngFind_Value.Font.Color = vbRed Do SetrngFind_Value = rng_Find.FindNext(rngFind_Value) rngFind_Value.Font.Color = vbRed Loop Until rngFind_Value.Address = strAddress_First End If End Sub End Sub 

• Tagad dodieties uz darblapu un palaidiet kodu.
• Skatiet tabulā redzamos rezultātus.

Lasīt vairāk: Kā atrast augstāko vērtību Excel kolonnā (4 metodes)

4. VBA, lai atrastu vērtības kolonnā, izmantojot aizstājējzīmes

Visbeidzot, mēs redzēsim, kā mēs varam meklēt vai atrast vērtības kolonnās, izmantojot aizstājējzīmju rakstzīmes Excel VBA. Arī šajā metodē mēs izmantosim to pašu datu kopu, kas iepriekš. Mūsu uzdevums ir noskaidrot produktu cenas, izmantojot to modeli. Mēs varētu ievadīt pilnu nosaukumu vai pēdējās/pirmie rakstzīmes. Produkta ID .

📌 Soļi:

• Veiciet to pašu darbību no solis 1 uz solis 2 kā iepriekšējā metode, lai atvērtu VBA konsoli
• Tagad VBA konsolē ierakstiet šādu kodu

 Sub Find_Using_Wildcards() Set myerange = Range("B5:G16") Set ID = Range("D19") Set Price = Range("F20") Price.Value = Application.WorksheetFunction.VLookup _ ("*" & Range("D19") & "*", myerange, 4, False) End Sub 

• Atkal ievietojiet tādu pašu pogu kā iepriekšējā.
• Tagad piešķiriet makro kodu pogai.

• Tagad ievadiet jebkuru daļēju Produkta ID un nospiediet Izpildīt pogu.

Lasīt vairāk: Kā atrast zemāko vērtību Excel kolonnā (6 veidi)

5. Excel VBA, lai atrastu maksimālo vērtību slejā

Šeit mēs vēlamies atrast kolonnas maksimālo vērtību, izmantojot VBA kodu.

📌 Soļi:

• Mēs vēlamies noskaidrot maksimālo cenu.

• Tagad jaunajā modulī ievietojiet šādu VBA kodu.

 Sub Column_Max() Dim range_1 As Range Set range_1 = Application.InputBox(prompt:="Select Range", Type:=8) Max_Column = WorksheetFunction.Max(range_1) MsgBox Max_Column End Sub 

• Pēc tam nospiediet F5 pogu, lai palaistu VBA kodu.
• Portāls Ieeja tiek parādīts dialoglodziņš.
• Atlasiet datu kopas diapazonu.

• Visbeidzot, nospiediet LABI pogu.

Dialoglodziņā ir redzama maksimālā vērtība.

6. Excel VBA, lai atrastu pēdējo vērtību slejā

Šajā gadījumā mēs vēlamies uzzināt konkrētas kolonnas pēdējās rindas vai šūnas vērtību. Piemēram, mēs vēlamies uzzināt kolonnas Produkts pēdējo produktu.

📌 Soļi:

• Ievadiet VBA tālāk norādītais kods modulī.

 Sub last_value() Dim L_Row As Long L_Row = Cells(Rows.Count, "B").End(xlUp).Row MsgBox Cells(L_Row, 2).Value End Sub 

• Pēc tam palaidiet kodu, nospiežot F5 pogu.

Dialoglodziņā tiek parādīta pēdējā vērtība.

Lasīt vairāk: Kā atrast vērtības pēdējo atkārtošanos Excel kolonnā (5 metodes)

Lietas, kas jāatceras

Dažas bieži sastopamas kļūdas:

• Kļūda: Viena vērtība vienlaikus. Jo ATRAST vienlaicīgi var atrast tikai vienu vērtību.
• Kļūda: #NA vietnē VLOOKUP . Ja meklējamā vērtība nav atrodama dotajā datu kopā, šī funkcija atgriezīs šādu rezultātu. #NA kļūda.
• Range("Cell_Number").ClearContents daļu izmanto, lai izdzēstu iepriekšējo vērtību no šūnas. Pretējā gadījumā iepriekšējā vērtība ir jādzēš manuāli.

Secinājums

Šie ir daži veidi, kā atrast vērtības kolonnās, izmantojot VBA kodu programmā Excel. Esmu parādījis visas metodes ar attiecīgajiem piemēriem, taču var būt arī daudzas citas iterācijas. Esmu aplūkojis arī izmantoto funkciju pamatus. Ja jums ir kāda cita metode, kā to panākt, lūdzu, nekautrējieties dalīties ar mums. Apmeklējiet mūsu vietni. ExcelWIKI vairāk interesantu rakstu par Excel.