Прочитајте све бројеве из жељеног опсега ћелија помоћу макроа и додајте број у садржај
Често је потребно додати ознаке ћелијама на листи. Да бисте то урадили, потребно је додати фиксну вредност свим константама у опсегу ћелија.
Формуле не треба мењати. Макро решава овај задатак и додаје број по вашем избору свим константама у означеном подручју података.
На овај начин можете, на пример, брзо и ефикасно прилагодити цене и слично новим условима.
Следећа слика приказује табелу коју треба променити. У ћелијама Б1 и Б2 постоје константе, а у ћелијама Б3 и Б4 формуле. Две ћелије формуле односе се на ћелије са константним вредностима.
Да бисте додали број 10 свим константама на овој листи, прво означите подручје података Б1: Б4, а затим позовите следећи макро:
Додај подконстанту ()
Дим Целл Ас Ранге
Дим Фацтор Ас Лонг
Додатни износ = 10
За сваку ћелију у избору
Са ћелијом
Ако није (. ХасФормула) Тада је .Вредност = .Вредност + додатни износ
Завршити
Следећа ћелија
Енд Суб
Након покретања макроа, додатна количина 10 се додаје свим константним ћелијама у означеном подручју ћелија. Следећа слика приказује резултат:
Макро користи фактор који сте дефинисали у додели вредности за променљиву „Додатни износ“.
Да бисте унели макро, притисните АЛТ Ф11 у Екцелу да бисте отворили ВБА едитор. Помоћу команде ИНСЕРТ - МОДУЛЕ уметните празан лист модула. Да бисте покренули макро директно из програма Екцел, користите комбинацију тастера АЛТ Ф8.