……………………
獲取區域cArea、日期dDate和顏色nColor（通過ncolor = activatecall獲取值。interior.colorindex）。
工作表2使活動
定位行號nRow
細胞（nRow，3）。使活動
ActiveCell。價值=關心a
細胞（nRow，4）。使活動
ActiveCell。值=日期
細胞（nRow，5）。使活動
ActiveCell。Interior.ColorIndex = nColor