使用“窗体”工具中的筛选框,只能使A2单元格显示为“TRUE”或“FALSE”
使用“控件工具箱”工具中的复选框,双击这个筛选框,再设置一个代码就可以实现控制数值了
Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
[a2] = 5
Else
[a2] = 1
End If
End Sub
右击复选框,设置格式,控制,选择一个单元格链接比如D5
然后E5=IF(D5,5,1)就行了
使用窗体控件中的复选框(注意不是vba工具箱中的控件),设置它的控制属性中的单元格链接为A1
A2输入公式
=if(a1,5,1)
PS:自定义A1单元格格式为 ;;; 可以使其中的内容不显示。