1.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
   
2.         On Error Resume  Next
   
3.                    Dim cel As IRange
   
4.                    Dim s As Decimal
   
5.                    s = 0
   
6.                    For Each cel in e.RangeSelection
   
7.                         s = s + CDec(cel.cells(0,0).value)
   
8.                    next
   
9. 
   
10.            IF e.RangeSelection.Columns.Count > 1 or  e.RangeSelection.Rows.Count > 1 Then  
    
11.                      MessageBox.show("选区合计:" & s.ToString )
    
12.                    End IF
    
13. End Sub'单元格选择后执行的事件
    

复制代码

KB_VBA.rar (3 KB, 下载次数: 19)

2017-3-29 13:18 上传

点击文件名下载附件

好东西，顶一个

好东西，顶一个