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

Ներբեռնեք պրակտիկայի աշխատանքային գրքույկը

Ներբեռնեք այս պրակտիկայի աշխատանքային գրքույկը, որպեսզի մարզվեք մինչ դուք կարդում են այս հոդվածը:

3 արագ օրինակ Excel-ում փոփոխականը բջջային արժեքի սահմանելու համար

Այստեղ մենք ունենք տվյալների հավաքածու, որը պարունակում է որոշ հաճախորդների անունները , նրանց կոնտակտային համարները և էլ․ հասցեները միջակայքում <: Աշխատանքային թերթի 1>B3:D13 :

Մենք նպատակ ունենք փոփոխականներ սահմանել այս տվյալների հավաքածուից բջիջների արժեքներին` օգտագործելով VBA :

1. Սահմանեք փոփոխականը մեկ բջջային արժեքի վրա՝ օգտագործելով Excel VBA

Նախ, մենք կսովորենք փոփոխականը մեկ բջջի արժեքի վրա դնել՝ օգտագործելով VBA :

For Օրինակ՝ եկեք B4 բջիջի արժեքը սահմանենք Customer_Name կոչվող փոփոխականին:

Ավելի լավ է, եթե իմանաք արժեքի տվյալների տեսակը և նախապես հայտարարեք այն: Եվ այնուհետև սահմանեք արժեքը այդ փոփոխականում:

Օրինակ, այստեղ B4 բջիջը պարունակում է անունը, Բորիս Պաստեռնակ : Դա string-type փոփոխական է: Հետևաբար, կարող եք օգտագործել կոդերի հետևյալ 2 տողերը.

4084

Բայց նորմալ է, եթե վստահ չեք տվյալների տեսակի վերաբերյալ: Այդ դեպքում գրեք միայն 2-րդ տողը, և VBA -ի արժեքը ճիշտ կկարդա:դուք:

8429

Այժմ, ստուգելու համար, արդյոք VBA -ը ճիշտ կարդացել է արժեքը, թե ոչ, մուտքագրեք MsgBox Value տողը կոդերի երկու խմբերից որևէ մեկը, այնուհետև գործարկեք կոդը:

Կհայտնվի հաղորդագրության տուփ, որը ցույց կտա B4 , Բորիս Պաստեռնակ բջիջի արժեքը:

2. Սահմանեք հարակից բջիջների տիրույթի արժեքները փոփոխականի մեջ՝ օգտագործելով Excel VBA

Այժմ մենք հարակից բջիջների տիրույթի արժեքները կսահմանենք փոփոխականի մեջ: Օրինակ, եկեք կարդանք B3:D13 միջակայքը Rng փոփոխականում:

Այստեղ փոփոխականի տվյալների տեսակը կլինի Range : . Դուք կարող եք կամ նախկինում հայտարարել այսպես.

9086

Կամ կարող եք ուղղակիորեն վերագրել արժեքները դրանով:

2158

Այժմ Range օբյեկտի արժեքներին մուտք գործելու համար դուք պետք է մուտք գործեք դրանք իրենց տողերի և սյունակների համարներով Cells օբյեկտ :

Օրինակ, մուտքի բջիջ B4 , դուք պետք է օգտագործեք Rng.Cells(2,1) [ Բջջը B4 գտնվում է 2-րդ տողում և 1-ին տիրույթի B3:D13 սյունակ:]

Մուտքագրեք տողը MsgBox Rng.Cells(2,1) ձեր ծածկագրի ներսում և գործարկեք այն: Այն ցույց կտա Բորիս Պաստեռնակ , արժեքը B4 բջիջում:

3. Սահմանեք բջիջների ոչ հարևան տիրույթի արժեքները փոփոխականի մեջ, օգտագործելով Excel VBA

Վերջապես, մենք կսահմանենք ոչ հարակից բջիջների տիրույթի արժեքները փոփոխականի մեջ:

Օրինակ, փորձենք կարդալ B3:B13 և D3:D13 միջակայքը Rng կոչվող փոփոխականի մեջ:

Դա կրկին Range<տվյալների տեսակ է: 2>. Դուք կարող եք նախօրոք դա հայտարարել, կամ ոչ:

Մենք կօգտագործենք Union մեթոդը VBA -ի միանալու համար 2 կամ ավելի ոչ հարակից: բջիջների միջակայքերը մեկ տիրույթի մեջ:

4871

Այժմ B4 բջիջ մուտք գործելու համար կրկին պետք է մուտքագրեք MsgBox տողը Rng.Cells(1,1): Այնուհետև, եթե գործարկենք կոդը, այն կցուցադրի բովանդակությունը B4 , Բորիս Պաստեռնակ բջիջում:

Հիշելու բաներ

Վերևում նկարագրված բոլոր մեթոդներն աշխատում են միայն ակտիվ աշխատաթերթի համար: Եթե ​​ցանկանում եք մուտք գործել ոչ ակտիվ աշխատաթերթ, ապա պետք է նշեք աշխատաթերթի անունը ընդգրկույթից առաջ:

Օրինակ, մուտք գործելու համար B4 ընդգրկույթը Sheet1-ից: , դուք պետք է օգտագործեք՝

2233