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


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

主题：[讨论]关于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纸大的人事报表，往往需要几十个不同的统计数代码，而代码间也还需很多连续与非连续的数据需要累加，所以想到如果能实现表中自设公式，将简化很多繁琐的代码设置与调试。

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
舜风
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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版：引用是否在保存文件代码前加入，就可以？
 回到顶部
帅哥哟，离线，有人找我吗？
舜风
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询