VBA Excel-ի տիրույթի յուրաքանչյուր բջիջի համար (3 մեթոդ)

  • Կիսվել Սա
Hugh West

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

Ներբեռնեք Practice Workbook

Ներբեռնեք այս գործնական գիրքը՝ առաջադրանքը կատարելու համար, մինչ դուք կարդում եք այս հոդվածը:

VBA կոդ յուրաքանչյուր բջիջի համար Excel.xlsx-ում

Excel-ում ընդգրկույթի յուրաքանչյուր բջիջի համար VBA կիրառելու 3 հարմար եղանակ

Օգտագործելով VBA կոդը, դուք կարող եք կատարել նույն բանաձևը տիրույթի կամ սյունակի կամ տողի յուրաքանչյուր բջիջի համար: Այս բաժնում մենք կանցնենք բոլոր բաժինները:

1. Կիրառեք VBA յուրաքանչյուր բջիջի միջակայքի համար

Քննարկեք մի իրավիճակ, երբ դուք պետք է կիրառեք նույն VBA կոդը յուրաքանչյուր բջիջի համար տրված միջակայք ( B3:F12 ): Դա անելու համար մենք կկառուցենք VBA կոդ: Հրահանգները տրված են ստորև

Քայլ 1.

  • Սկզբում մենք կտեղադրենք հրամանի կոճակ՝ մեր աշխատանքը պարզեցնելու համար։ . Գնացեք ձեր Developer Tab , ընտրեք Տեղադրել և սեղմեք հրամանի կոճակը` ստանալու համար:

  • Մենք ստացել ենք մեր հրամանըկոճակը:

  • Աջ սեղմեք հրամանի կոճակի վրա՝ ընտրանքները բացելու համար: Ընտրեք և սեղմեք Հատկություններ ՝ որոշ տարբերակներ փոփոխելու համար:

  • Փոխեք հրամանի կոճակի վերնագիրը: Այստեղ մենք փոխում ենք անունը « Սեղմեք այստեղ »:

Քայլ 2.

  • Այժմ կրկնակի սեղմեք հրամանի կոճակի վրա՝ VBA Module բացելու համար: Այստեղ մենք կգրենք առաջադրանքի մեր VBA կոդը:

  • Նախ, մենք կհայտարարենք երկու փոփոխական: Մենք անվանում ենք միջակայքի օբյեկտները CL և Rng : Դուք կարող եք դրանք անվանել այնպես, ինչպես ցանկանում եք:
5221

  • Այս հրամանով նշանակեք որոշակի տիրույթ,

Սահմանեք Rng = Աշխատանքային թերթիկներ («VBA1»). Range («B3:F12»)

  • Այստեղ VBA1-ը մեր աշխատաթերթի անունն է, իսկ B3:F12 մեր սահմանված տիրույթն է:

  • Այժմ մենք կօգտագործենք կոդը՝ տիրույթի յուրաքանչյուր բջիջի միջոցով կատարելու համար: Կոդն է՝
3357
  • Արժեքը = 100 մատակարարում է, որ այն կվերադարձնի 100 տվյալ տիրույթի յուրաքանչյուր բջիջի համար:

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

Քայլ 3.

  • Ինչպես թվային արժեքները, մենք կարող ենք նաև տեղադրել տեքստային արժեքներ տիրույթի յուրաքանչյուր բջիջի համար: Այդ դեպքում անցեք VBA պատուհան և 100-ի փոխարեն տեղադրեք տեքստային արժեքը, որը ցանկանում եք անցնել: Փոխվածըտողը
6384

  • Սեղմեք հրամանի կոճակը և VBA կոդը կվերադարձնի այս տեքստային արժեքը տիրույթի յուրաքանչյուր բջիջի համար:

Քայլ 4.

  • Այս քայլում մենք մի փոքր ավելի խորը կփորենք: Ենթադրենք, մենք ցանկանում ենք ընդգծել մեր տիրույթի յուրաքանչյուր դատարկ բջիջ:

  • Դրա համար ավելացրեք նոր պայման ձեր առկա կոդի մեջ: Նոր բանաձևն է՝
2090
  • Այս նոր կոդը կնշանակի կարմիր գույնով դատարկ բջիջը: Այսպիսով, ամբողջական կոդը՝
4115

  • Ստացեք արդյունքը՝ սեղմելով հրամանի կոճակը:

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

  • Ինչպես օգտագործել VBA-ի տիրույթի օբյեկտը Excel-ում (5 հատկություն)
  • Օգտագործեք VBA տիրույթի օֆսեթ (11 եղանակ)
  • Ինչպես հաշվել տեքստը Excel-ում (7 հեշտ հնարք)

2. Տեղադրեք VBA Տարածքի սյունակի յուրաքանչյուր բջիջի կոդը

Մենք կարող ենք նաև գործարկել VBA կոդ յուրաքանչյուր բջիջի համար սյունակում: Ենթադրենք, որ մենք ունենք թվեր պարունակող սյունակ, և մենք պետք է գունավորենք 10-ից ցածր արժեքներ: Մենք կկառուցենք VBA կոդ՝ սյունակի յուրաքանչյուր բջիջը գործարկելու համար:

Քայլ 1.

  • Ստեղծեք հրամանի կոճակ՝ հետևելով մեր քննարկած հրահանգներին:

Քայլ 2:

  • Կրկնակի սեղմեք հրամանի կոճակի վրա՝ VBA պատուհանը բացելու համար:
  • Մենք կհայտարարենք « c » տեսակի փոփոխական: երկար. Այստեղ մենք օգտագործում ենք Long տիպի փոփոխականը, քանի որ Longփոփոխականներն ավելի մեծ հզորություն ունեն, քան ամբողջ թվով փոփոխականները:
1132

  • Հաջորդում ավելացրեք կոդի տողը, որը փոխում է մեր սյունակի բոլոր բջիջների տառատեսակի գույնը: սև:
2006

  • Տեղադրեք այս կոդի հանգույցը:
7102

  • Այս քայլում մենք կմտցնենք պայման՝ գունավորելու այն արժեքները, որոնք ցածր են C4 (10) բջիջի արժեքից: Մուտքագրեք այս կոդը՝ դա անելու համար:
6736

  • Այսպիսով, վերջնական կոդը՝
7469
  • VBA կաշխատի և ցույց կտա արդյունքները, երբ սեղմեք հրամանի կոճակը:

3. Գրեք VBA կոդ յուրաքանչյուր բջիջի համար տիրույթի տողում

Մենք կարող ենք նաև գործարկել VBA կոդ յուրաքանչյուր բջիջի համար անընդմեջ: Տվյալ տողում մենք պետք է կատարենք նույն գործողությունը տողի յուրաքանչյուր բջիջի վրա:

Քայլ 1.

  • Ավելացրեք հրամանի կոճակ և փոխեք դրա անունը « Սեղմեք այստեղ! »

  • Կրկնակի սեղմեք կոճակի վրա՝ բացեք VBA պատուհանը: Գրեք ստորև ներկայացված VBA կոդը:
5218
  • Կոդը կանցնի տողի յուրաքանչյուր բջիջի միջով և կկիրառի դեղին գույնի լրացում յուրաքանչյուր բջիջի վրա:

  • Սեղմեք կոճակի վրա և մեր արդյունքն այստեղ է:

Արագ նշումներ

👉 Եթե ձեր մշակողի ներդիրը տեսանելի չէ, կարող եք այն ակտիվացնել՝ օգտագործելով այս հրահանգը:

Անհատականացված Արագ մուտքի Գործիքադարակ → Լրացուցիչ հրամաններ → Անհատականացնել ժապավենը → Մշակող  → Լավ

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

Մենք անցել ենք երեք տարբեր մոտեցումներ՝ VBA-ն գործարկելու տիրույթի յուրաքանչյուր բջիջի համար: Դուք կարող եք մեկնաբանել, եթե ունեք հարցեր կամ հարցումներ: Կարող եք նաև ծանոթանալ Excel-ի առաջադրանքների հետ կապված մեր մյուս հոդվածներին:

Հյու Ուեսթը բարձր փորձառու Excel-ի մարզիչ և վերլուծաբան է, որն ունի ավելի քան 10 տարվա փորձ այս ոլորտում: Նա հաշվապահական հաշվառման և ֆինանսների բակալավրի և բիզնեսի կառավարման մագիստրոսի կոչում է ստացել: Հյուը կիրք ունի դասավանդելու նկատմամբ և մշակել է ուսուցման յուրահատուկ մոտեցում, որը հեշտ է հետևել և հասկանալ: Excel-ի նրա փորձագիտական ​​գիտելիքներն օգնել են հազարավոր ուսանողների և մասնագետների ամբողջ աշխարհում բարելավել իրենց հմտությունները և առաջադիմել իրենց կարիերայում: Իր բլոգի միջոցով Հյուն կիսվում է իր գիտելիքներով աշխարհի հետ՝ առաջարկելով Excel-ի անվճար ձեռնարկներ և առցանց ուսուցում, որոնք կօգնեն անհատներին և ձեռնարկություններին հասնել իրենց ողջ ներուժին: