以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  生成EXCEL统计报表的时候怎么去除为0的值?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11039)

--  作者:dark272710
--  发布时间:2011/7/5 13:36:00
--  生成EXCEL统计报表的时候怎么去除为0的值?

做一个简单分类计数的报表。

但是因为类目很多10*15的样子

 

单元格里的公式我是这样写的

[$总表,count(时间),(运维费用类型=\'安全防盗设施运维\' and 上级单位=\'市北配送中心\')]

 

但是有些项目是空的,如果全是0的话会显得太杂乱,想要做出这样的效果:如果数目为0就空着,怎么实现呢~~


--  作者:hhbb
--  发布时间:2011/7/5 14:18:00
--  
在Excel设置储存条件为<>0
--  作者:狐狸爸爸
--  发布时间:2011/7/5 14:51:00
--  
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls") \'打开模板
Book.Build() \'生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For r As Integer = 0 To Sheet.Rows.Count - 1
    For c As Integer = 0 To Sheet.Cols.Count - 1
        If sheet(r,c).Value.Tostring = "50" Then
            sheet(r,c).value = Nothing
        End If
    Next
Next
Book.Save("c:\\reports\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
Proc.Start()

--  作者:dark272710
--  发布时间:2011/7/5 15:21:00
--  

感谢一楼~~~EXCEL好多都忘记了。。

 

右键单元格-单元格格式-自定义

设置成这样就行了~

[=0]"";G/通用格式

 

 

狐狸大大的这个。。输出后还是有0的~~


--  作者:狐狸爸爸
--  发布时间:2011/7/5 15:27:00
--  

呵呵,手误。

 

If sheet(r,c).Value.Tostring = "50" Then

 

改为:

 

If sheet(r,c).Value.Tostring = "0" Then

 

就没有0了


--  作者:hhbb
--  发布时间:2011/7/5 15:32:00
--  
这样简单些:

图片点击可在新窗口打开查看此主题相关图片如下:00.png
图片点击可在新窗口打开查看