Question

您好，在我的电子表格中，我想为这些单元格添加一个caluclate on-off按钮：http://prntscr.com/e6rbir

男性总数的公式为：=COUNTIF(E:E, "M")
女性总数的论坛是：=COUNTIF(E:E, "F")
其他总数的公式为：=COUNTIF(E:E, "O")
总计公式为：=SUM(H2:H4)

我想分开按钮，一个用于计算，另一个用于计算。

我将如何做到这一点？

Answer 1

这个宏如何显示你的公式：

Sub AddFormulasOn()
  cells(2,8).Formula = "=COUNTIF(E:E, ""M"")"
  cells(3,8).Formula = "=COUNTIF(E:E, ""F"")"
  cells(4,8).Formula = "=COUNTIF(E:E, ""O"")"
  cells(5,8).Formula = "=SUM(H2:H4)"
End Sub

这个宏删除公式：

Sub AddFormulasOn()
  cells(2,8).Value = ""
  cells(3,8).Value = ""
  cells(4,8).Value = ""
  cells(5,8).Value = ""
End Sub

您也可以将它组合成一个同时执行这两个操作的宏：

Sub AddFormulasOn()
If Application.WorksheetFunction.CountA(Range("H2:H5")) = 0 Then
  cells(2,8).Formula = "=COUNTIF(E:E, ""M"")"
  cells(3,8).Formula = "=COUNTIF(E:E, ""F"")"
  cells(4,8).Formula = "=COUNTIF(E:E, ""O"")"
  cells(5,8).Formula = "=SUM(H2:H4)"
Else
  cells(2,8).Value = ""
  cells(3,8).Value = ""
  cells(4,8).Value = ""
  cells(5,8).Value = ""
End if
End Sub

Answer 2

如何在所有解决方案中没有VBA，没有按钮：

在I2中，放置一个＆＃34; X＆＃34; for On并在Male中放置以下公式

=If(I2="X",COUNTIF(E:E, "M"),"")

其余部分也是如此。

电子表格擅长 - 如何创建一个执行多个公式的按钮

2 个答案: