如何使用一个旋转按钮更改任意数量的单元格的值？

Question

有许多单元格包含公式 =SUM(A1;A2)，...，=SUM(N1;N2)。

现在我需要一个旋转按钮，可以将所有公式一次更改为=Sum(A1;A2;A3)，...，=SUM(N1;N2;N3)。

每个细胞有12种不同的论坛。

“当然”我的公式非常复杂，这就是解决方案的原因 尽可能抽象，而不是为了解决这个总和论坛问题...

也许这可以通过旋转按钮和包含我不同公式的下拉列表的组合来实现？我对Excel没有任何线索:(

这是怎么做到的？ （不幸的是我不知道VBA）

感谢您的帮助： - ）

Answer 1

如果您的范围可能是顺序的，那么您可以在VBA编辑器中使用以下功能，并将该文件保存为Office-2007-sinceward版本中的Excel Macro Enabled Workbook：

Function AutoRange(rngFrom As Range, rngTo As Integer)
    Dim a As Integer
    Dim r As Range
    Dim cell1, cell2, Rng As Range

    Set cell1 = Cells(rngFrom.Row, rngFrom.Column)
    Set cell2 = Cells(rngFrom.Row + rngTo - 1, rngFrom.Column)
    Set Rng = Range(cell1, cell2)

        For Each r In Rng
            a = a + r
        Next
    AutoRange = a
End Function

该功能可以使用下图中给出的格式，我在这里只使用了4个单元格范围：

您只需要更改绿色指定的Cell值，即您的Range中的单元格顺序向下。如果在更改绿色单元格的值时没有重新计算，只需按Ctrl + Alt + F9即可。试试吧，谢谢......