[求助]Excel报表输出显示的内容? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Excel报表输出显示的内容?

共有2679人关注过本帖树形打印复制链接主题：[求助]Excel报表输出显示的内容?

wyz20130512

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00

[求助]Excel报表输出显示的内容? 发帖心情

Post By：2015/8/20 14:17:00 [只看该作者]

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

如上图,是单位员工月考勤数据,第四列开始,设置了列的数据字典,值为"单精度小数",显示为"勾".

请老师指点,如何让Excel报表输出时不是值而是显示的"勾"呢?

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/20 14:21:00 [只看该作者]

<iif([某列] = 1, "勾", "叉")>

[此贴子已经被作者于2015/8/20 14:21:02编辑过]

wyz20130512

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（大红袍）<iif([某列] = 1, "勾", "叉")>... 发帖心情

Post By：2015/8/20 22:04:00 [只看该作者]

代码加到何处?Execl模板文件中吗?这行不通呀?

此主题相关图片如下：qq图片20150820220245.png

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/20 22:06:00 [只看该作者]

每一列，都要写上面的代码。

wyz20130512

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（大红袍）每一列，都要写上面的代码。 发帖心情

Post By：2015/8/20 22:25:00 [只看该作者]

此主题相关图片如下：qq图片20150820222117.png

如上图,效果达到了,可得一列一列的设置,共有62列,很繁锁,有更好的方法吗?

[此贴子已经被作者于2015/8/20 22:25:53编辑过]

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/20 22:38:00 [只看该作者]

你可以写代码设置。

Dim Book As New XLS.Book("d:\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For i As Integer = 1 To 31 '向工作表的单元格中设置值
Sheet(4, i*2+2).Value = "<iif(d" & Format(i, "00") & "r_s)=0.5,""√"","""")>"
Sheet(4, i*2+3).Value = "<iif(d" & Format(i, "00") & "r_x)=0.5,""√"","""")>"
Next
book.save("d:\test.xls")

wyz20130512

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（大红袍）你可以写代码设置。?Dim Bo... 发帖心情

Post By：2015/8/20 22:49:00 [只看该作者]

十分感谢"大红袍"老师的指点.问题完美解决.

更正一个小问题,去掉一个“)”,加上“[]”

Dim Book As New XLS.Book("d:\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For i As Integer = 1 To 31 '向工作表的单元格中设置值
Sheet(4, i*2+2).Value = "<iif([d" & Format(i, "00") & "r_s]=0.5,""√"","""")>"
Sheet(4, i*2+3).Value = "<iif([d" & Format(i, "00") & "r_x]=0.5,""√"","""")>"

Next
book.save("d:\test.xls")

[此贴子已经被作者于2015/8/22 20:16:17编辑过]

下一主题 >> << 上一主题

主题：[求助]Excel报表输出显示的内容?