返回列表 上一主題 發帖

[發問] DDE輸出資料後做即時四則運算的問題!!

bugsfamily

帖子
17 
主題
3 
精華
0 
積分
33 
點名
0  
作業系統
XP SP3 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2011-4-30 
最後登錄
2012-12-21 
1# 跳轉到 »
發表於 2012-9-22 20:24 | 顯示全部帖子
If 今天價 > 昨天價 Then
        range("A1").Value = 昨天價 - 今天價
        range("A1").Font.Color = RGB(0, 100, 20)
Else
        range("A1").Value = 昨天價 - 今天價
        range("A1").Font.Color = RGB(255, 0, 0)
End If

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題