Ето как прикрепяте фактор към всяка формула
Ако промените данните в таблиците си в световен мащаб, можете да направите увеличение или намаляване на цените или други корекции на изчисленията със светкавична скорост.
Можете да добавите фактор към всички формули в списъците си. Макросът решава тази задача и придава коефициент на умножение към всички формули в избрана област от данни. По този начин можете бързо и ефективно да адаптирате ценови листи и други подобни към новите условия.
Следващата фигура показва такава таблица. В клетки В1 има константи и формула в клетка В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, преди да извикате макроса.
