- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求自动计算代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37746)
-- 发布时间：2013/7/10 10:03:00
-- [求助]求自动计算代码
此主题相关图片如下：求和.jpg
此主题相关图片如下：自动计算.jpg
在菜单配置栏 做个 自动计算按钮 选数值列 在右下角显示 求和
这个代码如何写？
-- 发布时间：2013/7/10 10:10:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=34487&skin=0
-- 发布时间：2013/7/10 10:45:00
--
统计当前表选定区域的累积值:
Dim
Sum As DoubleWith CurrentTable
Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
OutPut.Show(Sum)
这代码放在哪？
-- 发布时间：2013/7/10 10:56:00
--
AfterSelChange
选择不同的单元格后执行，也就是表的RowSel、ColSel属性发生变化后执行。
-- 发布时间：2013/7/10 10:57:00
--
AfterSelRangeChanged
-- 发布时间：2013/7/10 11:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动计算.table |
帮忙看下，自动计算为什么不对呢？谢谢！
-- 发布时间：2013/7/10 11:35:00
--
我看见你在论坛也挺活跃的呀.应该也挺勤奋学习的. 怎么会连 output.show的用处都没搞明白?
-- 发布时间：2013/8/18 21:17:00
--
7楼的在用户菜单下，还是不能自动计算？
-- 发布时间：2013/8/18 21:38:00
--
在系统主菜单 systemidle事件 加入代码
Dim Sum As Double
With CurrentTable
Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
StatusBar.Message3 = sum