以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  汇总行如何取整数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122064)

--  作者:实话实说
--  发布时间:2018/7/18 13:43:00
--  汇总行如何取整数
列有小数,汇总行如何取整数

Dim g As New Subtotalgroup \'定义一个新的分组
g.Aggregate = AggregateEnum.sum \'统计类型为求和
g.GroupOn = "*" \'注意总计分组用符号*表示.
g.TotalOn = "销售合计,房租,进货,成本合计"
g.Caption = "合计" \'设置标题
With Tables("周结")
    .SubtotalGroups.Clear() \'清除原有的分组
    .SubtotalGroups.Add(g) \'加入刚刚定义的分组
    .Subtotal() \'生成汇总模式
End With

--  作者:有点甜
--  发布时间:2018/7/18 15:27:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1911.htm

 

http://www.foxtable.com/webhelp/scr/2636.htm

 

http://www.foxtable.com/webhelp/scr/1964.htm

 


--  作者:实话实说
--  发布时间:2018/7/18 16:02:00
--  
没有设及到取整的问题
--  作者:有点甜
--  发布时间:2018/7/18 17:35:00
--  
以下是引用实话实说在2018/7/18 16:02:00的发言:
没有设及到取整的问题

 

你需要统计后取整还是统计的过程中取整?

 

如果统计后取整,直接取整即可;

 

如果是取整后统计,你需要循环每一行取整后合计;或者是,加入表达式列,获取整数。


--  作者:实话实说
--  发布时间:2018/7/18 18:04:00
--  
最后的汇总行取整数
--  作者:有点甜
--  发布时间:2018/7/18 18:06:00
--  
以下是引用实话实说在2018/7/18 18:04:00的发言:
最后的汇总行取整数

 

http://www.foxtable.com/webhelp/scr/1911.htm

 

http://www.foxtable.com/webhelp/scr/1440.htm

 


--  作者:实话实说
--  发布时间:2018/7/18 20:55:00
--  
搞定,谢谢