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

Question

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

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

Пример:

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

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

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

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

-1

worksheet-function vba macros prompt

Источник

Jennifer 20 ноя '13 в 16:55

1 ответ

Другие вопросы по тегам worksheet-function vba macros prompt

Gary's Student 20 ноя '13 в 18:33 2013-11-20 18:33 · Answer 1 · 2013-11-20 18:33

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

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