Нужен макрос для выполнения формулы, основанной на ячейке, а не на числе

Question

Я работаю над рабочей книгой по бюджету, и в столбце I (I5-I1135) у меня есть числа, которые мне нужны, чтобы при появлении запроса (например, CTRL C) числа делились на 10, а затем умножались на 12 ..

Пример:

ячейка I5 имеет 3 266 808 долл. США (зациклено на других страницах), и я хочу, чтобы, находясь в этой ячейке, мог нажимать Ctrl C и делить это число на 10, а затем умножать на 12

Если возможно, я бы хотел, чтобы он также возвращался к своему первоначальному номеру по запросу.

Я использую это для сравнения предыдущего 10-месячного года с новым 12-месячным бюджетом, чтобы убедиться, что я смотрю на сравнение яблок с яблоками

Заранее благодарю за любую помощь, которую вы можете предложить

Answer 1

Первый запуск этого макроса "расширит" значения, второй запуск восстановит их:

Dim FlipFlop As Boolean
    Sub dural()
    Dim fac As Double, ten As Double, twelve As Double
    ten = 10
    twelve = 12
    If Not FlipFlop Then
        fac = twelve / ten
    Else
        fac = ten / twelve
    End If
    For i = 5 To 1135
        v = Cells(i, "I").Value
        If v <> "" Then
            Cells(i, "I").Value = v * fac
        End If
    Next
    FlipFlop = Not FlipFlop
End Sub