Excel多个控件控制一个单元格

来源：百度知道 编辑：UC知道 时间：2024/05/15 07:19:42
当CheckBox1与CheckBox4被选中时，H7显示数字：1
当CheckBox1与CheckBox5被选中时，H7显示数字：2
当CheckBox2与CheckBox4被选中时，H7显示数字：3
当CheckBox2与CheckBox5被选中时，H7显示数字：4
当CheckBox3与CheckBox4被选中时，H7显示数字：5
当CheckBox3与CheckBox5被选中时，H7显示数字：6
一个CheckBox1对应多个CheckBox作为条件，控制一个单元格

当checkbox1,checkbox2,checkbox3或者checkbox4,checkbox5多选时未作判断,以下代码基本满足你的要求!

Private Sub CheckBox1_Click()
Call sel
End Sub

Private Sub sel()

If CheckBox1.Value And CheckBox4.Value Then
Range("H7").Value = 1
End If

If CheckBox1.Value And CheckBox5.Value Then
Range("H7").Value = 2
End If

If CheckBox2.Value And CheckBox4.Value Then
Range("H7").Value = 3
End If

If CheckBox2.Value And CheckBox5.Value Then
Range("H7").Value = 4
End If

If CheckBox3.Value And CheckBox4.Value Then
Range("H7").Value = 5
End If

If CheckBox3.Value And CheckBox5.Value Then
Range("H7").Value = 6
End If

End Sub

Private Sub CheckBox2_Click()
Call sel
End Sub

Private Sub CheckBox3_Click()
Call sel
End Sub

Private Sub CheckBox4_Click()
Ca