Егер сіз VBA Ауқымның ауытқуын пайдаланудың ең оңай жолдарын іздесеңіз, онда сіз бұл мақаланы лайық деп табасыз. VBA Ауқым ығысуын пайдалану жолдарын бастайық.

Жұмыс кітабын жүктеп алу

VBA диапазонының ығысуын пайдаланудың 11 жолы

Менде колледж туралы кейбір студенттердің ақпаратын қамтитын келесі деректер кестесі бар. Осы деректер жинағын пайдалана отырып, мен VBA Ауқымның ауытқуын пайдалану жолдарын түсіндіремін.

Осы мақсатта мен Microsoft Excel 365 нұсқасын қолдандым, кез келген пайдалануға болады. сізге ыңғайлы басқа нұсқалар.

1-әдіс: VBA ауқымын пайдалану арқылы ұяшықты таңдау

Мұнда біз <атауы бар ұяшықты таңдаймыз. 8> Даниэль Дефо. Осы мақсатта VBA ішіндегі RANGE функциясын қолданамыз.

01-қадам :

➤ Әзірлеуші ​​ қойындысы>> Visual Basic Опция

Сосын, Visual Basic редакторы ашылады.

➤ Insert Tab>> Модуль Опция

бөліміне өтіңіз.

Одан кейін Модуль жасалады.

02-қадам :

➤Келесі кодты жазыңыз

1293

Ол B8 ұяшығын таңдайды.

➤ F5 пернесін басыңыз

Нәтиже :

Осылайша, Даниэл Дефо таңдалған ұяшықты аласыз.

Толығырақ: Excel бағдарламасында VBA ауқымының нысанын пайдалану жолы

2-әдіс: VBA ауқымын пайдалану арқылы іргелес ұяшықтар тобын таңдау

Студент аты бағаны және Нәтиже бағаны сияқты сабақтас ұяшықтар ауқымын таңдауға болады. осы әдісті орындау арқылы келесі кестені жасаңыз.

01-қадам :

➤ 01-қадам орындаңыз. Әдіс-1

7596

Ол B5 және C10 ұяшықтарын таңдайды.

➤ F5

Нәтиже пернесін басыңыз:

Осыдан кейін сіз В бағанындағы ұяшықтарды аласыз. және C бағаны таңдалды.

3-әдіс: VBA ауқымын пайдалану арқылы сабақтас емес ұяшықтар тобын таңдау

Айлық, Уильям Дэвид және Майкл Энтони оның ішінде сәйкес Электрондық пошта идентификаторы атты студенттерді таңдағыңыз келеді. Осы сәйкес келмейтін ұяшықтарды таңдау үшін мына әдісті орындауға болады.

01-қадам :

➤ қадамды орындаңыз -01 Әдіс-1

5689

Ол B6 , D6 , B9, <2 ұяшықтарын таңдайды>және D9 .

➤ F5

Нәтиже түймесін басыңыз:

Одан кейін студенттің аты Уильям Дэвид , Майкл Энтони, және олардың сәйкес Электрондық пошта идентификаторы таңдалған ұяшықтарды аласыз.

4-әдіс: VBA ауқымын пайдалану арқылы іргелес емес ұяшықтар тобын және ауқымды таңдау

Ұяшықтар ауқымын және кейбір іргелес емес ұяшықтарды бір уақытта таңдауға болады осыны орындау арқылыәдісі.

01-қадам :

➤ Әдіс-тің 01-қадам қадамын орындаңыз. 1

5977

Ол B5:B10 ауқымындағы ұяшықтар ауқымын және басқа екі ұяшықты D6 , D10 таңдайды .

➤ F5

Нәтиже пернесін басыңыз:

Содан кейін сіз аласыз бағанындағы ұяшықтар Студент аты және Уильям Дэвид және Дональд Пол үшін екі Электрондық пошта идентификаторы таңдалды.

5-әдіс: VBA ауқымының ығысуын пайдалану арқылы ауқымды таңдау

Студент аты бағанындағы ұяшықтар ауқымын арқылы таңдауға болады. OFFSET функциясы .

01-қадам :

➤ 01-қадам қадамын орындаңыз. 1>Әдіс-1

7653

Алғашында Ауқым(“A1:A6”) A1:A6 ауқымын таңдайды, содан кейін Offset(4, 1) A1 ұяшығынан 4 жолды төмен және 1 бағанды ​​оң жаққа жылжытады. Осыдан кейін A1:A6 диапазондағы ұяшықтардың бірдей саны осы жерден таңдалады.

➤ F5 пернесін басыңыз.

Нәтиже :

Осылайша Студенттің аты-жөні бағанасын таңдайсыз.

6-әдіс: VBA ауқымының ауытқуы теріс

Осы әдісті орындау арқылы Электрондық пошта идентификаторы бағанын таңдауға болады.

01-қадам :

➤ Әдіс-1

7330

01-қадам қадамын орындаңыз Алдымен Range(“F11:F16”) F11:F16 ауқымын таңдайды, содан кейін Offset(-6, -2) 6-ға жылжытады. F11 ұяшығынан жоғары қарай жолдар және сол жақта 2 баған. Осыдан кейін F11:F16 диапазондағы ұяшықтардың бірдей саны осы жерден таңдалады.

➤ F5 пернесін басыңыз.

Нәтиже :

Осыдан кейін Электрондық пошта идентификаторы бағанын таңдай аласыз.

Ұқсас көрсеткіштер:

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

7-әдіс: Белсенді ұяшыққа қатысты ауқымды таңдау

Мұнда, бізде белсенді ұяшық бар ( A1 ұяшығы) және осы ұяшыққа қатысты біз осы әдіспен деректер ауқымын таңдаймыз.

01-қадам :

➤ әдіс-1

9099

осындағы 01-қадам қадамын орындаңыз, activecell бұл A1

Бірінші бөлім activecell.Offset(4, 1) ұяшықты 4 жол төмен және 1 бағанды ​​оң жақ ұяшықтан таңдайды A1 және екінші бөлігі activecell.Offset(9, 3) A1 ұяшығынан 9 жол төмен және 3 баған оң жақ ұяшықты таңдайды.

Соңында, барлығы осы екеуінің арасындағы жасушалардан ұяшықтар таңдалады.

➤ F5

Нәтиже пернесін басыңыз:

Одан кейін , сіз бүкіл деректер ауқымын таңдай аласыз.

8-әдіс: Ауқымды көшіру

Ұяшықтар ауқымын көшіргіңіз келсе, онда сіз осы әдісті орындай аласыз.

01-қадам :

➤ 01-қадам қадамын орындаңыз. Әдіс-1

8382

Алғашында, Ауқым(“A1:A6”) A1:A6 ауқымын таңдайды, содан кейін Офсет(4, 1) ұяшықтан 4 жолды төмен жылжытады. 1>A1 және 1 баған оң жақта. Осыдан кейін A1:A6 диапазондағы ұяшықтардың тең саны осы жерден таңдалады.

Соңында ол B5:B10<2 ауқымындағы мәндерді көшіреді>.

➤ F5

Нәтиже пернесін басыңыз:

Осыдан кейін сіз Студент аты бағанындағы деректер ауқымын көшіре алады.

9-әдіс: Ауқымды жою

Мұнда, VBA кодын пайдалану арқылы деректер ауқымын жою жолын көрсетеміз.

01-қадам :

➤ 1-әдіс

6756

01-қадам қадамын орындаңыз. Біріншіден, Ауқым («F11:F17») таңдайды диапазон F11:F17 , содан кейін Offset(-7, -2) F11 ұяшығынан 7 жол жоғары және 2 бағаннан сол жаққа жылжытады. Осыдан кейін F11:F17 ауқымындағы ұяшықтардың тең саны осы жерден таңдалады.

Соңында ол D4:D10 ауқымын жояды.

➤ F5

Нәтиже пернесін басыңыз:

Осылайша сіз көшіресіз Электрондық пошта идентификаторы бағанындағы деректер ауқымы.

10-әдіс: Мән енгізу үшін VBA диапазонының ығысуын пайдалану

Мұнда, Студент аты бағанында бос ұяшық бар (осы әдісті түсіндіру үшін осы ұяшықтағы мәнді алып тастадық) және оны Джозеф Майкл деген атпен толтырғымыз келеді. пайдалану арқылы а VBA коды біз бұл мәнді оңай енгізе аламыз.

01-қадам :

➤<1 орындаңыз>01-қадам Әдіс-1

7196

Біріншіден, Ауқым («A1») A1 ұяшығын таңдайды, содан кейін Офсет(6, 1) A1 ұяшығынан 6 жолды төмен және 1 бағанды ​​оң жаққа жылжытады. Осыдан кейін B7 ұяшы таңдалады және соңында ол осы ұяшыққа “Джозеф Майкл” мәнін енгізеді.

➤ F5

Нәтиже пернесін басыңыз:

Осылайша сіз Джозеф Майкл атын аласыз. B7 ұяшығында.

11-әдіс: Нәтижені алу үшін VBA диапазонының ығысуын пайдалану

Айталық, Өтті немесе жазғыңыз келеді. Нәтиже бағанына байланысты Сәйкес келмеді оқушылардың аты-жөні, мұнда Өтілген немесе Өтпеген жақшаға жазылған. Бұл ішкі жолды Нәтиже бағанында табу және оны Өту/Өтпеу бағанына жазу үшін осы әдісті орындаңыз.

01-қадам :

➤ Әдіс-1

8649

нің 01-қадам қадамын орындаңыз. Мұнда ұяшық ауқымы C5:C10 Ауқым(“C5:C10”) арқылы таңдалады, ол Нәтиже бағаны

InStr(ұяшық. мәні, «Өту») > 0 - сан нөлден үлкен болатын шарт (ұяшықта “Өту” болған кезде)  одан кейін келесі жол жалғасады және көрші ұяшықта Өтті<2 ретінде нәтиже береді>. Мұнда көрші ұяшық таңдалады ұяшық.Offset(0, 1) , яғни ол кіріс ұяшығынан 1 бағанды ​​оңға жылжытады.

Егер шарт жалған болса, ұяшықта ешқандай жоқ дегенді білдіреді. «Өту» , содан кейін Әйтпесе астындағы жол орындалады және көрші ұяшықтағы шығыс мәнін Сәтсіз ретінде береді.

Бұл цикл әрбір ұяшық үшін жалғасады. .

➤ F5

Нәтиже пернесін басыңыз:

Содан кейін сіз аласыз Өтті/Өтпейді бағанындағы Өтті немесе Өтпеді шығыстар.

Жаттығу бөлімі

Тәжірибе жасау үшін Өз бетіңізше біз Тәжірибе деп аталатын парақта төмендегідей Практика бөлімін бердік. Мұны өзіңіз жасаңыз.

Қорытынды

Бұл мақалада мен VBA диапазонының ығысуын пайдаланудың ең оңай жолдарын қарастыруға тырыстым. Excel бағдарламасында тиімді. Сізге пайдалы болады деп үміттенемін. Ұсыныстарыңыз немесе сұрақтарыңыз болса, бізбен бөлісіңіз.