Sorry , 請館長 把前封問題砍掉

var 
  M_FCell_date : varient ;    begin
  M_FCell_date:=Ms_ExcelAP3.cells[M_DD_Row,M_DD_Col].value;  // 取出 execl_A cell 資料
  .
  .
  if 條件A then
    Ms_ExcelAP4.cellsM_DD_Row,M_DD_Col].value:=M_FCell_date; // 存入execl_B cell 資料      .
  .
  if 條件B then
    Ms_ExcelAP4.cells[M_DD_Row,M_DD_Col].value:='*'  M_FCell_date  '*'; // 存入execl_B cell 資料 
 
end;
 
  藍行:可以運作  
  紅行:無法運作      請教 '*' M_FCell_date '*' 程式要如何修正??

一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

Ms_ExcelAP4.cells[M_DD_Row,M_DD_Col].value:='*' String(M_FCell_date) '*'; 試試 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

您好﹗    已將您的前篇發問刪除﹒    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟