| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60237) |
| -- 作者：发财 -- 发布时间：2014/11/20 16:07:00 -- 计算 Sheet9(n,7).Value = Sheet9(n,8).Value - Sheet1(n,8).Value 该代码为什么出现错误？
|
| -- 作者：发财 -- 发布时间：2014/11/20 16:14:00 -- Conversion from string "" to type \'Double\' is not valid. |
| -- 作者：有点甜 -- 发布时间：2014/11/20 16:15:00 -- Sheet9(n,7).Value = val(Sheet9(n,8).Value) - val(Sheet1(n,8).Value) |
| -- 作者：发财 -- 发布时间：2014/11/21 9:38:00 -- 如何使打开的excel表不显示零值？ |
| -- 作者：有点甜 -- 发布时间：2014/11/21 9:53:00 -- 以下是引用发财在2014-11-21 9:38:00的发言：
如何使打开的excel表不显示零值？
循环每一行每一列，设置0为空值 |
| -- 作者：发财 -- 发布时间：2014/11/21 10:18:00 -- With Ws.PageSetup \'设置打印区域 If ws.name = "资产负债表" Then .PrintArea = "A1:I57" \'打印工作表的指定区域 Else If ws.name = "利润及分配表" Then .PrintArea = "A1:I38" \'打印工作表的指定区域 Else If ws.name = "费用表" Then .PrintArea = "A1:G40" \'打印工作表的指定区域 Else If ws.name = "分单位表" Then .PrintArea = "A1:H36" \'打印工作表的指定区域 End If End With |
| -- 作者：发财 -- 发布时间：2014/11/21 10:18:00 -- 在设置打印中有代码可以设置的吗？ |
| -- 作者：有点甜 -- 发布时间：2014/11/21 10:21:00 -- 以下是引用发财在2014-11-21 10:18:00的发言：
在设置打印中有代码可以设置的吗？
设置什么？6楼不就是是么 |
| -- 作者：发财 -- 发布时间：2014/11/21 10:27:00 -- 设置不显示零值。 |
| -- 作者：有点甜 -- 发布时间：2014/11/21 10:31:00 -- 代码
Dim App As New MSExcel.Application |