vba - 动态添加公式到 Excel 单元格

Question

有没有办法(VB？)将公式动态添加到 Excel 单元格？

我有一个条件为 true 和 false 的单元格，它们根据复选框进行更改。

我还有另一个单元格，里面有一个公式。 如果未选中该复选框，则应使用此公式。如果该复选框被选中，那么用户应该能够手动插入值(没有任何公式提示)。因此公式不应该在那里。

我正在考虑一种解决方案，如果未选中复选框，我会将公式添加到单元格中，然后如果选中该复选框，那么我将清除单元格。

这怎么能做到呢？我对 Excel 编码和 VBA 不太熟悉。

Answer 1

好的，您需要 TRUE/FALSE 单元格上的触发器来执行下一个 VBA 代码，右键单击工作表名称，然后单击“查看代码”并输入以下代码:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A5")) Is Nothing Then 'define adress of your True/Flase cell
 If Target.Cells.Value = False then
 Range("B5").formula = "=enter your formula" 'define adress for cell with formula aswell
 else 
 Range("B5").value = ""
 end if
end if
end sub