Dim Sum,Average,Count As Double With e.Table 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 = " 累计:" & Cstr(sum) & "平均:" & Cstr(Average) & " 计数:" & Cstr(Count) & " " 我测试没问题,可以显示啊
|