Bu məqalədə sizə Excel-də VBA dən istifadə edərək dəyişəni hüceyrə dəyərinə necə təyin edə biləcəyinizi göstərəcəyəm. Siz tək xananın və bir sıra xanaların dəyərinə dəyişən təyin etməyi öyrənəcəksiniz.

Təcrübə İş Kitabını endirin

Məşq edərkən bu məşq kitabını endirin. bu məqaləni oxuyursunuz.

Excel-də Dəyişənləri Hüceyrə Dəyərinə Ayarlamaq üçün 3 Tez Nümunə

Burada bəzi müştərilərin adlarını , onların əlaqə nömrələrini və e-poçt ünvanlarını ehtiva edən data dəstimiz var. İş vərəqinin 1>B3:D13 .

Biz VBA istifadə edərək bu məlumat dəstindən xana dəyərlərinə dəyişənlər təyin etməyi hədəfləyirik.

1. Excel VBA-dan istifadə edərək Dəyişənləri Tək Hüceyrə Dəyərinə Ayarlayın

İlk olaraq, VBA istifadə edərək dəyişəni tək xana dəyərinə təyin etməyi öyrənəcəyik.

Üçün məsələn, B4 xanasının dəyərini Müştəri_Adı adlı dəyişənə təyin edək.

Dəyərin məlumat tipini bilsəniz və onu əvvəl elan etsəniz daha yaxşı olar. Və sonra həmin dəyişəndə ​​dəyəri təyin edin.

Məsələn, burada B4 xanasında Boris Pasternak adı var. Bu sətir tipli dəyişəndir. Buna görə də, aşağıdakı 2 kod sətirindən istifadə edə bilərsiniz:

6034

Ancaq məlumat növünə əmin deyilsinizsə, bu, yaxşıdır. Bu halda, yalnız 2-ci sətri yazın və VBA üçün dəyəri düzgün oxuyacaq.siz.

5681

İndi VBA -nin dəyəri düzgün oxuyub-oxumadığını yoxlamaq üçün MsgBox Dəyəri sətirini daxil edin. iki kod dəstindən birini seçin və sonra kodu işə salın.

Sizə B4 , Boris Pasternak xanasının dəyərini göstərən mesaj qutusu görünəcək.

2. Excel VBA-dan istifadə edərək Qonşu Hüceyrə Aralığının Dəyərlərini Dəyişənə təyin edin

İndi biz bir dəyişənə qonşu xanalar diapazonunun dəyərlərini təyin edəcəyik. Məsələn, B3:D13 diapazonunu Rng dəyişəninə oxuyaq.

Burada dəyişənin məlumat tipi Range olacaq. . Siz ya bunu əvvəl belə elan edə bilərsiniz:

3732

Ya da birbaşa dəyərləri onunla təyin edə bilərsiniz.

3335

İndi, Rəsm obyektinin dəyərlərinə daxil olmaq üçün siz onlara Hüceyrələr obyekti ilə onların sətir və sütun nömrələri ilə daxil olmalısınız.

Məsələn, B4 xanasına daxil olmaq üçün Rng.Cells(2,1) istifadə etməlisiniz [ Cell B4 2-ci cərgəsindədir və < B3:D13 diapazonunun 1>1-ci sütunu.]

Sətri daxil edin MsgBox Rng.Cells(2,1) kodunuzu daxil edin və onu işə salın. O, Boris Pasternak , B4 xanasındakı dəyəri göstərəcək.

3. Excel VBA-dan istifadə edərək Qonşu Olmayan Hüceyrə Aralığının Dəyərlərini Dəyişənə Ayarlayın

Nəhayət, biz dəyişənə qonşu olmayan xanalar diapazonunun dəyərlərini təyin edəcəyik.

Məsələn, oxumağa çalışaq B3:B13 və D3:D13 diapazonunu Rng adlı dəyişənə çevirin.

Bu, yenə də Range . Siz bunu əvvəlcədən elan edə bilərsiniz, ya da olmaya bilərsiniz.

Biz VBA -nin Birlik metodundan istifadə edəcəyik 2 və ya daha çox qonşu olmayana qoşulmaq xanaların diapazonlarını tək diapazonda birləşdirin.

3819

İndi B4 xanasına daxil olmaq üçün yenidən MsgBox sətrini daxil etməlisiniz. Rng.Cells(1,1). Sonra kodu işə salsaq, məzmunu B4 , Boris Pasternak xanasında göstərəcək.

Xatırlamalılar

Yuxarıda təsvir edilən bütün üsullar yalnız aktiv iş vərəqi üçün işləyir. Aktiv olmayan iş vərəqinə daxil olmaq istəyirsinizsə, diapazondan əvvəl iş vərəqinin adını qeyd etməlisiniz.

Məsələn, Cədvəl1-in B4 diapazonuna daxil olmaq üçün , istifadə etməlisiniz:

9190