注册 登录
编程论坛 VFP论坛

vfp调用word模板文件生成的表格,其中低于60的数据用红色显示

王咸美 发布于 2018-03-20 15:10, 2933 次点击
现有3个文件:学生成绩表文件chengji20180202.dbf、word模板文件cjmb.docx、程序文件cjdy.prg。
如何修改程序文件cjdy.prg,使生成的表格中低于60用红色显示。望高手相助,万分感谢!!!
只有本站会员才能查看附件,请 登录


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

13 回复
#2
王咸美2018-03-21 08:28
请高手帮忙〈急用〉,万分感谢!!!
#3
wengjl2018-03-21 12:31
  WordTable.Tables.item(1).Cell(k,i).Range.Font.Color =Rgb(255,0,0)
#4
王咸美2018-03-21 13:30
要求生成的word表格第3列至第17列中低于60的数据用红色显示,其他数据默认颜色,代码如何书写?

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

#5
wengjl2018-03-21 14:01
前面加个 IF ??<60


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


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

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

#6
王咸美2018-03-21 14:10
版主见笑了,我是新手,望不吝赐教。多谢!
#7
wengjl2018-03-21 14:28
    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编辑过]

#8
王咸美2018-03-21 17:12
问题已解决,多谢版主!
#9
xs5912222018-03-21 18:32
请楼主散分结贴,因为我也在此参与了
#10
jyliufeng2018-04-13 17:05
结贴是什么意思,给积分吗
#11
yxb823102018-04-18 17:23
我也不知道,同问
#12
xs5912222018-04-19 19:00
发贴默认为20分,结贴就是将这个分发给回答帖子的人,是一种虚拟世界的奖励,每个人在论坛中的等级有一部分是来自这个得分的。
在论坛中混的人,通常是不在乎这个分的,只是一种虚拟世界里的数字游戏罢了
#13
xs5912222018-04-19 19:01
楼主你发现没有:有4位教师的课表是空白的?
#14
jyliufeng2018-04-22 21:32
回复不需要结贴吧,如果需要,怎么结贴?
1