如题所述
先对复选框【设置控件格式】,设置控制选项卡中的单元格链接到A1
然后选中B1,输入公式,利用A1的值(True/False)来设置B1的值
附件请下载参考
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Worksheets("sheet1").Range("B1").Value = "1"
Else
If CheckBox1.Value = False Then
Worksheets("sheet1").Range("B1").Value = "0"
End If
End Sub
抱歉,上传的附件没办法直接用,你复制一下上面的代码就好了。