Ось як ви додаєте коефіцієнт до кожної формули
Якщо ви змінюєте дані у своїх таблицях у всьому світі, ви можете з блискавичною швидкістю вносити підвищення або зменшення цін або інші коригування розрахунків.
Ви можете додати коефіцієнт до всіх формул у списках. Макрос вирішує це завдання і додає коефіцієнт множення до всіх формул у вибраній області даних. Таким чином, ви можете швидко та ефективно адаптувати прайс -листи тощо до нових умов.
Наступний малюнок показує таку таблицю. У клітинках В1: В3 є константи, а в комірці В4 - формула. Ячейка формули відноситься до клітин з константами.
Щоб додати коефіцієнт 110% до всіх формул у цьому списку, спочатку позначте область даних B1: A4, а потім викличте такий макрос:
ПідфакторAnFormelnAnhaengen ()
Dim Cell As Range
Коефіцієнт затемнення As String
Фактор = "110%"
Для кожної вибраної клітинки
З клітиною
Якщо .HasFormula Тоді .Formula = _
"= (" & Right $ (. Formula, Len (.Formula) - 1) & ") *" & factor
Закінчити з
Наступна клітина
End Sub
Після запуску макросу всі комірки формул у позначеній області клітинок множаться на коефіцієнт 110%. Наступний малюнок показує результат
Макрос вставляє коефіцієнт, який ви вказали у призначенні значення для змінної фактор визначили. Вираз "110%" зберігається там як текст. Це призводить до збільшення результатів формули на 10%. Змініть це число на інший фактор. Використовуючи коефіцієнти нижче 1, ви також можете робити поділи.
В ЯкщоРядок макросу, існуючий текст формули поміщається в дужки, а після нього додається коефіцієнт множення.
Звичайно, ви також можете використовувати макрос для всіх клітинок у таблиці. Для цього перед викликом макросу виберіть усі клітинки таблиці за допомогою комбінації клавіш CTRL A.
