1. Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs)
   
2.                    ev.GetLock()
   
3.                         '第一组单选
   
4.                         If e.RangeSelection.Intersect(Range("F_1")) IsNot Nothing OrElse e.RangeSelection.Intersect(Range("F_2")) IsNot Nothing OrElse e.RangeSelection.Intersect(Range("F_3")) IsNot Nothing  Then
   
5.                                 range("F_1").ClearContents
   
6.                                 range("F_2").ClearContents
   
7.                                 range("F_3").ClearContents
   
8.                                 e.RangeSelection.cells(0,0).value="√"
   
9.                         End If
   
10.                         '第二组单选
    
11.                         If e.RangeSelection.Intersect(Range("F_4")) IsNot Nothing OrElse e.RangeSelection.Intersect(Range("F_5")) IsNot Nothing OrElse e.RangeSelection.Intersect(Range("F_6")) IsNot Nothing  Then
    
12.                                 range("F_4").ClearContents
    
13.                                 range("F_5").ClearContents
    
14.                                 range("F_6").ClearContents
    
15.                                 e.RangeSelection.cells(0,0).value="√"
    
16.                         End If
    
17. 
    
18.        End Sub'单元格选择后执行的事件

复制代码

单击字段，会打上勾，并且一个问题设置一个组，组内选中字段会打勾，其他字段清空，均为文本型字段

以下是效果图：

1. Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs)
   
2.                    ev.GetLock()
   
3.                         '第一组单选
   
4.                         If e.RangeSelection.Intersect(Range("F_1")) IsNot Nothing OrElse e.RangeSelection.Intersect(Range("F_2")) IsNot Nothing OrElse e.RangeSelection.Intersect(Range("F_3")) IsNot Nothing  Then
   
5.                                 range("F_1").ClearContents
   
6.                                 range("F_2").ClearContents
   
7.                                 range("F_3").ClearContents
   
8.                                 e.RangeSelection.cells(0,0).value="√"
   
9.                         End If
   
10.                         '第二组单选
    
11.                         If e.RangeSelection.Intersect(Range("F_4")) IsNot Nothing OrElse e.RangeSelection.Intersect(Range("F_5")) IsNot Nothing OrElse e.RangeSelection.Intersect(Range("F_6")) IsNot Nothing  Then
    
12.                                 range("F_4").ClearContents
    
13.                                 range("F_5").ClearContents
    
14.                                 range("F_6").ClearContents
    
15.                                 e.RangeSelection.cells(0,0).value="√"
    
16.                         End If
    
17. 
    
18.        End Sub'单元格选择后执行的事件

复制代码

单击字段，会打上勾，并且一个问题设置一个组，组内选中字段会打勾，其他字段清空，均为文本型字段

以下是效果图：