能否用VBA在4个单元格中实现如同单选按钮的效果

greener2008

请教
详细内容请看附件。

连续4个单元格中，预先通过数据→有效性设置了只能填入“是”和“否”；
想要在同一时间内必须且只能有其中一个单元格的内容显示为“是”，其他3 个单元格的内容为“否”；
显示为“是”的单元格可手工更改。

请行家指导，谢谢。

[ 本帖最后由 greener2008 于 2011-1-13 12:41 编辑 ]

cflood

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("A1:A4"), Target) Is Nothing Then
    If Target = "是" Then
        Range("A1:A4") = "否"
        Target = "是"
    End If
End If
Application.EnableEvents = True
End Sub

greener2008

成功！
谢谢cflood老师！