主题：系统右下角计算问题

按钮中可以，但不知道应该放在那个事件中（好像没有选中行标题的事件AfterSelectColsName）
Dim Sum,Average,Count As Double
With CurrentTable
    Sum = CurrentTable.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Average = CurrentTable.Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Count = CurrentTable.Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With          '把Label2、Label3都删除掉

Forms("窗口1").Controls("Label1").text ="    累计:" & Cstr(sum) & "    平均:" & Cstr(Average) & "    计数:"  & Cstr(Count) & " "

试过了：放在AfterSelRangeChange事件中即可。