Прочетете всички числа от желания диапазон от клетки с помощта на макрос и добавете номер към съдържанието
Често е необходимо да се добави знак към клетки в списък. За да направите това, е необходимо да добавите фиксирана стойност към всички константи в диапазон от клетки.
Формулите не трябва да се променят. Макросът решава тази задача и добавя номер по ваш избор към всички константи в маркирана област с данни.
По този начин можете например бързо и ефективно да коригирате цените и други подобни към новите условия.
Следващата фигура показва таблица, която трябва да бъде променена. В клетки В1 и В2 има константи и формули в клетки В3 и В4. Двете формулни клетки се отнасят до клетките с постоянни стойности.
За да добавите числото 10 към всички константи в този списък, първо маркирайте областта за данни B1: B4 и след това извикайте следния макрос:
Добавяне на подконстанта ()
Dim Cell As Range
Dim Factor As Long
Допълнителна сума = 10
За всяка избрана клетка
С клетка
Ако не (.HasFormula) Тогава .Value = .Value + допълнителна сума
Край с
Следващата клетка
End Sub
След стартиране на макроса, допълнителното количество 10 се добавя към всички постоянни клетки в маркираната клетъчна област. Следната фигура показва резултата:
Макросът използва коефициента, който сте дефинирали в присвояването на стойността за променливата „Допълнителна сума“.
За да въведете макроса, натиснете ALT F11 в Excel, за да изведете редактора на VBA. Използвайте командата INSERT - MODULE, за да вмъкнете празен модулен лист. За да стартирате макроса директно от Excel, използвайте комбинацията от клавиши ALT F8.
