У вялікіх базах даных вы праводзіце большую частку часу, маючы справу з дыяпазонамі і ячэйкамі. Часам даводзіцца паўтараць адно і тое ж дзеянне ў вялікіх дыяпазонах або вялікай колькасці вочак. Гэта адначасова забівае ваш час і зніжае вашу эфектыўнасць. Разумным рашэннем гэтай праблемы з'яўляецца стварэнне Кода праграмавання VBA , які будзе праходзіць праз кожную ячэйку ў дыяпазоне і выконваць тое самае дзеянне, якое вы загадалі. Сёння ў гэтым артыкуле мы абмяркуем, як зрабіць VBA для кожнай ячэйкі ў дыяпазоне ў Excel.

Спампуйце практычны сшытак

Спампуйце гэты практычны сшытак, каб выконваць задачу, пакуль вы чытаеце гэты артыкул.

3 прыдатныя спосабы прымянення VBA для кожнай ячэйкі ў дыяпазоне ў Excel

Выкарыстоўваючы код VBA, вы можаце выканаць адну і тую ж формулу для кожнай ячэйкі ў дыяпазоне, слупку або радку. У гэтым раздзеле мы разгледзім усе раздзелы.

1. Ужывайце VBA для кожнай ячэйкі ў дыяпазоне

Разгледзім сітуацыю, калі вам трэба ўжыць адзін і той жа код VBA для кожнай ячэйкі ў зададзены дыяпазон ( B3:F12 ). Для гэтага мы створым код VBA. Інструкцыі прыведзены ніжэй

Крок 1:

• Спачатку мы ўставім камандную кнопку, каб спрасціць нашу працу . Перайдзіце на Укладку распрацоўшчыка , выберыце Уставіць і націсніце кнопку каманды, каб атрымаць яе.

• Мы атрымалі камандукнопка.

• Націсніце правай кнопкай мышы на каманднай кнопцы, каб адкрыць параметры. Выберыце і націсніце Уласцівасці , каб змяніць некаторыя параметры.

• Змяніце загаловак кнопкі каманды. Тут мы змяняем назву на « Націсніце тут ».

Крок 2:

• Цяпер двойчы пстрыкніце камандную кнопку, каб адкрыць модуль VBA . Тут мы запішам наш код VBA для задачы.

• Спачатку мы аб'явім дзве зменныя. Мы называем аб'екты дыяпазону CL і Rng . Вы можаце называць іх як заўгодна.

6165

• Прызначце пэўны дыяпазон гэтай камандай,

Усталяваць Rng = Worksheets(“VBA1”).Range(“B3:F12”)

• Тут VBA1 — назва нашага працоўнага аркуша, а B3:F12 — вызначаны дыяпазон.

• Цяпер мы будзем выкарыстоўваць код для выканання кожнай ячэйкі ў дыяпазоне. Код:

4729

• Значэнне = 100 азначае, што ён верне 100 для кожнай ячэйкі ў дадзеным дыяпазоне.

• Такім чынам, наш канчатковы код выглядае так:

9263

• Перайдзіце на свой галоўны аркуш і націсніце камандную кнопку, каб запусціць VBA для кожнай ячэйкі ў дыяпазоне.

Крок 3:

• Як і лікавыя значэнні, мы таксама можам змясціць тэкставыя значэнні для кожнай ячэйкі ў дыяпазоне. У такім выпадку перайдзіце ў акно VBA і замест 100 устаўце тэкставае значэнне, якое вы хочаце прайсці. Змененырадок

1121

• Націсніце на камандную кнопку, і код VBA верне гэта тэкставае значэнне для кожнай ячэйкі ў дыяпазоне.

Крок 4:

• На гэтым этапе мы паглыбімся крыху глыбей. Дапусцім, мы хочам вылучыць кожную пустую ячэйку ў нашым дыяпазоне.

• Для гэтага дадайце новую ўмову да існуючага кода. Новая формула:

1174

• Гэты новы код вылучыць пустую ячэйку чырвоным колерам. Такім чынам, поўны код:

8018

• Атрымайце вынік, націснуўшы кнопку каманды.

Падобныя чытанні:

• Як выкарыстоўваць аб'ект дыяпазону VBA ў Excel (5 уласцівасцей)
• Выкарыстоўвайце зрушэнне дыяпазону VBA (11 спосабаў)
• Як падлічыць тэкст у Excel (7 простых прыёмаў)

2. Устаўце VBA Код для кожнай ячэйкі ў слупку дыяпазону

Мы таксама можам запусціць код VBA для кожнай ячэйкі ў слупку. Выкажам здагадку, што ў нас ёсць слупок, які змяшчае лічбы, і мы павінны расфарбаваць значэнні, меншыя за 10. Мы створым код VBA для запуску кожнай ячэйкі ў слупку.

Крок 1:

• Стварыце камандную кнопку, прытрымліваючыся інструкцый, якія мы абмяркоўвалі.

Крок 2:

• Двойчы пстрыкніце камандную кнопку, каб адкрыць акно VBA.
• Мы аб'явім зменную з назвай « c » тыпу доўгі. Мы выкарыстоўваем тут зменную тыпу Long, таму што Longзменныя маюць большую ёмістасць, чым зменныя Integer.

3379

• Далей дадайце радок кода, які змяняе колер шрыфта ўсіх вочак у нашым слупку на чорны.

9849

• Устаўце пятлю для гэтага кода.

7495

• На гэтым кроку мы ўвядзём умову для афарбоўвання значэнняў, якія ніжэйшыя за значэнне ячэйкі C4 (10). Каб зрабіць гэта, увядзіце гэты код.

3648

• Такім чынам, канчатковы код:

5383

• VBA будзе працаваць і паказваць вынікі, калі вы націснеце кнопку каманды.

3. Напішыце код VBA для кожнай ячэйкі ў радку дыяпазону

Мы таксама можам запусціць код VBA для кожнай ячэйкі ў радку. У дадзеным радку нам трэба выканаць аднолькавае дзеянне з кожнай ячэйкай радка.

Крок 1:

• Дадайце камандную кнопку і змяніце яе назву на « Націсніце тут! »

• Двойчы пстрыкніце кнопку, каб адкрыць акно VBA. Запішыце прыведзены ніжэй код VBA.

5926

• Код будзе праходзіць праз кожную ячэйку радка і прымяняць жоўты колер да кожнай ячэйкі.

• Націсніце на кнопку, і наш вынік будзе тут.

Кароткія нататкі

👉 Калі у вас не бачная ўкладка распрацоўшчыка, вы можаце актываваць яе, выкарыстоўваючы гэтую інструкцыю.

Наладжаная панэль хуткага доступу → Іншыя каманды → Наладзіць стужку → Распрацоўшчык  → OK

Выснова

Мы азнаёміліся з трыма рознымі падыходамі да запуску VBA для кожнай ячэйкі ў дыяпазоне. Запрашаем да каментароў, калі ў вас ёсць якія-небудзь пытанні ці запыты. Вы таксама можаце азнаёміцца ​​з нашымі іншымі артыкуламі, звязанымі з задачамі Excel!