Excel控制高难度问题。

Question

怎樣用Delphi控制Excel實現下面的效果:在Excel的一個單元格中可輸入如下數值:(-1,-2,-3,0..100)   輸入-1,顯示為"免考"   輸入-2,顯示為"缺考"   輸入-3,顯示為"退選"   如果輸入的數值大于0而小于60,則字體顏為紅色,   如果輸入的數值大于或等于60而小于或等于100,則字體顏為黑色,   現在基本可實現顏色控制
 
  即:Cells[1,1].NumberFormatLocal:='[黑色][>=60]##0;[紅色][<60]##0;'  或者:Cells[1,1].NumberFormatLocal:='[=-1]"退選";[=-2]"免考";'  關鍵是怎樣將以上條件合并起來.  期待高手的回答.

Answer 1

Cells[1,1].NumberFormatLocal.add('[黑色][>=60]##0;[紅色][<60]##0;');
Cells[1,1].NumberFormatLocal.add('[=-1]"退選";[=-2]"免考";');
试试

Answer 2

case i of
-1:
-2:
-3:
1..60:
61..100:
end;

Answer 3

konhon (优华无限) 你有散分么！
哈哈！