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

Преземете ја работната книга за вежбање

Преземете ја оваа книга за вежбање за да ја вежбате задачата додека ја читате оваа статија.

3 соодветни начини за примена на VBA за секоја ќелија во опсег во Excel

Користејќи VBA код, можете да ја извршите истата формула за секоја ќелија во опсег или колона или ред. Во овој дел, ќе ги поминеме сите делови.

1. Примени VBA за секоја ќелија во опсег

Размислете ситуација кога треба да го примените истиот VBA код за секоја ќелија во даден опсег ( B3:F12 ). За да го направите ова, ќе изградиме VBA код. Инструкциите се дадени подолу

Чекор 1:

• Прво, ќе вметнеме командно копче за да ја поедноставиме нашата работа . Одете во вашата картичка за програмери , изберете Вметни и кликнете на командното копче за да добиете едно.

• Ние ја добивме нашата командакопче.

• Десен-клик на командното копче за да се отворат опциите. Изберете и кликнете на Карактеристики за да измените некои опции.

• Променете го насловот на командното копче. Овде го менуваме името во „ Кликни овде “.

Чекор 2:

• Сега кликнете двапати на командното копче за да го отворите VBA модулот . Овде ќе го запишеме нашиот VBA код за задачата.

• Прво, ќе декларираме две променливи. Објектите на опсегот ги нарекуваме CL и Rng . Можете да ги именувате како сакате.

5834

• Доделете одреден опсег со оваа команда,

Поставете Rng = Работни листови („VBA1“). Опсег („B3:F12“)

• Овде VBA1 е името на нашиот работен лист и B3:F12 е нашиот дефиниран опсег.

• Сега ќе го користиме кодот за изведување низ секоја ќелија во опсегот. Кодот е,

7576

• Вредност = 100 се однесува дека ќе се врати 100 за секоја ќелија во дадениот опсег.

• Значи, нашиот последен код станува,

2710

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

Чекор 3:

• Како и нумеричките вредности, можеме и ставете текстуални вредности за секоја ќелија во опсегот. Во тој случај, одете во прозорецот VBA и наместо 100, вметнете ја текстуалната вредност низ која сакате да поминете. Променетиотлинијата е

5245

• Кликнете на командното копче и VBA кодот ќе ја врати оваа текстуална вредност за секоја ќелија во опсегот.

Чекор 4:

• Во овој чекор, ќе копаме малку подлабоко. Да речеме дека сакаме да ја истакнеме секоја празна ќелија во нашиот опсег.

• За тоа, додајте нова состојба на вашиот постоечки код. Новата формула е,

5491

• Овој нов код ќе ја нагласи празната ќелија со црвена боја. Значи целосниот код е,

1980

• Добијте го резултатот со кликнување на командното копче.

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

• Како да се користи опсегот на објектот на VBA во Excel (5 својства)
• Користете поместување на опсегот на VBA (11 начини)
• Како да броите текст во Excel (7 лесни трикови)

2. Вметнете VBA Код за секоја ќелија во колона од опсег

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

Чекор 1:

• Креирај командно копче следејќи ги инструкциите што ги дискутиравме.

Чекор 2:

• Кликнете двапати на командното копче за да се отвори прозорецот VBA.
• Ќе декларираме променлива наречена „ c “ од типот долго. Овде ја користиме променливата од типот Long бидејќи Longпроменливите имаат поголем капацитет од променливите Цел број.

4117

• Следно, додајте ја линијата за код што ја менува бојата на фонтот на сите ќелии во нашата колона во црно.

5794

• Вметнете ја јамката за овој код.

9998

• Во овој чекор, ќе внесеме услов да ги обоиме вредностите што се пониски од вредноста на ќелијата C4 (10). Внесете го овој код за да го направите тоа.

2152

• Значи, конечниот код е,

9004

• VBA ќе работи и ќе покаже резултати кога ќе кликнете на командното копче.

3. Напишете VBA код за секоја ќелија во ред од опсегот

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

Чекор 1:

• Додајте командно копче и променете го неговото име во „ Кликнете овде! “

• Кликнете двапати на копчето за да отворете го прозорецот VBA. Запишете го кодот VBA наведен подолу.

4417

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

• Кликнете на копчето и нашиот резултат е тука.

Брзи белешки

👉 Ако немате видлива картичка за програмери, можете да ја активирате користејќи ја оваа инструкција.

Приспособена лента со алатки за брз пристап → Повеќе команди → Приспособи лента → програмер  → OK

Заклучок

Поминавме низ три различни пристапи за да извршиме VBA за секоја ќелија во опсегот. Добредојдени сте да коментирате доколку имате какви било прашања или прашања. Можете исто така да ги проверите нашите други написи поврзани со задачите на Excel!