Як помножити всі комірки в діапазоні на константу
Ви хотіли б переконатися, що всі константи в діапазоні множаться на коефіцієнт? Ви можете досягти цього, розумно скориставшись функцією 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 в активній таблиці в абсолютне значення.
