1. <p>Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
   
2. 
   
3.            If e.shape.name="LBB" AND Range("SelectAll_B").Value = "全选" then
   
4.                              For Each Target As IRange  In Range("SelectArea_B")
   
5.                     If Target.Offset(0,-9).Text <> "" And Target.Offset(0,-1).Text = "赊账" Then
   
6.                                            Target.Value = "√"   
   
7.                                         End If
   
8.                  Next
   
9.                            Range("SelectAll_B").Value = "取消"
   
10.                         Elseif e.shape.name="LBB" AND Range("SelectAll_B").Value = "取消" then
    
11.                            For Each Target As IRange  In Range("SelectArea_B")
    
12.                     If Target.Offset(0,-9).Text <> ""  Then
    
13.                                            Target.Value = ""   
    
14.                                         End If
    
15.                  Next
    
16.                            Range("SelectAll_B").Value = "全选"
    
17.                         ElseIf e.shape.name="LBA" AND Range("SelectAll_A").Value = "全选" then
    
18.                              For Each Target As IRange  In Range("SelectArea_A")
    
19.                     If Target.Offset(0,-11).Text <> "" Then
    
20.                                            Target.Value = "√"   
    
21.                                         End If
    
22.                  Next
    
23.                            Range("SelectAll_A").Value = "取消"
    
24.                         Elseif e.shape.name="LBA" AND Range("SelectAll_A").Value = "取消" then
    
25.                            For Each Target As IRange  In Range("SelectArea_A")
    
26.                     If Target.Offset(0,-11).Text <> "" Then
    
27.                                            Target.Value = ""   
    
28.                                         End If
    
29.                  Next
    
30.                            Range("SelectAll_A").Value = "全选"
    
31. 
    
32.            End if         
    
33.     End Sub'按钮/标签点击事件</p>

复制代码

SelectAll_A,SelectAll_B是全选与取消所在单元格的别名
SelectArea_A,SelectArea_B是全选的区域

VBA打勾

好贴，先收藏，备用

VBA打勾

好贴，先收藏，备用