Как да умножим всички клетки в диапазон с константа
Искате ли да гарантирате, че всички константи в диапазон се умножават по коефициент? Можете да постигнете това, като използвате умело функцията EDIT - INSERT CONTENT.
По -лесно е, ако използвате следния макрос:
Използвайте подфактор ()
Dim Cell As Range
Затъмнете входната стойност като дълга
Входна стойност = InputBox ("Моля, въведете коефициента (напр. 100)")
За всяка избрана клетка
Ако не (Cell.HasFormula) Тогава
Cell.Formula = "=" & Cell.Value & "*" & Val (входна стойност)
Край Ако
Следващата клетка
End Sub
В първата стъпка изберете диапазон от клетки в таблица. Следващата фигура показва пример за маркирана област.
След това извикайте макроса. Сега Excel пита в прозорец за фактора, който искате да използвате. Следващата фигура показва този прозорец:
Потвърдете дефиницията на фактора с бутона OK.
Сега Excel преминава през всички клетки в селекцията. Променят се само клетките, в които няма формула. Те се умножават по въведения фактор. Excel въвежда новата стойност като формула в клетката. Следващата фигура показва как може да изглежда резултатът:
Ако искате да въведете числата като константи, заменете реда "Cell.Formula" със следния израз:
Cell.Value = Cell.Value * Val (входна стойност)
Като въведете коефициент по -малък от един, можете също да разделите клетките на константа.
Преобразуване на формула в константа с помощта на макрос: Как да конвертирате изчисление с помощта на VBA в абсолютна стойност
Искате да преобразувате клетките на диапазон в абсолютни стойности. Можете да направите това интерактивно, като копирате областта и след това я поставите като стойности. Подходящата команда се нарича „Редактиране - Специално поставяне“ в Excel до версия 2003 и „Старт - Поставяне - Специално поставяне“ в Excel от версия 2007.
Ако искате да конвертирате отделни клетки в макрос, следният код на програмата ще ви помогне:
SubValueConvert ()
С ActiveSheet.Range ("a1")
.Формула = .Значение
Край с
End Sub
Макросът преобразува текущото съдържание на клетка A1 в активната таблица в абсолютна стойност.