Մենք կարող ենք Excel-ում գտնել տողերի համարները բազմաթիվ եղանակներով, սակայն VBA առաջարկում է ավելի շատ հնարավորություններ և հարմարեցումներ: Որով մենք կարող ենք գտնել տողերի համարները խելացի ձևերով: Այսօր այս հոդվածը պատրաստվում է ցույց տալ 4 օգտակար մակրո Excel-ում VBA-ի միջոցով տողի համարը գտնելու համար:

Ներբեռնեք Practice Workbook

Դուք կարող եք ներբեռնել Excel-ի անվճար աշխատանքային գիրքը այստեղից և ինքնուրույն վարժվեք:

4 մակրո՝ VBA-ի միջոցով տողի համարը գտնելու համար Excel-ում

Ծանոթացե՛ք մեր տվյալների բազային, որը մենք կօգտագործենք ուսումնասիրելու մեթոդները, որոնք ներկայացնում են վաճառողների վաճառքը տարբեր տարածաշրջաններում:

Մակրո 1. VBA տողի համարը գտնելու համար՝ փոխելով ընտրությունը

Սկզբում մենք կօգտագործենք մակրո Excel-ում VBA տողի համարը գտնելու համար՝ ընտրելով ցանկացած բջիջ: Սա նշանակում է, որ եթե դուք պարզապես ընտրեք օգտագործված ցանկացած բջիջ, մակրոն անմիջապես ցույց կտա տողի համարը: Դրա համար դուք պետք է կոդերը պահեք թերթիկի մեջ , ոչ թե մոդուլում:

Քայլեր.

• Աջ- սեղմեք թերթի վերնագրի վրա և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից :

• Այնուհետև գրեք Հետևյալ կոդերը-

5353

• Հետագայում կոդերը գործարկելու կարիք չկա, պարզապես վերադարձեք ձեր թերթիկին:

Կոդերի բաշխում.

• Սկզբում ես ստեղծեցի Մասնավոր ենթա ընթացակարգ – Աշխատանքային_ընտրության փոփոխություն :
• Այնուհետև հայտարարվեց փոփոխական Rnumber որպես Ամբողջ թիվ ։
• տող -ը կորոշի ակտիվ բջիջի տողի համարը։
• Հաջորդում կստուգվի If հայտարարությունը։ ակտիվ բջիջը դատարկ է, թե ոչ, և այնուհետև MsgBox ցույց կտա ելքը:

• Այժմ պարզապես սեղմեք օգտագործված ցանկացած բջիջի վրա և այն ձեզ ցույց կտա տողը: համարը:

Կարդալ ավելին. Excel VBA. Գտեք տողը սյունակում և վերադարձրեք տողի համարը

Մակրո 2. Գտեք ակտիվ բջիջի տողի համարը VBA-ի միջոցով

Այս մակրոն կվերադարձնի մեր թերթի նշված բջիջի ակտիվ բջիջի տողի համարը: Այսպիսով, մենք պետք է նշենք աշխատաթերթի անունը և ելքային բջիջը մեր ծածկագրերում: Այստեղ մենք կօգտագործենք Cell D14 որպես մեր ելքային բջիջ:

Քայլեր.

• Սեղմեք ALT + F11 VBA պատուհանը բացելու համար :

• Հաջորդը սեղմեք հետևյալ կերպ` նոր մոդուլ տեղադրելու համար. Տեղադրեք > Մոդուլ .

• Այնուհետև մոդուլում մուտքագրեք հետևյալ ծածկագրերը-

4690

• Այնուհետև վերադարձեք ձեր թերթիկին:

Կոդի բաշխում.

• Ահա , Find_Row_Number_of_an_Active_Cell() -ը Sub
• wSheet հայտարարված է որպես Աշխատանքային թերթ
• Այնուհետև Set հայտարարությունը կընտրի ակտիվ բջիջը
• Range կվերադարձնի տողի համարը ելքային բջիջում:

• Այժմ ընտրեք բջիջ և սեղմեք հետևյալ կերպ. Մշակող >Մակրո .

• Macro երկխոսության վանդակում հայտնվելուց հետո պարզապես ընտրեք մակրո անունը և սեղմեք Գործարկել ։

Շուտով կտեսնեք, որ ընտրված բջիջի տողի համարը վերադարձվում է մեր ելքային բջիջում։

Դուք կարող եք տեսնել, որ B8 բջիջն ընտրված է, ուստի 8-ը արդյունքն է:

Կարդալ ավելին` Ինչպես ստանալ ընթացիկ բջիջների տողերի քանակը Excel-ում (4 արագ եղանակ)

Նման ընթերցումներ

• Ինչպես ավելացնել տողի համարը Excel բանաձև (6 հարմար եղանակ)
• Ստացեք տողի համարը տիրույթից Excel VBA-ով (9 օրինակ)
• Ինչպես վերադարձնել տողի համարը Բջջի համընկնումը Excel-ում (7 մեթոդ)
• Ինչպես ստանալ տողի համարը բջջային արժեքից Excel-ում (5 մեթոդ)

Մակրո 3. VBA տողի համարը գտնելու համար՝ համապատասխանեցնելով արժեքը

Եթե ցանկանում եք գտնել տողի համարը՝ արժեք որոնելով, ապա այս մակրոն ձեզ համար է: Դուք պետք է նշեք որոնման արժեքը և սյունակի համարը կոդերում, ինչպես ցույց է տրված ստորև նկարում:

Քայլեր.

• Հետևեք առաջինին: նախորդ մեթոդից երկու քայլ ՝ նոր մոդուլ տեղադրելու համար:
• Այնուհետև տեղադրեք դրա մեջ հետևյալ ծածկագրերը-

5828

• Դրանից հետո վերադարձեք ձեր թերթ:

Կոդերի բաժանում.

• Այստեղ Find_Row_Matching_a_Value() է Sub
• Իսկ wBook և wSheet հայտարարված են որպես Աշխատանքային թերթիկը և fCell հայտարարված է որպես Range :
• wBook և wSheet սահմանված են ActiveWorkbook և ActiveSheet -ի համար:
• Const -ը մուտքագրում է որոնման արժեքը:
• Հետագայում Range -ը կփնտրի արժեքը նշված սյունակում:
• Հաջորդում If և Else հայտարարությունը ցույց կտա արդյունքը` օգտագործելով MsgBox :

• Հետագայում հետևեք նախորդ մեթոդի 5-րդ քայլին ՝ բացելու համար Macro երկխոսության տուփը:
• Ընտրեք մակրոյի անունը և պարզապես սեղմեք Գործարկել :

Շուտով ծանուցման տուփը ձեզ ցույց կտա տողի համարը:

Կարդալ ավելին. Excel VBA. վերադարձնել տողի արժեքի քանակը (5 հարմար մեթոդ)

Մակրո 4. կոճակ՝ տողի համարը գտնելու համար

Մեր վերջին մեթոդում մենք ձեզ ցույց կտանք տողի համարը որոշելու ամենախելացի մեթոդը՝ օգտագործելով VBA մակրոները: Մենք կստեղծենք կոճակ և դրանով մակրո կհատկացնենք: Երբ մենք սեղմում ենք կոճակը, այն կբացի մուտքագրման տուփ, որտեղ մենք կարող ենք մուտքագրել որոնման արժեքը, որի համար ցանկանում ենք տողի համարը: Նախորդ մակրոն կարող էր որոնել նշված սյունակում, բայց այս մակրոն կարող է փնտրել ցանկացած սյունակ, թերթի ցանկացած կետում:

Քայլեր.

• Կրկին հետևեք երկրորդ մեթոդի առաջին երկու քայլերին ՝ նոր մոդուլ տեղադրելու համար:
• Հաջորդում տեղադրեք հետևյալ կոդերը դրա մեջ-

9243

• Այնուհետև վերադարձեք քոթերթիկ:

Կոդերի բաշխում.

• Սկզբում ես ստեղծեցի Sub ընթացակարգ Find_Row_Number().
• Այնուհետև հայտարարվեց երկու փոփոխական՝ mValue որպես String և row որպես Range .
• Այնուհետև օգտագործեց InputBox արժեքը տեղադրելու համար:
• Հետագայում Set և If հայտարարությունները կգտնի տողի համարը, եթե այն դատարկ չէ:
• Վերջապես, MsgBox -ը ցույց կտա արդյունքը:

• Այնուհետև սեղմեք Մշակող > Տեղադրեք և այնուհետև ընտրեք Button հրամանը Form Controls բաժնից :

• Այնուհետև դուք կստանաք գումարած նշան Ձեր կուրսորով, քաշեք ցանկացած վայր՝ սեղմելով ձեր թերթիկի վրա՝ ըստ ձեր ուզած չափի, ապա բաց թողեք սեղմումը:

• Մկնիկը բաց թողնելուց հետո Նշանակել մակրո երկխոսության տուփը ինքնաբերաբար կբացվի:
• Ընտրեք մակրո անունը ինչպես նշված է կոդերում:
• Այնուհետև պարզապես սեղմեք OK :

• Հաջորդը, սեղմեք աջ կոճակի վրա և ընտրեք Խմբագրել տեքստը կոճակի անունը խմբագրելու համար:

• Մուտքագրեք կոճակի անունը, այնուհետև սեղմեք կոճակից դուրս ցանկացած վայրում, և անունը կփոխվի:

• Այժմ սեղմեք կոճակի վրա, այն կբացի մուտքագրման տուփը:
• Ի վերջո, պարզապես տեղադրեք որոնման արժեքը և սեղմեք Լավ ։

Այժմ նայեք, այն ցույց է տալիս համընկնող տողի համարը։արժեքը:

Կարդալ ավելին. Գտեք տողը սյունակում և վերադարձրեք տողի համարը Excel-ում (7 եղանակ)

Եզրակացություն

Այսքանը հոդվածի համար է: Հուսով եմ, որ վերը նկարագրված ընթացակարգերը բավականաչափ լավ կլինեն Excel-ում VBA-ի միջոցով տողի համարը գտնելու համար: Ազատորեն ցանկացած հարց տվեք մեկնաբանությունների բաժնում և խնդրում եմ ինձ հետադարձ կապ տալ: Այցելեք ExcelWIKI՝ ավելին ուսումնասիրելու համար: