| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 333 人关注过本帖
标题:vfp调用word模板文件生成的表格,其中低于60的数据用红色显示
只看楼主 收藏
王咸美
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2018-1-4
结帖率:70%
  已结贴   问题点数:10  回复次数:12   
vfp调用word模板文件生成的表格,其中低于60的数据用红色显示
现有3个文件:学生成绩表文件chengji20180202.dbf、word模板文件cjmb.docx、程序文件cjdy.prg。
如何修改程序文件cjdy.prg,使生成的表格中低于60用红色显示。望高手相助,万分感谢!!!

[此贴子已经被作者于2018-3-21 14:01编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2018-03-20 15:10
王咸美
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2018-1-4
  得分:0 
请高手帮忙〈急用〉,万分感谢!!!
2018-03-21 08:28
wengjl
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:50
帖 子:1227
专家分:2369
注 册:2007-4-27
  得分:5 
  WordTable.Tables.item(1).Cell(k,i).Range.Font.Color =Rgb(255,0,0)

只求每天有一丁点儿的进步就可以了
2018-03-21 12:31
王咸美
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2018-1-4
  得分:0 
要求生成的word表格第3列至第17列中低于60的数据用红色显示,其他数据默认颜色,代码如何书写?

[此贴子已经被作者于2018-3-21 14:05编辑过]

2018-03-21 13:30
wengjl
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:50
帖 子:1227
专家分:2369
注 册:2007-4-27
  得分:0 
前面加个 IF ??<60


你上传的附件里,那么多的代码都会写(我还不会呢——在不断地学习你的这些代码),加个判断应该不难吧


上面的那一句,我也是到WORD中录制宏,再试试试,才成功的。

[此贴子已经被作者于2018-3-21 14:05编辑过]


只求每天有一丁点儿的进步就可以了
2018-03-21 14:01
王咸美
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2018-1-4
  得分:0 
版主见笑了,我是新手,望不吝赐教。多谢!
2018-03-21 14:10
wengjl
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:50
帖 子:1227
专家分:2369
注 册:2007-4-27
  得分:0 
    WordTable.Tables.item(1).Cell(k,i).Range.Text=WordCellText
    WordTable.Tables.item(1).Cell(k,i).Range.Font.Size=10
    IF  TYPE("WordCellText")="N" and  WordCellText<60 and i>2
      WordTable.Tables.item(1).Cell(k,i).Range.Font.Color =Rgb(255,0,0)
    ENDIF

[此贴子已经被作者于2018-3-21 14:30编辑过]


只求每天有一丁点儿的进步就可以了
2018-03-21 14:28
王咸美
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2018-1-4
  得分:0 
问题已解决,多谢版主!
2018-03-21 17:12
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:16
帖 子:557
专家分:1060
注 册:2009-3-1
  得分:5 
请楼主散分结贴,因为我也在此参与了
2018-03-21 18:32
jyliufeng
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2004-11-9
  得分:0 
结贴是什么意思,给积分吗
2018-04-13 17:05







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050685 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved