Եթե դուք փնտրում եք ենթատողեր VBA-ի միջոցով գտնելու ամենահեշտ ուղիները, ապա դուք ճիշտ տեղում եք: Այս հոդվածն անցնելուց հետո դուք կկարողանաք գտնել ենթատողի դիրքը կամ տվյալներ հանել այս ենթատողի միջոցով կամ հեշտությամբ փոխել ենթաշարի ձևաչափը: Եկեք անցնենք հոդվածին:

Ներբեռնեք աշխատանքային գիրքը

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

Ահա, ես ունեմ հետևյալը. տվյալների աղյուսակ, որով ես ցույց կտամ VBA-ի միջոցով տողում ենթատող գտնելու ուղիները: Ես կփորձեմ նաև ցույց տալ պատահական տողում ենթատող գտնելու եղանակները:

Ես այս առաջադրանքը կատարել եմ Microsoft Excel 365 տարբերակի միջոցով, կարող եք օգտագործել ցանկացած այլ տարբերակ՝ ըստ ձեր հարմարության:

Մեթոդ-1. VBA-ի միջոցով տողում ենթատող գտնելը

Եթե ցանկանում եք գտնել ձեր ուզած ենթատողը VBA-ի միջոցով տողի մեջ, կարող եք օգտագործել InStr ֆունկցիան VBA կոդում:

Քայլ-01 :

➤Գնացեք Developer Tab>> Visual Basic Ընտրանք

Այնուհետև կբացվի Visual Basic խմբագրիչը :

➤Գնացեք Տեղադրեք Tab>> Մոդուլ Ընտրանք

Դրանից հետո կստեղծվի Մոդուլ :

Քայլ-02 :

➤Գրեք հետևյալ կոդը

5623

Այստեղ, InStr(1, “ Ես կարծում եմ, ուրեմն ես եմ», «think») կվերադարձնի տողի ենթալարի դիրքը: 1 էմեկնարկային դիրքը, « Կարծում եմ, ուրեմն ես եմ» այն տողն է, որտեղ դուք կգտնեք ձեր ուզած ենթատողը, և «think» այն ենթատողն է, որը ցանկանում եք գտնել: Այն լռելյայն զգայուն է մեծատառերի նկատմամբ, այնպես որ զգույշ եղեք ձեր ենթածառի մեծությունից, որը ցանկանում եք որոնել:

➤Սեղմեք F5

Արդյունք :

Դրանից հետո դուք կստանաք հետևյալ Հաղորդագրության տուփը , որը պարունակում է «think» ենթաշարի դիրքը:

Մեթոդ-2. Տողերի մեջ մեծատառերի համար անզգայուն ենթատող գտնելը

Եթե ցանկանում եք գտնել ձեր ուզած ենթատողը տողի մեջ` անկախ գործից, օգտագործելով VBA, ապա հետևեք հետևյալին. մեթոդ:

Քայլ-01 :

➤Հետևեք Քայլ-01 Մեթոդ-1

7184

Այստեղ vbTextCompare օգտագործվում է մեծատառերի անզգույշ ենթատող գտնելու համար:

➤Սեղմեք F5

Արդյունք :

Այնուհետև դուք կստանաք հետևյալ Հաղորդագրության տուփը , որը պարունակում է «think» ենթաշարի դիրքը:

Դուք կարող եք նույնն անել՝ օգտագործելով հետևյալ կոդը:

5956

Այստեղ, Option Compare Text գտնվելու է մեծատառերի անզգույշ ենթատող:

➤Սեղմեք F5

Արդյունք :

Այնուհետև դուք Կստացվի հետևյալ Հաղորդագրության տուփը , որը պարունակում է «think» ենթաշարի դիրքը:

Մեթոդ-3. InstrRev ֆունկցիայի օգտագործումը VBA-ում

Այստեղ ես ցույց կտամ ուղին գտնելու ենթատողը մի վերջիցտող:

Քայլ-01 :

➤Հետևեք Քայլ-01 Մեթոդ-1

1565

InStrRev ձախ կողմի փոխարեն կգտնի ենթատողը աջից:

➤Սեղմեք F5

Արդյունք :

Այնուհետև դուք կստանաք հետևյալ Հաղորդագրության տուփը , որը պարունակում է երկրորդ «Ես» ենթաշարի դիրքը. աջ կողմը:

Մեթոդ-4. Տվյալների տիրույթում տողի մեջ ենթատողի դիրքը գտնելը

Եթե ցանկանում եք գտնել հատուկ նիշը «@» Email Id -ում, ապա հետևեք այս մեթոդին: Ես այստեղ ավելացրել եմ Դիրք սյունակը այս նպատակով:

Քայլ-01 :

➤Հետևեք Քայլ-01 Մեթոդ-1-ից

8397

Այն կստեղծի ֆունկցիա FindSubstring (կարող եք օգտագործել ցանկացած այլ անուն)

արժեքը բջջի հղումն է, որը պարունակում է տողը և այն հայտարարված է որպես Range :

Քայլ -02 :

➤Ընտրեք ելքը Cell E5

➤Մուտքագրեք հետևյալ ֆունկցիան (ստեղծվել է VBA )

=FindSubstring(D5)

D5 այն բջիջն է, որը պարունակում է տողը:

➤Սեղմեք ENTER

➤Քաշեք ներքև Լրացնել բռնակը Գործիք

Արդյունք :

Այնուհետև դուք կստանաք հատուկ նիշի դիրքերը « @» Email Id -ում:

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

• Ինչպես գտնելԲջջում տող օգտագործելով VBA Excel-ում (2 մեթոդ)
• Գտնել հաջորդը Excel-ում VBA-ի միջոցով (2 օրինակ)
• Ինչպես գտնել տողը VBA Excel-ում (8 օրինակ)
• VBA Գտեք վերջին տողը Excel-ում (5 եղանակ)

Մեթոդ-5. Որոշակի ենթատողերի ստուգում տող տվյալների տիրույթում

Ենթադրենք, ուզում եք գրել Անցում կամ Չհամապատասխանել ուսանողների անուններին` կախված Արդյունք սյունակից: որտեղ Pass կամ Fail գրված է փակագծում: Այս ենթատողը Արդյունք սյունակում գտնելու համար և այն գրեք Անցնել կամ ձախողել սյունակում հետևեք այս մեթոդին:

Քայլ-01 :

➤Հետևեք Քայլ-01 Մեթոդ-1-ից

5731

Այստեղ բջիջների տիրույթը 11>C5:C10 որը Արդյունքների սյունակն է

InStr(cell.value, «Pass») > 0 այն պայմանն է, երբ թիվը զրոյից մեծ է (երբ բջիջը պարունակում է «Անցում» ) , ապա հետևյալ տողը կշարունակվի և հարակից բջիջում ելքը կտա որպես Անցված<12:>.

Եթե պայմանը դառնում է կեղծ, նշանակում է, որ բջիջը չի պարունակում «Անցում» , ապա Else -ի տակ գտնվող տողը կկատարվի և կտա ելքային արժեքը հարակից բջիջը որպես Չհաջողվեց :

Այս օղակը կշարունակվի յուրաքանչյուր բջիջի համար:

➤Սեղմեք F5

Արդյունք :

Այնուհետև դուք կստանաք հետևյալ արդյունքները Անցնել կամ ձախողել սյունակ:

Մեթոդ-6. Ստուգելով տողում որոշակի ենթատող և տվյալների արդյունահանում

Ես ցույց կտամ անունով ուսանողներին գտնելու ճանապարհը Michael Student Name սյունակում և հանեք նրանց համապատասխան տվյալները` օգտագործելով VBA այս մեթոդում:

Քայլ-01 :

➤Հետևեք Քայլ-01 Մեթոդ-1

1306

Այստեղ ես օգտագործել եմ B100 որպես Ակտիվ թերթիկների ընդգրկույթ , բայց դուք կարող եք օգտագործել ցանկացած տիրույթ` ըստ ձեր օգտագործման:

InStr(1, Range("B" & i), "Michael") > 0 պայմանն է ստուգելու, թե արդյոք բջիջը գտնվում է B սյունակը պարունակում է Michael

Range("E" & icount & ":G" & icount) այն տիրույթն է, որտեղ դուք ցանկանում եք ձեր ելքային տվյալները, և Range("B" & i & ":D" & i).value տրամադրի արժեքները B -ից D սյունակներից:

➤Սեղմեք F5

Արդյունք :

Դրանից հետո դուք կստանաք հետևյալ արդյունահանված տվյալները Մայքլ անունով ուսանողների համար:

Մեթոդ-7. Բառի ենթատողի որոնում

Եթե ցանկանում եք գտնել ենթատողը որպես բառ, ապա fol ցածր այս մեթոդը:

Քայլ-01 :

➤Հետևեք Քայլ-01 Մեթոդ-1-ից

5735

Այն կստուգի, արդյոք տողը պարունակում է ը , և այնուհետև նրա դիրքը կտրվի

➤Սեղմեք F5

Արդյունք :

Այնուհետև դուք կստանաք հետևյալ հաղորդագրության տուփը, որը ցույց է տալիս բառը, որը գտնվել է դիրքում:6 (<11-ի դիրքը>է ).

Դուք կարող եք փորձարկելհեռացնել այս կոդը տողում չգտնվող բառի համար:

➤Մուտքագրեք հետևյալ կոդը

4451

➤Սեղմեք F5

Արդյունք :

Այնուհետև դուք կստանաք հետևյալ հաղորդագրության տուփը, որը ցույց է տալիս բառը չի գտնվել :

Մեթոդ-8. Օգտագործելով Instr և LEFT ֆունկցիաները

Այստեղ ես կբացատրեմ տողի մեջ ենթալարի դիրքը գտնելու և այս ենթատողի առաջ տեքստերը հանելու եղանակը՝ օգտագործելով : VBA և LEFT ֆունկցիան :

Քայլ-01 :

➤Հետևեք Քայլ-01 -ից 11>Մեթոդ-1

2393

j = InStr(txt, "is") ենթալարի դիրքն է է և Left(txt, j - 1) կհանի ենթատողերը <11-ից առաջ:>է ։

➤Սեղմեք F5

Արդյունք :

Այնուհետև դուք կստանաք հետևյալ հաղորդագրության տուփը, որը ցույց է տալիս Ահա (ենթատողը է -ից առաջ):

Մեթոդ-9. Bolding Որոշակի ենթատող տողի մեջ

Դուք կարող եք Արդյունք սյունակում Արդյունք սյունակում Արդյունք սյունակում փակագծերից առաջ գնահատականները թավացնել` հետևելով այս մեթոդին դ.

Քայլ-01 :

➤Հետևեք Քայլ-01 Մեթոդից- 1

4674

txt = InStr(1, Cell, "(") կվերադարձնի առաջին փակագծի դիրքը և Cell.Characters(1, txt - 1).Font.Bold կդարձնի ենթատողը առաջին փակագծից առաջ Թավ :

Քայլ-02 :

➤Ընտրեք Արդյունք սյունակը

➤Անցնել դեպի Մշակավորող Tab>> Մակրոներ Ընտրանք

Այնուհետև Մակրո վիզարդը կհայտնվի:

➤Ընտրեք Boldingsubstring (VBA կոդը անունը) և այնուհետև Գործարկել :

Արդյունք :

Դրանից հետո Արդյունք Սյունակում գնահատականները թավացված կլինեն:

Պրակտիկա Բաժին

Ինքներդ պրակտիկա անելու համար մենք տրամադրել ենք Պրակտիկա բաժին, ինչպես ստորև` Պրակտիկա անունով թերթիկում: Խնդրում ենք դա անել ինքներդ:

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

Այս հոդվածում ես փորձեցի լուսաբանել ենթատող գտնելու ամենահեշտ ուղիները VBA Excel-ում արդյունավետորեն: Հուսով եմ, որ այն օգտակար կգտնեք: Եթե ​​ունեք առաջարկներ կամ հարցեր, կարող եք կիսվել մեզ հետ: