Foxtable(狐表)用户栏目专家坐堂 → EXCEL报表统计选定行数据


  共有11111人关注过本帖树形打印复制链接

主题:EXCEL报表统计选定行数据

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/8/6 9:27:00 [显示全部帖子]

如果没有设置打印范围,那么默认的就是打印选定行。

 

所以换个说法,就是统计已经打印的行,你可以用这个:

http://www.foxtable.com/help/topics/1496.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/8/6 15:52:00 [显示全部帖子]

你没有指定细节区,只能直接统计,而直接统计没有办法只统计选定行的。

用标记和事件吧,从这一节开始看:

http://www.foxtable.com/help/topics/1396.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/8/7 11:57:00 [显示全部帖子]

要统计选定行的地方,不再使用表达式,而是使用标记,例如:  <某某合计>
 
打印报表也不再通过菜单,而是自己做一个按钮:
 
 
Dim Sum As Double
With Tables("表的名称")
     For i as Integer = .TopPosition To .BottomPosition
        Sum = Sum + .Rows(i)("要统计的列")
    Next
End With
Dim Book As New XLS.Book("c:\文件名.xls")
Book.Marks.Add("某某合计", Sum)
Book.Build()
Book.Save("c:\reports\文件名.xls")
Dim Proc As New Process
Proc.File = "c:\reports\文件名.xls"
Proc.Start()

 回到顶部