-- 作者:qhczy
-- 发布时间:2010/11/22 13:17:00
--
全局表事件代码如下:
\'右下脚计算圆整整数 Dim Sum,Average,Count As Integer With CurrentTable Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol) Average = .Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol) Count = .Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol) End With StatusBar.Message3 =" 累计:" & sum & " 平均:" & Average & " 计数:" & Count
|