Како да користите поместување на опсегот VBA (11 начини)

  • Споделете Го Ова
Hugh West

Ако барате некои од најлесните начини за користење VBA Офсет на опсег, тогаш ќе најдете дека овој напис вреди. Ајде да започнеме со начините на користење на VBA Офсет на опсег.

Преземи работна книга

VBA опсег Offset.xlsm

11 Начини за користење на VBA Range Offset

Ја имам следнава табела со податоци која содржи информации за некои студенти на колеџ. Користејќи ја оваа база на податоци, ќе ги објаснам начините на користење на VBA Офсет на опсег.

За таа цел, користев верзија Microsoft Excel 365 , можете да користите која било други верзии според вашата погодност.

Метод-1: Избор на ќелија со користење на опсегот VBA

Тука, ќе избереме ќелија што го содржи името Даниел Дефо. За таа цел, ќе ја користиме функцијата RANGE во VBA .

Чекор-01 :

➤Одете во Програмер Таб>> Visual Basic Опција

Потоа, Visual Basic Editor ќе се отвори.

➤Одете во Вметни Tab>> Модул Опција

После тоа, ќе се креира Модул .

Чекор-02 :

➤Напишете го следниот код

2395

Ќе ја избере ќелијата B8 .

➤Притиснете F5

Резултат :

На овој начин, ќе ја добиете избраната ќелија која содржи Даниел Дефо .

Прочитајте повеќе: Како да го користите опсегот на објектот на VBA во Excel

Метод-2: Избирање група на соседни ќелии со користење на опсегот VBA

Можете да изберете опсег од соседни ќелии како што се колоната Име на ученикот и колоната Резултат во следнава табела следејќи го овој метод.

Чекор-01 :

➤Следете го Чекор-01 од Метод-1

9412

Ќе ги избере ќелиите од B5 до C10 .

➤Притиснете F5

Резултат :

Потоа, ќе ги добиете ќелиите во Колона B и Колона C избрана.

Метод-3: Избор на група од не-соседни ќелии со користење на опсегот VBA

Да претпоставиме, сакате да ги изберете студентите по име Вилијам Дејвид и Мајкл Ентони вклучувајќи го нивниот соодветен Ид на е-пошта . За да ги изберете овие несогласни ќелии, можете да го следите овој метод.

Чекор-01 :

➤Следете Чекор -01 од Метод-1

8291

Ќе ги избере ќелиите B6 , D6 , B9, и D9 .

➤Притиснете F5

Резултат :

Потоа, ќе ги добиете ќелиите што го содржат името на ученикот Вилијам Дејвид , Мајкл Ентони, и нивниот соодветни Ид на е-пошта избрани.

Метод-4: Избирање група на не-соседни ќелии и опсег со користење на опсегот VBA

Можете да изберете опсег на ќелии и некои неповрзани ќелии истовремено следејќи го оваметод.

Чекор-01 :

➤Следете го Чекор-01 од Методот- 1

7138

Ќе го избере опсегот на ќелии во опсегот B5:B10 и другите две ќелии D6 , D10 .

➤Притиснете F5

Резултат :

После, ќе добиете ќелиите во колоната Име на студентот и два идентификатори за е-пошта за Вилијам Дејвид и Доналд Пол избрани.

Метод-5: Избор на опсег со користење на VBA Range Offset

Можете да изберете опсег на ќелии во колоната Student Name со користење на Функција OFFSET .

Чекор-01 :

➤Следете Чекор-01 од Метод-1

1411

Најпрво, Опсегот(„A1:A6“) ќе го избере опсегот A1:A6 , а потоа Offset(4, 1) ќе помести 4 реда надолу од ќелијата A1 и 1 колона на десната страна. После тоа, од тука ќе се избере еднаков број ќелии во опсегот A1:A6 .

➤Притиснете F5

Резултат :

На овој начин, ќе ја изберете колоната Име на ученикот .

Метод-6: Поместување на опсегот VBA Негативно

Можете да ја изберете колоната Идентификатор на е-пошта со следење на овој метод.

Чекор-01 :

➤Следете го Чекор-01 од Метод-1

3053

Најпрво, Опсег („F11:F16“) ќе го избере опсегот F11:F16 , а потоа Offset(-6, -2) ќе се премести 6 редови нагоре од ќелијата F11 и 2 колони на левата страна. После тоа, од тука ќе се избере еднаков број ќелии во опсегот F11:F16 .

➤Притиснете F5

Резултат :

Потоа, ќе можете да ја изберете колоната Ид на е-пошта .

Слични читања:

  • VBA за секоја ќелија во опсег во Excel (3 методи)
  • Како да броите текст во Excel (7 лесни трикови)

Метод-7: Избор на опсег во однос на активната ќелија

Тука, имаме активна ќелија (ќелија A1 ) и во однос на оваа ќелија, ќе го избереме опсегот на податоци во овој метод.

Чекор-01 :

➤Следете го Чекор-01 од Методот-1

4570

Тука, активна ќелија е A1

Првиот дел activecell.Offset(4, 1) ќе избере клетка 4 реда надолу и 1 колона десно од ќелијата A1 и вториот дел activecell.Offset(9, 3) ќе избере клетка 9 реда надолу и 3 колони десно од ќелијата A1 .

Конечно, сите на клетките помеѓу овие две ќе се изберат ќелиите.

➤Притиснете F5

Резултат :

Потоа , ќе можете да го изберете целиот опсег на податоци.

Метод-8: Копирајте опсег

Ако сакате да копирате опсег на ќелии, тогаш можете да го следите овој метод.

Чекор-01 :

➤Следете го Чекор-01 од Метод-1

4084

На почетокот, Опсегот („A1:A6“) ќе го избере опсегот A1:A6 , а потоа Offset(4, 1) ќе се помести 4 реда надолу од ќелијата A1 и 1 колона на десната страна. После тоа, од тука ќе се избере еднаков број ќелии во опсегот A1:A6 .

На крајот, ќе ги копира вредностите во опсегот B5:B10 .

➤Притиснете F5

Резултат :

Потоа, вие ќе може да го копира опсегот на податоци во колоната Име на ученик .

Метод-9: Бришење опсег

Тука, ќе покажеме начин за бришење опсег на податоци со користење VBA код.

Чекор-01 :

➤Следете го Чекор-01 од Метод-1

8230

Прво, Опсегот („F11:F17“) ќе го избере опсегот F11:F17 , а потоа Offset(-7, -2) ќе се помести 7 реда нагоре од ќелијата F11 и 2 колони на левата страна. После тоа, од тука ќе се избере еднаков број на ќелии во опсегот F11:F17 .

Конечно, ќе се избрише опсегот D4:D10 .

➤Притиснете F5

Резултат :

На овој начин, ќе копирате опсегот на податоци во колоната Идентификатор на е-пошта .

Метод-10: Користење на VBA Range Offset за внесување вредност

Тука, имаме празна ќелија ( ја отстранивме вредноста во оваа ќелија за објаснување на овој метод) во колоната Име на ученикот и сакаме да ја пополниме со името Џозеф Мајкл . Со користење на а VBA код што лесно можеме да ја внесеме оваа вредност.

Чекор-01 :

➤Следете Чекор-01 од Метод-1

3855

Прво, Опсег(„A1“) ќе ја избере ќелијата A1 , а потоа Offset(6, 1) ќе помести 6 реда надолу од ќелијата A1 и 1 колона на десната страна. После тоа, ќелијата B7 ќе биде избрана и конечно ќе ја внесе вредноста „Јозеф Мајкл“ во оваа ќелија.

➤Притиснете F5

Резултат :

На овој начин, ќе го добиете името Joseph Michael во ќелијата B7 .

Метод-11: Користење на VBA Range Offset за добивање излез

Да претпоставиме дека сакате да напишете Положен или Не успеа да одговара на имињата на учениците во зависност од колоната Резултати каде што Поминете или Неуспешно е напишано во заграда. За да ја пронајдете оваа подниза во колоната Резултати и да ја запишете во колоната Поминете/Неуспешно следете го овој метод.

Чекор-01 :

➤Следете го Чекор-01 од Методот-1

8896

Овде, опсегот на ќелиите C5:C10 се избира со Опсег(„C5:C10“) што е колоната Резултати

InStr(вредност. ќелија, „Пропусница“) > 0 е условот кога бројот е поголем од нула (кога ќелијата содржи „Поминете“ )  тогаш следната линија ќе продолжи и ќе го даде излезот во соседната ќелија како Положен . Овде, соседната ќелија ќе биде избрана од cell.Offset(0, 1) , што значи дека ќе се помести 1 колона десно од влезната ќелија.

Ако условот стане неточен значи дека ќелијата не содржи „Поминете“ тогаш линијата под Друго ќе се изврши и ќе ја даде излезната вредност во соседната ќелија како Неуспешно .

Оваа јамка ќе продолжи за секоја ќелија .

➤Притиснете F5

Резултат :

Потоа, ќе добиете излезите Поминаа или не успеаја во колоната Поминете/Неуспешно .

Дел за вежбање

За вежбање сами обезбедивме дел Пракса како подолу во листот со име Вежба . Ве молиме направете го тоа сами.

Заклучок

Во оваа статија се обидов да ги опфатам најлесните начини за користење VBA поместување на опсегот во Excel ефективно. Се надевам дека ќе ви биде корисно. Ако имате какви било предлози или прашања, слободно споделете ги со нас.

Хју Вест е високо искусен тренер и аналитичар на Excel со повеќе од 10 години искуство во индустријата. Има диплома за сметководство и финансии и магистер по бизнис администрација. Хју има страст за предавање и има развиено уникатен пристап на наставата кој е лесен за следење и разбирање. Неговото стручно познавање на Excel им помогна на илјадници студенти и професионалци ширум светот да ги подобрат своите вештини и да се истакнат во нивните кариери. Преку својот блог, Хју го споделува своето знаење со светот, нудејќи бесплатни упатства за Excel и онлајн обука за да им помогне на поединците и бизнисите да го достигнат својот целосен потенцијал.