在EXCEL里面，应用VBA功能的具体操作：

四个选项都是显示在同一单元格吗？
这是复选框，可多选的，怎么判定呢？
你是单选还是复选？
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A11") = CheckBox1.Caption
Else
Range("A11").ClearContents
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Range("A12") = CheckBox2.Caption
Else
Range("A12").ClearContents
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Range("A13") = CheckBox3.Caption
Else
Range("A13").ClearContents
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
Range("A14") = CheckBox4.Caption
Else
Range("A14").ClearContents
End If
End Sub
'以上为复选情况，以下为单选情况
Private Sub OptionButton1_Click()
If OptionButton1.Visible = True Then
Range("A10") = OptionButton1.Caption
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton1.Visible = True Then
Range("A10") = OptionButton2.Caption
End If
End Sub
Private Sub OptionButton3_Click()
If OptionButton1.Visible = True Then
Range("A10") = OptionButton3.Caption
End If
End Sub
Private Sub OptionButton4_Click()
If OptionButton1.Visible = True Then
Range("A10") = OptionButton4.Caption
End If
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/e723r7xx2.html