以类似的模式将多个功能捆绑在一起

Question

我正在制定预算，而不是excel。我想突出显示一堆并排的行，并对左边的每一行说“＃34;”，使右边的行等于12 *左边的行＃34;左边是月份成本，右边是年份。

如果我更改右侧，我希望左侧改变，如果我改变左侧，我希望改变右侧。我还希望我的其他功能（垂直这些行的总和）不会被损坏。

这可能是一团可能，我可以垂直突出显示20行或更多行并告诉它模式？谢谢

Answer 1

我知道你说过你不认识VBA，如果你知道它很简单，我想我会帮助你。

将其放在VBE中的工作表模块中，以获取预算信息所在的工作表。 Here是有关如何将代码放在工作表模块中的教程。

您可能需要调整的唯一事项是您的实际细胞参考的范围参考（F3：F23和G3：G23）。

Private Sub Worksheet_Change(ByVal Target As Range)

'if monthly data changes
If Not Intersect(Target, Me.Range("F3:F23")) Is Nothing Then

    Application.EnableEvents = False
    Target.Offset(, 1).Value = Target * 12
    Application.EnableEvents = True

End If

'if yearly data changes
If Not Intersect(Target, Me.Range("G3:G23")) Is Nothing Then

    Application.EnableEvents = False
    Target.Offset(, -1).Value = Target / 12
    Application.EnableEvents = True

End If

End Sub