Obsah
Čísla riadkov v programe Excel môžeme nájsť mnohými spôsobmi, ale VBA ponúka viac funkcií a prispôsobení. Pomocou ktorých môžeme inteligentným spôsobom nájsť čísla riadkov. Dnes si v tomto článku ukážeme 4 užitočné makrá na nájdenie čísla riadku v programe Excel pomocou VBA.
Stiahnite si cvičebnicu
Bezplatný pracovný zošit programu Excel si môžete stiahnuť odtiaľto a precvičovať samostatne.
Zistenie čísla riadku pomocou VBA.xlsm4 makrá na vyhľadávanie čísla riadku pomocou VBA v programe Excel
Zoznámte sa s naším súborom údajov, ktorý použijeme na preskúmanie metód, ktoré predstavujú niektoré predaje predajcov v rôznych regiónoch.
Makro 1: VBA na vyhľadanie čísla riadku zmenou výberu
Najprv použijeme makro v programe Excel VBA na zistenie čísla riadku výberom ľubovoľnej bunky. To znamená, že ak len vyberiete ľubovoľnú použitú bunku, makro okamžite zobrazí číslo riadku. Na tento účel budete musieť uchovávať kódy v hárku , nie v module.
Kroky:
- Kliknite pravým tlačidlom myši na názov hárku a vyberte položku Zobraziť kód z kontextové menu .
- Potom napíšte nasledujúce kódy-
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 Sub
- Neskôr nie je potrebné spúšťať kódy, stačí sa vrátiť k hárku.
Rozdelenie kódu:
- Najprv som vytvoril Súkromný subdodávateľ postup - Worksheet_SelectionChange .
- Potom deklarujte premennú Rčíslo ako Celé číslo .
- riadok určí číslo riadku aktívnej bunky.
- Ďalej Ak skontroluje, či je aktívna bunka prázdna alebo nie, a potom MsgBox zobrazí výstup.
- Teraz stačí kliknúť na ktorúkoľvek použitú bunku a zobrazí sa číslo riadku.
Prečítajte si viac: Excel VBA: Nájsť reťazec v stĺpci a vrátiť číslo riadku
Makro 2: Zistenie čísla riadku aktívnej bunky pomocou VBA
Toto makro vráti číslo riadku aktívnej bunky v určenej bunke nášho hárku. V našich kódoch teda budeme musieť uviesť názov pracovného hárku a výstupnú bunku. Tu použijeme Bunka D14 ako našu výstupnú bunku.
Kroky:
- Tlač ALT + F11 otvoriť Okno VBA .
- Potom kliknite na nasledujúci spôsob vloženia nového modulu: Vložiť> Modul .
- Potom do modulu zadajte nasledujúce kódy-
Sub Find_Row_Number_of_an_Active_Cell() Dim wSheet As Worksheet Set wSheet = Worksheets("Active Cell") wSheet.Range("D14") = ActiveCell.row End Sub
- Potom sa vráťte k svojmu listu.
Rozdelenie kódu:
- Tu, Find_Row_Number_of_an_Active_Cell() je Sub
- Stránka wList je deklarovaný ako Pracovný list
- Potom sa Nastavenie príkaz vyberie aktívnu bunku
- Rozsah vráti číslo riadku vo výstupnej bunke.
- Teraz vyberte bunku a kliknite na ňu takto: Vývojár> Makrá .
- Po vystúpení v Makro stačí vybrať názov makra a stlačiť tlačidlo Spustiť .
Čoskoro potom uvidíte, že číslo riadku vybranej bunky sa vráti do našej výstupnej bunky.
Môžete vidieť, že B8 bola vybraná bunka, takže výstupom je 8.
Prečítajte si viac: Ako získať číslo riadku aktuálnej bunky v programe Excel (4 rýchle spôsoby)
Podobné čítania
- Ako zvýšiť číslo riadku vo vzorci programu Excel (6 praktických spôsobov)
- Získanie čísla riadku z rozsahu pomocou programu Excel VBA (9 príkladov)
- Ako vrátiť číslo riadku zhody bunky v programe Excel (7 metód)
- Ako získať číslo riadku z hodnoty bunky v programe Excel (5 metód)
Makro 3: VBA na vyhľadanie čísla riadku porovnaním s hodnotou
Ak chcete nájsť číslo riadku vyhľadaním hodnoty, potom je toto makro určené pre vás. V kódoch musíte uviesť hľadanú hodnotu a číslo stĺpca, ako je znázornené na obrázku nižšie.
Kroky:
- Postupujte podľa prvých dvoch krokov z predchádzajúcej metódy na vloženie nového modulu.
- Potom do nej vložte nasledujúce kódy.
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 Koniec Sub
- Potom sa vráťte k hárku.
Rozdelenie kódu:
- Tu je funkcia Find_Row_Matching_a_Value() Sub
- A wBook a wList sú deklarované ako Pracovný list a fCell je deklarovaný ako Rozsah .
- Stránka wBook a wList sú stanovené pre ActiveWorkbook a ActiveSheet .
- Const prevezme vstup pre hľadanú hodnotu.
- Neskôr, Rozsah vyhľadá hodnotu v uvedenom stĺpci.
- Ďalej Ak a Inak príkaz zobrazí výsledok pomocou MsgBox .
- Neskôr, postupujte podľa 5. kroku z predchádzajúcej metódy otvoriť Makro dialógové okno.
- Vyberte názov makra a stačí stlačiť Spustiť .
Čoskoro sa v okne s upozornením zobrazí číslo riadku.
Prečítajte si viac: Excel VBA: Vrátenie čísla riadku hodnoty (5 vhodných metód)
Makro 4: Tlačidlo na vyhľadanie čísla riadku
V našej poslednej metóde si ukážeme najinteligentnejší spôsob určenia čísla riadku pomocou VBA makier. Vytvoríme tlačidlo a priradíme k nemu makro. Keď klikneme na tlačidlo, otvorí sa vstupné pole, do ktorého môžeme zadať vstupnú hodnotu, pre ktorú chceme vyhľadať číslo riadku. Predchádzajúce makro mohlo vyhľadávať v uvedenom stĺpci, ale toto makro môže vyhľadávať v ľubovoľnom stĺpci, kdekoľvek v hárku.
Kroky:
- Opäť postupujte podľa prvých dvoch krokov z druhej metódy na vloženie nového modulu.
- Potom do nej vložte nasledujúce kódy.
Sub Find_Row_Number() Dim mValue As String Dim mrrow As Range mValue = InputBox("Vložiť hodnotu") 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
- Potom sa vráťte k hárku.
Rozdelenie kódu:
- Najprv som vytvoril Sub procedúra Find_Row_Number().
- Potom deklarujte dve premenné, mValue ako String a riadok ako Rozsah .
- Potom použil InputBox na vloženie hodnoty.
- Neskôr sa Nastavenie a Ak príkaz nájde číslo riadku, ak nie je prázdne.
- Nakoniec MsgBox zobrazí výstup.
- Neskôr kliknite na Vývojár> Vložiť a potom vyberte Tlačidlo príkaz z Sekcia Ovládacie prvky formulára .
- Potom dostanete znamienko plus kurzorom potiahnite kamkoľvek kliknutím na hárok podľa požadovanej veľkosti a potom kliknutie uvoľnite.
- Po uvoľnení myši sa Priradenie makra Dialógové okno sa otvorí automaticky.
- Vyberte názov makra ako je uvedené v kódexoch.
- Potom stačí stlačiť OK .
- Potom kliknite pravým tlačidlom myši na tlačidlo a vyberte Upraviť text upraviť názov tlačidla.
- Zadajte názov tlačidla, potom kliknite kdekoľvek mimo tlačidla a názov sa zmení.
- Teraz kliknite na tlačidlo, čím sa otvorí vstupné pole.
- Nakoniec stačí vložiť hľadanú hodnotu a stlačiť OK .
Teraz sa pozrite, že sa zobrazuje číslo riadku porovnávanej hodnoty.
Prečítajte si viac: Vyhľadanie reťazca v stĺpci a vrátenie čísla riadku v programe Excel (7 spôsobov)
Záver
To je všetko pre článok. Dúfam, že vyššie opísané postupy budú dostatočne dobré na nájdenie čísla riadku v Exceli pomocou VBA. Neváhajte položiť akúkoľvek otázku v sekcii komentárov a prosím, dajte mi spätnú väzbu. Navštívte ExcelWIKI a preskúmajte viac.