Բովանդակություն
Երբ մենք ունենք մեծ տվյալների հավաքածու մեր Excel-ի աշխատանքային գրքում, երբեմն հարմար է, եթե մենք կարողանանք շրջել տողերի միջով` հանելու կոնկրետ արդյունքները, որոնք մենք ցանկանում ենք ստանալ: VBA -ի ներդրումը Excel-ում ցանկացած գործողություն իրականացնելու ամենաարդյունավետ, ամենաարագ և անվտանգ մեթոդն է: Այս հոդվածում մենք ձեզ ցույց կտանք 11 տարբեր եղանակներ, թե ինչպես կարելի է անցկացնել աղյուսակի տողերը Excel-ում VBA մակրո -ով:
Ներբեռնել աշխատանքային գիրքը:
Դուք կարող եք ներբեռնել անվճար պրակտիկայի Excel աշխատանքային գիրքը այստեղից:
Անցեք աղյուսակի տողերը VBA.xlsm-ով
11 մեթոդ VBA-ով` Excel-ում աղյուսակի տողերի միջով անցնելու համար
Այս բաժնից հետո դուք կսովորեք, թե ինչպես անցկացնել աղյուսակի տողերը 11 տարբեր մեթոդներով, օրինակ՝ պտտել տողերի միջով մինչև դատարկ բջիջ, շրջել տողերի միջով մինչև որոշակի արժեք գտնել, շրջել տողերի միջով և գունավորել որոշակի բջիջ և այլն: Excel-ում VBA մակրոյով:
Վերևում ներկայացված է տվյալների հավաքածուի օրինակը, որին կհետևի այս հոդվածը՝ նկարագրելու մեթոդները:
1. Տեղադրեք VBA-ն՝ աղյուսակի յուրաքանչյուր տողի յուրաքանչյուր բջիջի միջով անցնելու համար՝ ըստ բջջային տեղեկանքի համարի
Եթե ցանկանում եք շրջել աղյուսակի յուրաքանչյուր տողի յուրաքանչյուր բջիջով ձեր Excel աշխատաթերթում: և ստացեք բջջի հղման համարը որպես վերադարձի արժեք , ապա հետևեք ստորև քննարկված քայլերին:
Քայլեր.
- Սկզբում , սեղմեք Alt + F11 ստեղնաշարի վրա կամ գնացեքփոփոխական:
8975
Կոդի այս հատվածն այստեղ է 1-ից 15-րդ տողերի միջով անցնելու համար: Եթե գտնում է կոնկրետ « Edge » բառը, ապա այն գունավորում է բառը պահող բջիջը: Այն շարունակում է դա անել, մինչև որ ավարտի բառի որոնման ընթացքում 1-ից 15-րդ տողերի բոլոր տվյալների սկանավորումը:
Կարդալ ավելին. Ինչպես օգտագործել VLOOKUP աղյուսակի զանգվածը՝ հիմնված Բջջի արժեքը Excel-ում
Նման ընթերցումներ
- Գոյություն ունի՞ TABLE ֆունկցիան Excel-ում:
- Ինչպես վերափոխել աղյուսակը ցուցակի Excel-ում (3 արագ եղանակ)
- Վերափոխել միջակայքը աղյուսակի Excel-ում (5 հեշտ մեթոդ)
- Արդյունավետ օգտագործեք բանաձևը Excel աղյուսակում (4 օրինակով)
- Excel աղյուսակի անվանումը՝ այն ամենը, ինչ դուք պետք է իմանաք
7. Իրականացրեք VBA-ն՝ յուրաքանչյուր տողի միջով անցկացնելու համար և Excel-ում գունավորեք յուրաքանչյուր կենտ տողը
Նախորդ բաժնից մենք սովորեցինք, թե ինչպես գունավորել որոշակի արժեք կրող բջիջը: Այս բաժնում մենք կսովորենք, թե ինչպես շրջել աղյուսակի յուրաքանչյուր տողով և գունավորել յուրաքանչյուր տարօրինակ տող VBA մակրոյով Excel-ում:
Քայլեր՝ գործընթացն իրականացնելու համար: նկարագրված են ստորև:
Քայլեր.
- Ինչպես ցույց է տրված նախկինում, բացեք Visual Basic Editor Developer ներդիրը և Տեղադրեք Մոդուլը կոդի պատուհանում:
- Այնուհետև պատճենեք հետևյալ կոդը և տեղադրեք այն մեջ կոդի պատուհանը:
1989
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Այժմ, Գործարկեք մակրոն և նայեք հետևյալ պատկերին` արդյունքը տեսնելու համար:
Բոլոր կենտ համարներով տողերը գունավոր են աշխատանքային թերթի աղյուսակում գտնվող բոլոր տողերի միջով անցնելուց հետո:
VBA կոդի բացատրություն
2524
Սահմանեք փոփոխականը:
5712
Սահմանեք այն տիրույթը, որի հետ մենք աշխատելու ենք:
3429
Կոդի այս մասը վերաբերում է կրկնություններին բոլոր տողերում՝ սկսած ընթացիկ տողի հաջորդ տողից՝ B4 . Եթե տողերի համարները 2-ի բաժանելու ռեժիմը հավասար է վերադարձված տողի համարին, որը պահվում է ամբողջ թվով, ապա այս ծածկագիրը գունավորում է բոլոր տողերը, որոնք արդյունահանվում են հաշվարկով կոդի մեջ ներկայացված Գույնի ինդեքսով: Այն շարունակում է շարժվել բոլոր տողերով, մինչև հասնում է տիրույթի ավարտին:
8. Իրականացրե՛ք VBA-ն՝ շրջելով տողերի միջով և գունավորեք բոլոր զույգ տողերը Excel-ում
Նախորդ բաժնում մենք սովորեցինք, թե ինչպես գունավորել աղյուսակի յուրաքանչյուր կենտ տող: Այս բաժնում մենք կսովորենք, թե ինչպես շրջել աղյուսակի յուրաքանչյուր տողով և գունավորել յուրաքանչյուր զույգ տողը VBA մակրոյով Excel-ում:
Գործընթացն իրականացնելու քայլերը քննարկվում են ստորև:
Քայլեր.
- Սկզբում բացեք Visual Basic Editor Developer ներդիրից և Տեղադրեք մի Մոդուլ կոդի պատուհանում:
- Այնուհետև պատճենեք հետևյալ կոդը և տեղադրեք այն կոդի պատուհանում:
7744
Ձեր կոդը այժմ պատրաստ էգործարկել:
- Հաջորդը, Գործարկեք մակրոն և նայեք հետևյալ պատկերին` արդյունքը տեսնելու համար:
Բոլոր զույգ համարակալված տողերը գունավորվում են աշխատանքային թերթի աղյուսակում գտնվող բոլոր տողերի միջով անցնելուց հետո:
VBA կոդի բացատրություն
6533
Սահմանեք փոփոխականը:
6577
Սահմանեք տիրույթը, որի հետ մենք աշխատելու ենք:
1514
Կոդի այս հատվածը սկսում է կրկնվել հետո երեք տողերը ընթացիկ տողից, B4 : Այն նախ գունավորում է այն, այնուհետև ավելացնում է տողերի քանակը 2-ով և շարունակում է գունավորել այն մինչև այն հասնի տվյալների հավաքածուի վերջին տողին:
9: Կիրառեք Macro-ն Excel-ում տողերի միջով կրկնել մինչև դատարկ բջիջը
Եթե ցանկանում եք, որ ձեր կոդը աշխատի այնպես, ինչպես որ այն կպտտվի աղյուսակի բոլոր տողերի միջով և կդադարի, երբ այն հասնի դատարկ բջիջի , ապա այս բաժինը ձեզ համար է: Դուք կարող եք կատարել այդ առաջադրանքը և՛ FOR Loop , և՛ Do-Until Loop Excel-ում VBA :
9.1: FOR Loop-ով
Քայլեր՝ անցկացնելու համար աղյուսակի տողերը, մինչև որ ստորև տրված լինի FOR Loop -ով դատարկ բջիջը VBA Excel-ում:
Քայլեր.
- Սկզբում բացեք Visual Basic Editor Developer ներդիրից և Տեղադրեք a Մոդուլ կոդի պատուհանում:
- Դրանից հետո պատճենեք հետևյալ կոդը և տեղադրեք կոդի պատուհանում:
9751
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Այնուհետև Գործարկեք մակրո և արդյունքը ցուցադրված է ստորև ներկայացված gif-ում:
Մակրոն գործարկելուց հետո այն սկսեց պտտվել աղյուսակի բոլոր տողերում և երբ այն հասավ դատարկ բջիջ, Բ8 բջիջ , այն դադարեցրեց կրկնությունը :
VBA կոդի բացատրություն
9839
Սահմանեք փոփոխականը:
2741
Անջատեք էկրանի թարմացման իրադարձությունը:
2359
Պահպանեք բոլոր տողերը՝ սկսած Cell B4 -ից մինչև վերջինը:
8468
Ընտրեք Cell B4 :
2343
Կոդի այս հատվածը սկսում է պտտվել բոլոր տողերում: Երբ անընդմեջ դատարկ բջիջ է գտնում, ընտրում է այն և շարունակում տողերի սկանավորումը, մինչև այն հասնի ավարտին:
7529
Միացրեք էկրանի թարմացման իրադարձությունը:
9.2. Do-Until Loop-ով
Քայլեր՝ շրջելու տողերի միջով, մինչև որ դատարկ բջիջը Do-Until հանգույցով VBA -ում տրված է ստորև:
Քայլեր.
- Սկզբում բացեք Visual Basic Editor Developer ներդիրից և Տեղադրեք a Մոդուլ կոդի պատուհանում:
- Այնուհետև, պատճենեք հետևյալ կոդը և տեղադրեք կոդի պատուհանում:
9598
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Հետագայում Գործարկեք մակրոն: Արդյունքը ցուցադրված է հետևյալ gif-ում:
Մակրո գործարկելուց հետո այն սկսեց շրջել աղյուսակի բոլոր տողերով և մեկ անգամ այն հասավ դատարկ բջիջին՝ B8 բջիջը , այն դադարեցրեց կրկնությունը :
VBA կոդըԲացատրություն
3603
Ընտրեք այն բջիջը, որից մենք կաշխատենք:
8591
Սկսում է և շարունակում պտտվել մինչև դատարկ բջիջ գտնվի:
9038
Երբ դատարկ բջիջ է հայտնաբերվել է անընդմեջ, այնուհետև ընտրեք այն և դադարեցրեք կրկնությունը:
10. VBA մակրո՝ Excel-ում տողերի միջով կրկնել մինչև բազմաթիվ դատարկ բջիջներ
Նախորդ բաժնում դուք սովորել եք, թե ինչպես դադարեցնել հանգույցը, երբ դատարկ բջիջ գտնվի: Բայց ինչ անել, եթե չես ուզում դադարեցնել կրկնությունը, քանի դեռ մի քանի դատարկ բջիջներ չեն գտնվել միայն մեկի փոխարեն:
Տողերի միջով անցնելու քայլերը, մինչև մի քանի դատարկ բջիջներ գտնվեն աղյուսակում: VBA Excel-ով ցուցադրված են ստորև:
Քայլեր.
- Սկզբում բացեք Visual Basic Editor -ը Developer ներդիրը և Տեղադրեք a Module կոդի պատուհանում:
- Այնուհետև պատճենեք հետևյալ կոդը և կպցրեք այն կոդի պատուհանում:
1434
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Այժմ, Գործարկեք մակրոն և տեսեք հետևյալ gif-ը արդյունքի համար:
Մակրոն գործարկելուց հետո այն չդադարեց առաջին դատարկ բջիջ, բջիջ B8 : Այն դադարեց, երբ գտավ երկու հաջորդական դատարկ բջիջներ B16 բջիջում :
VBA կոդի բացատրություն
6444
Ընտրեք բջիջը որից մենք աշխատելու ենք:
4888
Սկսում է և շարունակում է պտտվել մինչև երկու հաջորդական դատարկ բջիջներ գտնվեն:
5131
Երբ գտնվեն երկու հաջորդական դատարկ բջիջներ, ապաընտրեք այն և դադարեցրեք կրկնությունը։
11. Տեղադրեք VBA-ն՝ պտտեցնելով տողերի միջով, միացնելով բոլոր սյունակները մինչև դատարկը Excel-ում
Այս բաժինը ցույց կտա ձեզ, թե ինչպես անցկացնել աղյուսակի բոլոր տողերը և միացնել բոլոր սյունակները մինչև դատարկ բջիջ: կարելի է գտնել VBA Excel-ում:
Եկեք սովորենք, թե ինչպես դա անել VBA մակրոյով Excel-ում:
Քայլեր.
- Սկզբում բացեք Visual Basic Editor Developer ներդիրից և Տեղադրեք a Module կոդի պատուհանում:
- Այնուհետև պատճենեք հետևյալ կոդը և տեղադրեք այն կոդի պատուհանում:
8334
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Հետագայում Գործարկեք մակրոն և արդյունքի համար տես հետևյալ gif-ը:
Ինչպես երևում է վերը նշված gif-ից, կա մի թռուցիկ MsgBox , որը ցույց է տալիս բոլոր սյունակների կապված արժեքը յուրաքանչյուրում: տող ձեր Excel աշխատաթերթի աղյուսակից: Բայց այն դադարեց, երբ հասավ դատարկ բջիջին :
VBA կոդի բացատրություն
4876
Սահմանեք փոփոխականները:
4575
Սահմանեք թերթի անունը, որի հետ մենք աշխատելու ենք (« ConcatenatingAllColUntilBlank » թերթի անունն է աշխատանքային գրքում):
8606
Սահմանեք այն տիրույթը, որի հետ մենք աշխատելու ենք:
4161
Կոդի այս հատվածը սկսում է օղակը զանգվածով: Այն շարունակում է պտտվել այնքան ժամանակ, մինչև չվերադարձնի զանգվածի ամենամեծ ենթագիրն ու ստորին սահմանըառաջին հարթություն. Այնուհետև այն մտնում է երկրորդ հարթության ստորին սահմանը հանելու կրկնությունը: Դրանից հետո այն փոխանցում է բոլոր արդյունահանված արժեքները iResult փոփոխականում՝ դրանք միացնելով և արդյունքը գցելով MsgBox-ում։ Այն շարունակում է դա անել այնքան ժամանակ, մինչև գտնի դատարկ բջիջ:
Եզրակացություն
Եզրակացության համար այս հոդվածը ձեզ ցույց տվեց 11 արդյունավետ մեթոդ, թե ինչպես կարելի է շրջել տողերի միջով: աղյուսակի Excel-ում VBA մակրո -ով: Հուսով եմ, որ այս հոդվածը շատ օգտակար է եղել ձեզ համար: Թեմայի վերաբերյալ ցանկացած հարց տվեք ազատորեն:
դեպի ներդիր Մշակող -> Visual Basicբացելու համար Visual Basic Editor:
- Հաջորդը, թռուցիկ կոդի պատուհանում, ընտրացանկի տողում, սեղմեք Տեղադրել -> Մոդուլ ։
- Այնուհետև պատճենեք հետևյալ կոդը և տեղադրեք այն կոդի մեջ։ պատուհան:
1629
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Այժմ սեղմեք F5 ձեր վրա ստեղնաշար կամ ընտրացանկից ընտրեք Գործարկել -> Գործարկեք Sub/UserForm : Կարող եք նաև պարզապես սեղմել փոքր Play պատկերակը ենթամենյուի տողում՝ մակրո գործարկելու համար:
- Կամ տեսողականորեն ականատես լինել և համեմատել տվյալների հավաքածուն և արդյունքը, կարող եք պահել կոդը և վերադառնալ աշխատաթերթը , որը հետաքրքրում է:
- Այնտեղից կարող եք սեղմել Macros Developer ներդիրից, ընտրեք Macro անունը, և ապա սեղմեք Run :
Կոդերի հաջող կատարումից հետո նայեք վերը նշված gif-ին` արդյունքը տեսնելու համար: Կհայտնվի թռուցիկ MsgBox , որը ցույց կտա ձեզ յուրաքանչյուր տողից յուրաքանչյուր բջիջի տեղեկատու համարը ձեր Excel թերթի աղյուսակից:
VBA կոդի բացատրություն
5663
Աղյուսակի վերջին տողի համարը ստանալու համար՝ փնտրելով B սյունակ:
iValue = Range("B4").CurrentRegion
Սահմանել տող 4-ը, որտեղից սկսվում են մեր տվյալները:
7864
Առաջին տողից պտույտ կատարելու համար:
9429
Սահմանեք սյունակի համարը 2, որտեղից սկսվում են մեր տվյալները:
8877
Սկսեք պտտվել տողերի միջով` վերջինը ստանալու համարսյունակի համարը գնահատելով ընթացիկ տողը մինչև վերջին տողը:
8866
Սյունակի պտույտների ավելացում առաջին տողից մինչև վերջին տող:
3362
Կոդի այս հատվածն աշխատում է մշակման համար, յուրաքանչյուրից հետո ավելացում: կրկնում և ցուցադրում կոդի արդյունքը:
Կարդալ ավելին. Ինչպես ինքնաբերաբար ավելացնել նոր տող Excel աղյուսակում
2 . Իրականացրեք VBA-ն՝ յուրաքանչյուր տողի յուրաքանչյուր բջիջի միջով անցկացրեք ըստ արժեքի
Եթե ցանկանում եք շրջել աղյուսակի յուրաքանչյուր տողի յուրաքանչյուր բջիջի միջով և գցել բջիջներում գտնվող արժեքը որպես վերադարձի արժեք: , ապա այս բաժինը կօգնի ձեզ պարզել, թե ինչպես դա անել VBA Excel-ով:
Դուք կարող եք դա անել ListObject և <1-ի միջոցով:>DataBodyRange հատկություն VBA : Մենք ձեզ ցույց կտանք մակրո կոդը և՛ օբյեկտի, և՛ հատկության հետ:
2.1. ListObject-ով
Աղյուսակի յուրաքանչյուր տողում յուրաքանչյուր բջիջով շրջանցելու քայլերն ըստ բջիջների արժեքի ListObject VBA Excel-ում ներկայացված են ստորև:
Քայլեր.
- Նույն ձևով, ինչպես նախկինում, բացեք Visual Basic Editor Developer ներդիրից և Տեղադրեք Մոդուլ կոդի պատուհանում:
- Այնուհետև կոդի պատուհանում պատճենեք հետևյալ կոդը և տեղադրեք այն:
4005
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Դրանից հետո Գործարկեք մակրո ինչպես մենք ձեզ ցույց տվեցինք վերը նշված բաժնում: Արդյունքը ցուցադրված է gif-ումներքևում:
Կլինի թռուցիկ MsgBox , որը ցույց կտա արժեքը յուրաքանչյուր տողից յուրաքանչյուր բջիջով ձեր Excel թերթի աղյուսակից:
VBA կոդի բացատրություն
5672
Սահմանեք փոփոխականները:
1720
Այս հատվածը կոդը սկզբում սկսում է պտտվել աղյուսակի տողերի միջով (« TblStudents »-ը մեր աղյուսակի անունն է): Այնուհետև մուտքագրում է սյունակներ յուրաքանչյուր տողի համար: Դրանից հետո փոխանցեք բջիջի արժեքը MsgBox-ում: Այնուհետեւ անցեք հաջորդ սյունակ: Մեկ տողի բոլոր սյունակներում կրկնությունն ավարտելուց հետո այն անցնում է հաջորդ տող և շարունակվում է կրկնության գործընթացը մինչև վերջին տողը:
2.2. DataBodyRange հատկության հետ
Աղյուսակից հանված տվյալների հետ ավելի կոնկրետ լինելու համար կարող եք օգտագործել DataBodyRange հատկությունը ListObject : DataBodyRange հատկությունը ձեզ ցույց կտա արդյունքը, որը պարունակում է ընդգրկույթ ցանկից վերնագրի տողի և ներդիրի տողի միջև:
Քայլերը, թե ինչպես կարող եք շրջել յուրաքանչյուր տողի յուրաքանչյուր բջիջի միջով: աղյուսակը ըստ բջիջի արժեքի՝ DataBodyRange VBA Excel-ում ներկայացված են ստորև:
Քայլեր.
- Ինչպես ցույց է տրված նախկինում բացեք Visual Basic Editor Developer ներդիրից և Տեղադրեք a Module կոդի պատուհանում:
- Այնուհետև , պատճենեք հետևյալ կոդը և տեղադրեք այն կոդի պատուհանում:
5165
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Ավելի ուշ, Գործարկեք մակրոն և նայեք հետևյալ gif-ին` արդյունքը տեսնելու համար:
Կլինի թռուցիկ MsgBox ցույց տալով արժեքը, որը կրում է յուրաքանչյուր բջիջ յուրաքանչյուր տողից Ձեր Excel թերթի աղյուսակից:
VBA կոդի բացատրություն
4666
Սահմանեք փոփոխականը:
9936
Կոդի այս հատվածը սկզբում սկսում է պտտվել աղյուսակի տողերի միջով (« TblStdnt » մեր աղյուսակի անունն է) և վերադարձնում է արժեքների մի շարք՝ բացառությամբ աղյուսակի վերնագրի շարքը: Այնուհետև փոխանցեք միջակայքի արժեքը MsgBox-ում: Այնուհետև այն անցնում է հաջորդ տող՝ միջակայքը հանելու համար և շարունակում է կրկնվող գործընթացը մինչև վերջին տող:
3. Կիրառել VBA մակրո՝ կրկնել տողերի միջով Excel-ում սյունակների միացման միջոցով
Այս բաժինը ցույց կտա, թե ինչպես կարելի է շրջել աղյուսակի տողերի միջով` սյունակները միացնելով ձեր տվյալների բազայի առաջին սյունակին : Excel-ում:
Օրինակ, մեր տվյալների բազայի համար, նախ, մենք կկրկնենք John-ի միջով Բ5 բջիջում և 101-ի միջոցով` C5 բջիջում ` միացնելով դրանք, այնուհետև կրկնելու ենք: Ջոնը B5 բջիջում և 89 Բջջում D5 ` դրանք միացնելով 5-րդ շարքից :
Եկեք ցույց տանք, թե ինչպես կարող եք դա անել VBA մակրո Excel-ում:
Քայլեր.
- Սկզբում բացեք Visual Basic Editor -ից Developer ներդիրը և Տեղադրեք a Module կոդի պատուհանում:
- Երկրորդ, կոդի պատուհանում, պատճենեք հետևյալը. կոդըև կպցրեք այն:
6525
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Երրորդ, Գործարկել մակրոն: Արդյունքը տեսնելու համար նայեք ստորև ներկայացված gif-ին:
Կլինի թռուցիկ MsgBox , որը ցույց կտա ձեզ փոխկապակցված արժեքը առաջին և երկրորդ սյունակի բջիջներից ( John-ը Բ5 բջիջում` B և 101 Բջջում C5-ում` C ) և այնուհետև համակցված արժեքը բջիջների առաջին և երրորդ սյունակից ( John բջիջում B5 բջիջում՝ B և 89 բջիջ D5-ում՝ D սյունակում) տողի համար 5 ձեր տվյալների բազայից: Եվ այս կապակցման գործողությունը կշարունակվի մինչև այն հասնի աղյուսակի վերջին տողին:
VBA կոդի բացատրություն
1557
Սահմանեք փոփոխականը:
7502
Այնուհետև կոդը ընտրում է աղյուսակը ակտիվ թերթիկից (« TblConcatenate » մեր աղյուսակի անվանման մեջ):
6382
Դրանից հետո սկսում է կրկնել յուրաքանչյուր տող՝ բացառությամբ վերնագրի: սյունակը։ Եթե կրկնությունը համընկնում է սյունակի վերնագրի և տողերի միջակայքում, ապա այն պահում է արժեքը iValue փոփոխականում:
3839
Եթե վերը նշված պայմանը չի կատարվում, ապա կոդը գցում է արժեքը MsgBox-ում և ավարտում պայմանը: Դրանից հետո այն անցնում է մեկ այլ տիրույթում պտտվելու և շարունակում է կրկնվել մինչև վերջի տող: Երբ այն հասնում է վերջին տողին, մակրոն ավարտում է կոդի կատարումը:
4. Տեղադրել մակրո՝ կրկնելու համարExcel-ում աղյուսակում բոլոր սյունակները միացնելու միջոցով տողերի միջոցով
Այս բաժնում մենք կսովորենք, թե ինչպես միավորել բոլոր սյունակները, որոնք յուրաքանչյուր տողում պահվում է տվյալների բազայում -ով: VBA մակրո Excel-ում:
Կատարելու քայլերը, որոնք ներկայացված են ստորև:
Քայլեր.
- Սկզբում բացեք Visual Basic Editor Developer ներդիրից և Տեղադրեք a Module կոդի պատուհանում:
- Այնուհետև, պատճենեք հետևյալ կոդը և տեղադրեք այն կոդի պատուհանում:
3454
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Հաջորդը, Գործարկեք մակրո կոդը:
Ինչպես կարող եք տեսնել վերը նշված gif-ից, որ կա մի թռուցիկ MsgBox , որը ցույց է տալիս բոլոր սյունակների համակցված արժեքը, որոնք գտնվում են յուրաքանչյուր տողում Ձեր Excel-ի աշխատաթերթի աղյուսակից:
VBA կոդի բացատրություն
8583
Սահմանեք փոփոխականները:
2653
Սահմանեք թերթի անունը, որի հետ մենք աշխատելու ենք (“ ConcatenatingAllCol ” թերթի անունն է աշխատանքային գրքում).
9257
Դե շտկել աղյուսակի անունը, որի հետ մենք աշխատելու ենք (« TblConcatenateAll »-ը աղյուսակի անունն է մեր տվյալների բազայում):
3453
Սկսում է կրկնությունը աղյուսակի յուրաքանչյուր տողում:
1645
Սկսում է կրկնությունը աղյուսակի յուրաքանչյուր տողի յուրաքանչյուր սյունակի միջով:
7980
Պահպանեք արդյունքը` հատելով յուրաքանչյուր տողի յուրաքանչյուր սյունակի կրած արժեքները: Յուրաքանչյուր տողում գտնվող բոլոր սյունակները սկանավորելուց հետո այն անցավարդյունքը MsgBox-ում: Այնուհետև նորից սկսում է պտտվել հաջորդ տողում և շարունակում է պտտվել, մինչև հասնի աղյուսակի վերջին տողին:
Կարդալ ավելին. Ինչպես տեսակավորել աղյուսակի բազմաթիվ սյունակներ Excel VBA-ի միջոցով: (2 մեթոդ)
5. Դադարեցրեք կրկնությունը, եթե արժեքը գտնվել է VBA մակրոյով աղյուսակի տողերի միջով անցնելու միջոցով
Ենթադրենք, որ ցանկանում եք շրջել ձեր աղյուսակի տողերի միջով և դադարեցնել պտույտը, երբ այն գտնի որոշակի արժեք . Դուք կարող եք դա անել միայն պարզ մակրո կոդի միջոցով:
Եկեք սովորենք, թե ինչպես դա անել VBA Excel-ում:
Քայլեր.
- Սկզբում բացեք Visual Basic Editor Developer ներդիրից և Տեղադրեք a Module կոդի պատուհանում:
- Այնուհետև կոդի պատուհանում պատճենեք հետևյալ կոդը և տեղադրեք այն:
5820
Ձեր կոդը այժմ պատրաստ է գործարկման .
- Հետագայում Գործարկեք մակրոն:
- Այն կսկսի հանգույցը և կդադարեցնի այն, երբ այն գտնում է հատուկ արժեքը (“ Edge ”) տիրույթում և գցում արդյունքը MsgBox :
Ինչպես երևում է վերևի նկարից, կա մի թռուցիկ MsgBox, որը ցույց է տալիս բջջային հասցեն, $B$10 , որտեղ մենք գտել ենք: նշված արժեքը, “ Edge ” :
VBA կոդի բացատրություն
7878
Սահմանել փոփոխական:
2395
Կոդի այս հատվածն այստեղ է 1-ից 15-րդ տողերի միջով անցնելու համար: Եթե գտնում է կոնկրետ բառը« Edge », այնուհետև այն փոխանցում է արդյունքը բառը պահող բջիջի հասցեով: Այն շարունակում է դա անել, մինչև որ ավարտի 1-ից 15-րդ տողերի բոլոր տվյալների սկանավորումը բառի որոնման ընթացքում:
Կարդալ ավելին. Ինչպես տեղադրել կամ ջնջել տողերն ու սյունակները Excel աղյուսակից
6. VBA-ն պտտելու յուրաքանչյուր տող և գունավորելու հատուկ արժեք Excel-ում
Իսկ եթե չես ուզում նշված արժեքի բջջային հասցեն գցել MsgBox-ում: Դուք կարող եք գունավորել այն բջիջը, որը կրում է ձեր փնտրած արժեքը :
Եկեք սովորենք, թե ինչպես դա անել VBA մակրոյով:
Քայլեր.
- Նույն ձևով, ինչպես նախկինում, բացեք Visual Basic Editor Developer ներդիրից և Տեղադրեք a Մոդուլ կոդի պատուհանում:
- Այնուհետև, պատճենեք հետևյալ կոդը և տեղադրեք այն կոդի պատուհանում:
3411
Ձեր կոդը այժմ պատրաստ է գործարկման:
- Դրանից հետո Գործարկեք մակրոն:
- Այն կսկսի հանգույցը և կդադարեցնի այն, երբ գտնի որոշակի արժեքը (« Edge ») տիրույթում և գունավորի բջիջը ColourIndex-ով: , որը դուք տրամադրել եք կոդը:
Ինչպես տեսնում եք վերևի նկարից, C ell B10 , որտեղ մենք գտանք նշված արժեքը, « Edge »-ը գունավորվում է կոդի կատարումից հետո:
VBA կոդի բացատրություն
8500
Սահմանել