![需要宏来根据单元格而不是数字执行公式](https://linux22.com/image/1386714/%E9%9C%80%E8%A6%81%E5%AE%8F%E6%9D%A5%E6%A0%B9%E6%8D%AE%E5%8D%95%E5%85%83%E6%A0%BC%E8%80%8C%E4%B8%8D%E6%98%AF%E6%95%B0%E5%AD%97%E6%89%A7%E8%A1%8C%E5%85%AC%E5%BC%8F.png)
我正在处理预算工作簿,在第 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