如何使用复选框更改公式答案

【问题标题】：How to use a check box to change a formula如何使用复选框更改公式
【发布时间】：2017-03-14 00:41:30
【问题描述】：

我正在尝试切换公式中包含的数据。如果选中该框，我想在公式中包含一系列单元格。如果未选中该框，我不想在公式中包含数据。我试图使用 VBA 来做到这一点，但我不确定从哪里开始。提前感谢您的帮助！

【问题讨论】：

您可以使用链接单元格blog.contextures.com/archives/2013/07/09/…
您可以在没有 VBA 的情况下执行此操作。只需添加一个链接单元格并在 =IF 中进行测试。
什么类型的复选框 - 表单或 ActiveX ？

【解决方案1】：

您可以在复选框的更改事件中替换单元格/范围的公式。根据下面代码中的逻辑替换单元格和公式值。

Private Sub CheckBox1_Change()

  If CheckBox1.Value Then
    'Checked
    Worksheets("Sheet1").Range("A1").Formula = "=$B$4+$B$10"
  Else
    'Unchecked
    Worksheets("Sheet1").Range("A1").Formula = "=$C$4+$C$10"
  End If

End Sub

【讨论】：