Excel бағдарламасындағы белсенді ұяшықтан ауқымды таңдау үшін VBA қалай пайдалануға болады (3 әдіс)

Hugh West

20-08-2023 Макростар & Excel VBA
  • Мұны Бөлісіңіз
Hugh West

Біз сізге Excel VBA ішіндегі 3 әдістерді белсенді ұяшықтан ауқым таңдау көрсетеміз>. Мұны көрсету үшін біз 3 баған бар деректер жинағын таңдадық: “ Аты ”, “ Тегі ” және “ Электрондық пошта ”. Біз ұяшық таңдаймыз және Excel VBA қолданып, сол ұяшық ішінен ауқымды таңдаймыз.

Тәжірибе жұмыс кітабын жүктеп алу

Active Cell.xlsm ішінен ауқымды таңдау

Excel бағдарламасындағы VBA көмегімен белсенді ұяшықтан ауқымды таңдаудың 3 жолы

1. Белсенді ұяшықтан соңғы бос емес ұяшыққа дейінгі ауқымды таңдау үшін VBA қолдану

Бірінші әдіс үшін біз Range.End сипатын қолданамыз.

Мұнда біз кодты Модуль ретінде енгіземіз. Модуль терезесін ашу үшін мынаны орындаңыз:

Қадамдар:

  • Біріншіден, Әзірлеуші қойындысы >>> Visual Basic таңдаңыз.

Visual Basic терезесі пайда болады.

  • Соңында, Кірістіру >>> Модуль таңдаңыз.

Бұл Модуль терезесін ашады.

1.1. End(xlUp) қасиетін пайдалану

Бұл бөлімде біз соңғы бос емес ұяшыққа<дейін ауқым жоғары таңдаймыз. 2> біздің белсенді ұяшықтан .

Қадамдар:

  • Алдымен Модуль терезесін ашыңыз.
  • Екіншіден, келесі кодты түр . 
4457

Біз қоңырау шалып жатырмыз. Қосымша Процедура Толық . Содан кейін біз диапазонды таңдаймыз. Бірінші мән - біздің белсенді ұяшық . Соңғы мән ActiveCell.End(xlUp) . Соңында, біз ауқым арқылы ауқым таңдап жатырмыз. Таңдау әдісі.

  • Үшіншіден, Сақтау және терезені жабыңыз.
  • Одан кейін C6 ұяшығын таңдаңыз. Бұл ұяшық біздің белсенді ұяшық .

Енді біз Макро терезесін ашыңыз. Мұны істеу үшін-

  • Әзірлеуші қойындысынан >>> Макростар таңдаңыз.

Осыдан кейін Макрос диалогтық терезе пайда болады.

  • Содан кейін “ Макрос атауы: ” ішінен “ Толық ” тармағын таңдаңыз.
  • Соңында Орындау<2 түймесін басыңыз>.

Оны көріп отырмыз, біз таңдалған ұяшық диапазоны C4:C6 .

Толығырақ оқу: Excel VBA: Динамикалық ауқымды басқа жұмыс кітабына көшіру

1.2. End(xlDown) қасиетін қосу

Бұл бөлімде біз белсенді ұяшықтан ауқым төмен таңдаймыз.

Қадамдар:

  • Біріншіден, Модуль терезесін ашыңыз.
  • Екіншіден, түр келесі код. 
2171

Біз Қосымша Процедураны ToDown деп атаймыз. Содан кейін біз диапазонды таңдаймыз. Бірінші мән - біздің белсенді ұяшық . Соңғы мән ActiveCell.End(xlDown) . Ақырында, біз диапазон арқылы ауқым таңдау. әдісті таңдау.

  • Үшіншіден, Сақтау және терезені жабыңыз.
  • Одан кейін C6 ұяшығын таңдаңыз. Бұл біздің белсенді ұяшық .

  • Одан кейін Макрос диалогтық терезесін ашыңыз.
  • “ Төменге ” таңдаңыз.
  • Соңында, Іске қосу түймесін басыңыз.

Осылайша, біз Excel VBA көмегімен белсенді ұяшықтан диапазон таңдадық .

Толығырақ оқу: Excel VBA-ны бос ұяшыққа дейін ауқымды айналдыру (4 мысал)

Ұқсас мақалалар

  • Excel VBA: Ауқымдағы бағандар арқылы цикл (5 мысал)
  • Excel бағдарламасындағы ауқымдағы әрбір жол үшін VBA қалай пайдалану керек
  • Excel макросы: динамикалық диапазонмен бірнеше бағандарды сұрыптау (4 әдіс)
  • Excel бағдарламасындағы ауқымдағы жолдар мен бағандар арқылы айналдыру үшін VBA (5 мысал)
  • Excel VBA бағдарламасында ауқымды массивке қалай түрлендіруге болады (3 жол)

1.3. End(xlToLeft) қасиетін қолдану

Бұл бөлімде біз белсенді ұяшықтың сол жағына ауқым таңдаймыз. .

Қадамдар:

  • Біріншіден, Модуль терезесін ашыңыз.
  • Екіншіден, түрі келесі код. 
3616

Біз Ішкі процедураны Солға шақырамыз. Содан кейін біз диапазонды таңдаймыз. Бірінші мән - біздің белсенді ұяшық . Соңғы мән ActiveCell.End(xlToLeft) . Соңында, біз ауқым бар ауқым таңдап жатырмыз. әдісін таңдаңыз.

  • Үшіншіден, Сақтау және терезені жабыңыз.
  • Одан кейін D7 ұяшығын таңдаңыз. Бұл біздің белсенді ұяшық .

  • Одан кейін Макрос диалогтық терезесін ашыңыз.
  • “ Солға ” таңдаңыз.
  • Соңында, Орындау түймесін басыңыз.

Осылайша, біз Excel VBA арқылы белсенді ұяшықтан диапазон таңдадық .

1.4. End(xlToRight) қасиетін іске асыру

Бұл бөлімде біз белсенді ұяшықтың оң жағына ауқым таңдаймыз. .

Қадамдар:

  • Біріншіден, Модуль терезесін ашыңыз.
  • Екіншіден, түрі келесі код. 
4299

Біз Ішкі процедурамызды Оңға шақырамыз. Содан кейін біз диапазонды таңдаймыз. Бірінші мән - біздің белсенді ұяшық . Соңғы мән ActiveCell.End(xlToRight) . Соңында, біз ауқым бар ауқым таңдап жатырмыз. әдісті таңдаңыз.

  • Үшіншіден, Сақтау және терезені жабыңыз.
  • Одан кейін C8 ұяшығын таңдаңыз. Бұл біздің белсенді ұяшық .

  • Одан кейін Макрос диалогтық терезесін ашыңыз.
  • “ Оңға ” таңдаңыз.
  • Соңында, Орындау түймесін басыңыз.

Осылайша, біз таңдалған ауқым Excel VBA арқылы біздің белсенді ұяшықтан .

2. Белсенді ұяшықтан ауқымды таңдау үшін VBA диапазоны.Offset сипатын пайдалану Excel бағдарламасында VBA пайдалану

Екінші әдіс үшін белсенді ұяшықты пайдаланып ауқым таңдау үшін VBA Range.Offset сипатын қолданамыз. .

Қадамдар:

  • Біріншіден, Модуль терезесіне тер келесі кодты енгізіңіз. 
8875

Біз Ішкі процедурамызды UsingOffset жасадық. Содан кейін біз диапазонды таңдаймыз. Бірінші мән - біздің белсенді ұяшық . Соңғы мән ActiveCell.Offset (1,2) . Офсет қасиеті арқылы біз 1 жолды төменге және 2 бағанды оңға жылжытамыз. Соңында, біз ауқым бар ауқым таңдап жатырмыз. әдісін таңдаңыз.

  • Екіншіден, оны Сақтау және терезені жабыңыз.
  • Одан кейін B8 ұяшығын таңдаңыз. Бұл біздің белсенді ұяшық .

  • Одан кейін Макрос диалогтық терезесін ашыңыз.
  • “ UsingOffset ” таңдаңыз.
  • Соңында, Орындау түймесін басыңыз.

Қорытындылай келе, біз белсенді ұяшықтан таңдалған диапазон алдық. Оның үстіне соңғы қадам осылай болуы керек.

Толығырақ оқу: Excel VBA: Мәндері бар ұяшықтар ауқымын алу (7) Мысалдар)

3. CurrentRegion сипатын пайдалану арқылы Excel бағдарламасындағы VBA көмегімен Белсенді ұяшықтан ауқымды таңдаңыз.

Соңғы әдіс үшін Range.CurrentRegion сипатын қолданамыз.

Қадамдар:

  • Біріншіден, Модуль терезесіне келесі кодты тер енгізіңіз. 
9068

Біз Ішкі Процедураны шақырамыз. cАймақ . Содан кейін біз диапазонды таңдаймыз. CurrentRegion сипатымен біз ауқым бос ұяшыққа дейін таңдап жатырмыз. Соңында, біз ауқым бар ауқым таңдап жатырмыз. әдісті таңдаңыз.

  • Екіншіден, Сақтау және Excel парағына оралыңыз.
  • Одан кейін C10 ұяшығын таңдаңыз. Бұл біздің белсенді ұяшық .

  • Одан кейін Макрос диалогтық терезесін ашыңыз.
  • “ cRegion ” таңдаңыз.
  • Соңында, Іске қосу түймесін басыңыз.

Осылайша, біз бос ұяшыққа дейінгі ауқым таңдадық .

Тәжірибе бөлімі

Біз Excel файлындағы әрбір әдіс үшін тәжірибе деректер жиынын ұсындық.

Қорытынды

Біз' мен сізге 3 Excel VBA ауқымын белсенді ұяшық ішінен таңдау әдістерін көрсетті. Қадамдарды түсінуде қиындықтар туындаса, төменде түсініктеме қалдырыңыз. Оқығаныңыз үшін рақмет, алға ұмтылыңыз!

Алдыңғы пост Күнді мәтінге ЖЖЖЖММЖ қалай түрлендіруге болады (3 жылдам әдіс)
Келесі пост Excel бағдарламасында VBA DIR функциясын пайдалану жолы (7 практикалық мысал)

Хью Уэст – салада 10 жылдан астам тәжірибесі бар жоғары тәжірибелі Excel тренері және талдаушысы. «Бухгалтерлік есеп және қаржы» мамандығы бойынша бакалавр дәрежесі және іскерлік әкімшілендіру магистрі дәрежесі бар. Хью оқытуға құмар және ұстануға және түсінуге оңай бірегей оқыту әдісін әзірледі. Оның Excel бағдарламасындағы сараптамалық білімі бүкіл әлем бойынша мыңдаған студенттер мен мамандарға біліктіліктерін арттыруға және мансаптық жетістіктерге жетуге көмектесті. Блогы арқылы Хью өз білімін әлеммен бөліседі, жеке адамдар мен бизнеске толық әлеуетін ашуға көмектесу үшін тегін Excel оқулықтары мен онлайн тренингтерін ұсынады.