標題: [發問] Excel配合VBA顯示紅色與綠色三角型於同一格 [打印本頁]

---

作者: aaaparadise    時間: 2010-8-29 20:44     標題: 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

我想應該寫的不好，有沒有更好的判斷方式？謝謝。

---

作者: aaaparadise    時間: 2010-8-30 20:53

回復 1# aaaparadise

我再補充一個問題好了。

我使用的是寶x的系統，DDE匯入Excel至Sheet 1資料時間為08:45:00至13:46:00，資料只會存在於A2∼L2，並不會自動往下，A3∼L3這樣增長。

Sheet 1
注解欄位：A1∼L1
資料欄位：A2∼L2

時間為08:45:59
當Sheet 1的K2欄位變化的時候，能將Sheet 1的A2∼L2複製一份至Sheet 2的B2∼M2並且Sheet 2的B2顯是08:45:59，這筆資料是按照一分鐘內的最後一個資料列出
，並且以此類推當進入第二分鐘的時候，原來的Sheet 2所有B2∼M2的資料會往下移動變成B3∼M3，並且Sheet 1的A2∼L2資料會轉移至Sheet 2的B2∼M2，至於Sheet 2的
A2時間08:45:59會移動至A3，而原先的A2則是變成08:46:59這樣。

不知道誰能幫幫忙，或者給點方向提醒提醒，謝謝。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)