1.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
   
2.          AW.WorkbookSet.GetLock()
   
3. 
   
4.              Dim Range As IRange = AW.ActiveWorksheet.Range
   
5.                     Dim RngA  As IRange = e.RangeSelection.Intersect(Range("SelectArea_A"))
   
6.                                             Dim RngB  As IRange = e.RangeSelection.Intersect(Range("SelectArea_B"))
   
7. 
   
8.             If Not RngA Is Nothing Then
   
9.                       For Each Target As IRange  In RngA
   
10.                      Target.Value = IIf(Target.Value = "√", "", "√")
    
11.                  Next
    
12.             End If
    
13.             If Not RngB Is Nothing Then
    
14.                   For Each Target As IRange  In RngB
    
15.                                                               IF Target.Offset(0,-1).Value = "赊账"  Then
    
16.                            Target.Value = IIf(Target.Value = "√", "", "√")
    
17.                                                                Else：
    
18.                         Target.Value = IIf(Target.Value = "", "", "")
    
19.                        End  If
    
20.                  Next
    
21.              End If
    
22. 
    
23.                 AW.WorkbookSet.ReleaseLock()
    
24.         End Sub'单元格选择后执行的事件

复制代码

SelectArea_A,SelectArea_B是两个打勾的区域，可以替换为你自己的区域别名

1.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
   
2.          AW.WorkbookSet.GetLock()
   
3. 
   
4.              Dim Range As IRange = AW.ActiveWorksheet.Range
   
5.                     Dim RngA  As IRange = e.RangeSelection.Intersect(Range("SelectArea_A"))
   
6.                                             Dim RngB  As IRange = e.RangeSelection.Intersect(Range("SelectArea_B"))
   
7. 
   
8.             If Not RngA Is Nothing Then
   
9.                       For Each Target As IRange  In RngA
   
10.                      Target.Value = IIf(Target.Value = "√", "", "√")
    
11.                  Next
    
12.             End If
    
13.             If Not RngB Is Nothing Then
    
14.                   For Each Target As IRange  In RngB
    
15.                                                               IF Target.Offset(0,-1).Value = "赊账"  Then
    
16.                            Target.Value = IIf(Target.Value = "√", "", "√")
    
17.                                                                Else：
    
18.                         Target.Value = IIf(Target.Value = "", "", "")
    
19.                        End  If
    
20.                  Next
    
21.              End If
    
22. 
    
23.                 AW.WorkbookSet.ReleaseLock()
    
24.         End Sub'单元格选择后执行的事件

复制代码

SelectArea_A,SelectArea_B是两个打勾的区域，可以替换为你自己的区域别名