Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]关于Excel报表单位格公式的问题


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

主题：[讨论]关于Excel报表单位格公式的问题
帅哥哟，离线，有人找我吗？
舜风
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		[讨论]关于Excel报表单位格公式的问题  发帖心情 Post By：2009/12/21 22:15:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看

Excel报表是否能实现单元格之间用 =SUM(B2:C2) 或 =B2+E7+B11+D19 这样的表内公式？如何实现呢？



如在一张A3纸大的人事报表，往往需要几十个不同的统计数代码，而代码间也还需很多连续与非连续的数据需要累加，所以想到如果能实现表中自设公式，将简化很多繁琐的代码设置与调试。

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2009/12/22 7:52:00 [只看该作者]

以下是引用舜风在2009-12-21 22:15:00的发言：

图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看

Excel报表是否能实现单元格之间用 =SUM(B2:C2) 或 =B2+E7+B11+D19 这样的表内公式？如何实现呢？



如在一张A3纸大的人事报表，往往需要几十个不同的统计数代码，而代码间也还需很多连续与非连续的数据需要累加，所以想到如果能实现表中自设公式，将简化很多繁琐的代码设置与调试。

  所有在狐表生成的报表中,excel原有的函数公式都不能运用.只能在狐表中计算好了,导出.
 回到顶部
帅哥哟，离线，有人找我吗？
舜风
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		  发帖心情 Post By：2009/12/22 9:29:00 [只看该作者]

哎，美中不足，又要设置无数的代码

 回到顶部
帅哥哟，离线，有人找我吗？
lxl
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00 		  发帖心情 Post By：2009/12/22 9:41:00 [只看该作者]

引用下面这个dll
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:microsoft.office.interop.excel.rar


Microsoft.Office.Interop.Excel.Worksheet.Calculate()方法可以重算工作表

 回到顶部
帅哥哟，离线，有人找我吗？
菜鸟foxtable
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级：七尾狐 帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00 		  发帖心情 Post By：2009/12/22 11:01:00 [只看该作者]

图片点击可在新窗口打开查看以下是引用lxl在2009-12-22 9:41:00的发言：
引用下面这个dll
 下载信息  [文件大小：216.6 KB  下载次数：0]
图片点击可在新窗口打开查看点击浏览该文件:microsoft.office.interop.excel.rar


Microsoft.Office.Interop.Excel.Worksheet.Calculate()方法可以重算工作表

图片点击可在新窗口打开查看好东西，赶紧收藏。。


L版找个时间教教咱们如何写DLL吧？

[此贴子已经被作者于2009-12-22 11:02:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
舜风
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		  发帖心情 Post By：2009/12/22 11:12:00 [只看该作者]

以下是引用lxl在2009-12-22 9:41:00的发言：
引用下面这个dll
 下载信息  [文件大小：216.6 KB  下载次数：0]
图片点击可在新窗口打开查看点击浏览该文件:microsoft.office.interop.excel.rar


icrosoft.Office.Interop.Excel.Worksheet.Calculate()方法可以重算工作表

L版：引用是否在保存文件代码前加入，就可以？
 回到顶部
帅哥哟，离线，有人找我吗？
lxl
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00 		  发帖心情 Post By：2009/12/22 11:17:00 [只看该作者]

以下是引用菜鸟foxtable在2009-12-22 11:01:00的发言：

图片点击可在新窗口打开查看好东西，赶紧收藏。。


L版找个时间教教咱们如何写DLL吧？

[此贴子已经被作者于2009-12-22 11:02:10编辑过]

呵呵，这个dll不是我写的，是微软提供的
里面有很多有用的类，可以容易、精确的控制EXCEL
比如禁止复制、粘贴，添加保护密码等等
 回到顶部
帅哥哟，离线，有人找我吗？
lxl
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00 		  发帖心情 Post By：2009/12/22 11:24:00 [只看该作者]

以下是引用舜风在2009-12-22 11:12:00的发言：

L版：引用是否在保存文件代码前加入，就可以？

把文件复制到foxtable目录下，
管理项目→外部引用→浏览→选中这个dll→添加
点命名空间选项卡→输入命名空间“Microsoft.Office.Interop.Excel”→输入自己的别名，如:mExcel
下面就可以根据情况写代码了。比如
Dim mApp As New mExcel.Application
Dim mBook As mExcel.Workbook = mApp.Workbooks.Open(ProjectPath  & "reports\" & Name  & ".xls")
Dim mSheet As mExcel.Worksheet = mBook.Sheets.Item(1)
mSheet.Calculate()
mBook.Save()
mApp.Visible = True
 回到顶部
帅哥哟，离线，有人找我吗？
reachtone
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：版主 帖子：1991 积分：19363 威望：0 精华：20 注册：2008/9/2 10:09:00 		  发帖心情 Post By：2009/12/22 11:49:00 [只看该作者]

这个好，收藏了！
另请教lxl版主，能不能根据excel的指定区域数据自动生成分析图呢？一直想认真研究一下vba，但实在是抽不出时间。
foxtable的图表控件无法完成标示数据的拖拽，很是头疼啊。
如果象8楼的代码一样，也可以执行一个方法就能自动选定区域、并生成图表就厉害了！

 回到顶部
帅哥哟，离线，有人找我吗？
舜风
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级：小狐 帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00 		  发帖心情 Post By：2009/12/22 11:51:00 [只看该作者]

以下是引用lxl在2009-12-22 11:24:00的发言：

把文件复制到foxtable目录下，
管理项目→外部引用→浏览→选中这个dll→添加
点命名空间选项卡→输入命名空间“Microsoft.Office.Interop.Excel”→输入自己的别名，如:mExcel
下面就可以根据情况写代码了。比如
Dim mApp As New mExcel.Application
Dim mBook As mExcel.Workbook = mApp.Workbooks.Open(ProjectPath  & "reports\" & Name  & ".xls")
Dim mSheet As mExcel.Worksheet = mBook.Sheets.Item(1)
mSheet.Calculate()
mBook.Save()
mApp.Visible = True

好似我操作不对？

问：已生成报表文件中的函数公式已经不存在，现再次打开并 mSheet.Calculate() 应该不成立吧

[此贴子已经被作者于2009-12-22 11:51:50编辑过]
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询