- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Office 2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- TP
- 註冊時間
- 2010-8-26
- 最後登錄
- 2010-8-31
|
[發問] Excel配合VBA顯示紅色與綠色三角型於同一格
各位大大好，請隔空抓藥一下。
如何能夠顯是說"▲▼"or "▼▲"是兩種顏色，在同一個格子。
上面三角形成為紅色，下面三角型成為綠色。
公式判斷的方式為：
1.昨收<今開,今開-昨收,顯示▲紅色數值為正數
2.昨收>今開,今開-昨收,顯示▼綠色數值為負數
3.昨收>今開且今開>今收,今收-今開▼▼數值為正數
4.昨收<今開且今開<今收,今收-今開▲▲數值為負數
5.昨收>今開且今開<今收,今收-今開▼▲數值為負數
6.昨收<今開且今開>今收,今收-今開▲▲數值為正數
我的Sheet 資料
擷取時間 代號 名稱 時間 買進 賣出 昨收 開盤 最高 最低 成交價 漲跌 幅度% 昨開 相差點數 今開 相差點數
14:59:23 7799 台指近 7658 7660 7661 9400 7676 7605 9500 37 0.49 ▼ -2 ▼▲ -100
19:12:08 7799 台指近 7658 7660 7622 7611 7676 7605 40 37 0.49
我的程式碼，請參考。
Sub TNTN()
If Range("H2").Value > Range("K2").Value Then
Range("Q2").Value = Range("H2").Value - Range("K2").Value
Range("P2").Value = "▲▼"
Range("P2").Font.ColorIndex = 4
Else
Range("Q2").Value = Range("H2").Value - Range("K2").Value
Range("P2").Value = "▼▲"
Range("P2").Font.ColorIndex = 3
End If
End Sub
我想應該寫的不好，有沒有更好的判斷方式？謝謝。 |
|
發表於 2010-8-29 20:44
| 
