| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 检测数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104657) |
| -- 作者：发财 -- 发布时间：2017/8/2 16:53:00 -- 检测数据 Char.IsNumber(ws1.cells(n1,3).Formula) 对负数不起作用？ |
| -- 作者：发财 -- 发布时间：2017/8/2 17:16:00 -- 老师，请帮我修改下？
|
| -- 作者：发财 -- 发布时间：2017/8/2 17:39:00 -- ws1.cells(n1,3).Formula.Substring(0,1) <> "=" |
| -- 作者：有点甜 -- 发布时间：2017/8/2 17:45:00 -- 1、msgbox(IsNumeric("-1") )
2、你ws1.cells(n1,3).Formula的值是什么？ |
| -- 作者：发财 -- 发布时间：2017/8/15 15:41:00 -- If ws.name <> "资产负债表" OrElse ws.name <> "利润及分配表" OrElse ws.name <> "费用表" Then ws.delete End If 提示错误？请问老师，当遍历数据表名时，有一个"ONGRGUI" 是否有关？ |
| -- 作者：有点甜 -- 发布时间：2017/8/15 15:44:00 -- If ws.name <> "资产负债表" andalso ws.name <> "利润及分配表" AndAlso ws.name <> "费用表" Then ws.delete
End If
|
| -- 作者：发财 -- 发布时间：2017/8/15 15:53:00 -- 老师，还是不行？ |
| -- 作者：发财 -- 发布时间：2017/8/15 15:57:00 -- 有一个表名ONGRGUI，是什么意思？ |
| -- 作者：发财 -- 发布时间：2017/8/15 15:59:00 -- For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets messagebox.show(ws.name) If ws.name <> "资产负债表" AndAlso ws.name <> "利润及分配表" AndAlso ws.name <> "费用表" Then ws.delete End If Next 其中： messagebox.show(ws.name) 提示第一表名为ONGRGUI，之后就出错了？
|
| -- 作者：有点甜 -- 发布时间：2017/8/15 16:08:00 -- Dim ls As new List(of String) For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets |