☰

需要宏来根据单元格而不是数字执行公式

tag-icon • tag-icon worksheet-function vba macros prompt
需要宏来根据单元格而不是数字执行公式

我正在处理预算工作簿，在第 I 列（I5-I1135）中有一些数字，我需要在提示（例如 CTRL C）下将这些数字除以 10，然后乘以 12。

例子：

单元格 I5 中有 $3,266,808（从其他页面循环获取），我希望在此单元格上按 Ctrl C，将此数字除以 10，然后乘以 12

如果可能的话，我希望它也能在提示时恢复到原来的号码

我用这个来比较前 10 个月和新的 12 个月的预算，以确保我看到的是同类比较

提前感谢您提供的任何帮助

答案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

相关内容