主题：汇总表问题

对于生成的汇总表,如果光标焦点在本汇总表,操作出错,焦点移开汇总表则操作正常.出错原因在如下代码,而这个代码是需要的
菜单事件_AfterSelRangeChange
 
'右下角显示表的区域计算
Dim Sum,Average,Count,Max,Min 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)
    Max = CurrentTable.Aggregate(AggregateEnum.Max, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Min = CurrentTable.Aggregate(AggregateEnum.Min, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
StatusBar.Message3 ="  累计:" & Cstr(sum) & "  平均:" & Cstr(Average) & "  计数:"  & Cstr(Count) & "  最大:"  & Cstr(Max) & "  最小:"  & Cstr(Min) & " "

 

此主题相关图片如下：12.gif

我试了一下将表的焦点移开到其它控件,没有效果,用代码移到其它不表(不可见)也没有效果, 

 上传具体例子测试。

在菜单事件_AfterSelRangeChange中判断一下（用变量或直接判断提示中的错误）
以屏蔽错误

 

 

可能是你在按钮点击的时候，有一个类似清空表之类的动作，引发单元格选择区间的变化

 

用变量，点击按钮时阻止事件的发生，代码运行结束后再启用事件