Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
全局表事件代码如下:
'右下脚计算圆整整数
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