- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]Excel报表输出显示的内容? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73512)
-- 发布时间：2015/8/20 14:17:00
-- [求助]Excel报表输出显示的内容?
此主题相关图片如下：qq图片20150820140557.jpg
如上图,是单位员工月考勤数据,第四列开始,设置了列的数据字典,值为"单精度小数",显示为"勾".
请老师指点,如何让Excel报表输出时不是值而是显示的"勾"呢?
-- 发布时间：2015/8/20 14:21:00
--
<iif([某列] = 1, "勾", "叉")>
-- 发布时间：2015/8/20 22:04:00
-- 回复：（大红袍）<iif([某列] = 1, "勾", "叉")>...
代码加到何处?Execl模板文件中吗?这行不通呀?
此主题相关图片如下：qq图片20150820220245.png
-- 发布时间：2015/8/20 22:06:00
--
每一列，都要写上面的代码。
-- 发布时间：2015/8/20 22:25:00
-- 回复：（大红袍）每一列，都要写上面的代码。
此主题相关图片如下：qq图片20150820222117.png
-- 发布时间：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")
-- 发布时间：2015/8/20 22:49:00
-- 回复：（大红袍）你可以写代码设置。?Dim Bo...
十分感谢"大红袍"老师的指点.问题完美解决.
更正一个小问题,去掉一个“)”,加上“[]”
Dim Book As New XLS.Book("d:\\test.xls") Next |