转动EXCEL将负数标记为红色，如何解决？

转动EXCEL将负数标记为红色

设置日期YMD

开启世纪

关闭安全设置

使用tjbbzz输入0

订购号+部件号TAG sy的索引

总订单号+部件号至温度

选择20

使用温度

ALTER TABLE临时添加业务员c（10）

ALTER TABLE临时添加交货日期c（10）

ALTER TABLE临时添加计划编号n（10）

更新临时SET销售人员= tjddbzzbf. 销售人员，交货日期= tjddbzzbf. 交货日期，计划数量= tjddbzzbf. 来自tjddbzzbf的计划数量WHERE ALLTRIM（临时订单号）== ALLTRIM（tjddbzzbf. 订单号）

使用编织计划数量替换所有内容以编织<计划数量

从TEMP INTO dbf / tmp1 << / p中选择报告日期，销售人员，交货日期，订单号，部门编号，计划数量，织布，下差excel负数显示红色，袖口，手缝，洗涤水，车床，完成检查

临时使用

选择1

选择tmp1

ncow =记帐（）&&统计记录

选择*从tmp1转换为光标FOXTABLE

CEXCELFILE = PUTFILE（“＆另存为: ”，“ tmp1.xlsx”，“ xlsx”）&&另存为2007EXCEL版本

如果为空（CEXCELFILE）

返回

ENDIF

选择FOXTABLE

OEXCELSHEET = GETOBJECT（“”，“ Excel.Sheet”）

如果不是TYPE（“ oExcelSheet”）=“ O”

= MESSAGEBOX（“ Excel对象创建失败，程序将中止！”，16，“错误”）

返回

ENDIF

************************************************ ***

OEXCEL = CREATEOBJECT（“ excel.application”）

有OEXCEL

.WORKBOOKS.ADD

.SHEETS（“ Sheet1”）. 选择

.SHEETS（“ Sheet1”）. NAME =“报告”

.VISIBLE = .F.

.DISPLAYALERTS = .F.

.ActiveWindow.DisplayZeros = .F.

.CELLS.SELECT

.SELECTION.FONT

.NAME =“宋体”

.SIZE = 10

ENDWITH

ENDWITH

DLINE_S =“ A1: ” + CHR（ASC（“ A”）+ FCOUNT（）-1）+“ 1”

有OEXCEL

.CELLS（1，1）.VALUE =“生产每日报告”

.ACTIVESHEET.RANGE（DLINE_S）.MERGE

.ACTIVESHEET.ROWS（1）.ROWHEIGHT = 40

.RANGE（DLINE_S）.SELECT

选择.

.FONT.NAME =“宋体”

.FONT.SIZE = 24

.FONT.BOLD = .T.

.HORIZONTALALIGNMENT = 3

.VERTICALALIGNMENT = 2

ENDWITH

ENDWITH

ROW = 2

JLS =转换（记录数（）+行）

RECROW = TRANSFORM（ROW + 1）

ROW_BROWSE = 30

OEXCEL.ACTIVESHEET.ROWS（ROW）.ROWHEIGHT = 24

OEXCEL.ACTIVESHEET.ROWS（'＆RECROW .:＆JLS'）. ROWHEIGHT = 20

DLINE_S =“ A” +转换（ROW）+“: ” + CHR（ASC（“ A”）+ FCOUNT（）-1）+转换（ROW）

OEXCEL.ACTIVESHEET.RANGE（DLINE_S）.BORDERS（3）.LINESTYLE = 9

对于I = 1进行计数（）

OEXCEL.ACTIVESHEET.COLUMNS（I）.COLUMNWIDTH = IIF（LEN（FIELD（I））> FSIZE（FIELD（I）），LEN（FIELD（I））excel负数显示红色，FSIZE（FIELD（I）））

OEXCEL.CELLS（ROW，I）.VALUE = FIELD（I）

OEXCEL.ACTIVEWORKBOOK.SHEETS（1）.CELLS（ROW，I）.HORIZONTALALIGNMENT = 3

ENDFOR

OEXCEL.RANGE（DLINE_S）.SELECT

OEXCEL.SELECTION.BORDERS（-4107）.LINESTYLE = 1

扫描

如果MOD（RECNO（），ROW_BROWSE）= 1

DLINE_X =“ A” +变形（RECNO（））+“: ” + CHR（ASC（“ A”）+ FCOUNT（）-1）+变形（RECNO（））

ENDIF

对于I = 1进行计数（“ FOXTABLE”）

MFIELD =字段（I）

等待窗口NOWAIT转换（RECNO（））+“ /” +转换（RECCOUNT（））

OEXCEL.CELLS（RECNO（）+ ROW，I）.VALUE =＆MFIELD

ENDFOR

如果MOD（RECNO（），ROW_BROWSE）= 0

DLINE_X =“ A” +变形（RECNO（）+ ROW）+“: ” + CHR（ASC（“ A”）+ FCOUNT（）-1）+变形（RECNO（）+ ROW）

OEXCEL.ACTIVESHEET.RANGE（DLINE_X）.BORDERS（4）.LINESTYLE = 9

ENDIF

如果RECNO（）= RECCOUNT（）

DLINE_X =“ A” +转换（RECCOUNT（）+ ROW）+“: ” + CHR（ASC（“ A”）+ FCOUNT（）-1）+转换（RECCOUNT（）+ ROW）

OEXCEL.ACTIVESHEET.RANGE（DLINE_X）.BORDERS（4）.LINESTYLE = 9

ENDIF

ENDSCAN

nCols = fcount（）

选择= OEXCEL.Range（OEXCEL.Cells（2,1），OEXCEL.Cells（ncow + 2，nCols））&&将范围设置为包含数据的整个区域

Selection.font.size = 9 &&字体大小为9

Selection.font.bold = .t. &&粗体

Selection.horizo​​ntalAlignment = 3 &&水平居中

OEXCEL.VISIBLE = .F.

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shouji/article-157452-1.html