[發問] 新手發問

s13983037

小弟想請教各位高手 一個小問題
如圖中所示 我想讓A1值 這個值 或C1 這個值 重覆的話 顏色不為相同
A1或C1這個值 只是示意 並不表示資料中 都是A1或C1
由於數量可能有好幾百筆以上 所以...請不要教我用設定格式化
因為每次產出的值都不同 麻煩各位高手了..

luhpro

小弟想請教各位高手 一個小問題
如圖中所示 我想讓A1值 這個值 或C1 這個值 重覆的話 顏色不為相同
A1或 ...
s13983037 發表於 2014-9-9 20:38

1. Sub nn()
   
2.   Dim lRow&
   
3.   Dim vD
   
4.   
   
5.   Set vD = CreateObject("Scripting.Dictionary")
   
6.   lRow = 1
   
7.   Do While Cells(lRow, 1) <> ""
   
8.     With Cells(lRow, 1)
   
9.       If vD(CStr(.Value)) <> "" Then
   
10.         .Interior.ColorIndex = 4
    
11.       Else
    
12.         vD(CStr(.Value)) = lRow
    
13.       End If
    
14.     End With
    
15.     lRow = lRow + 1
    
16.   Loop
    
17. End Sub

複製代碼

s13983037

luhpro 發表於 2014-9-9 23:30

luhpro 大大你好 我想用 ....Interior.ColorIndex = x當作變數 每當發現同一總類資料重複使用 紅色 另一種類用藍色 會一直累加變成多種顏色
之類的 這個可行嗎 圖如下 對VBA不甚了解 麻煩大大了

下載 (1.72 KB)
附圖A

2014-9-9 23:49

s13983037

回復 2# luhpro


    luhpro 大大你好 我想用 ....Interior.ColorIndex = x當作變數 每當發現同一總類資料重複使用 紅色 另一種類用藍色 會一直累加變成多種顏色
之類的 這個可行嗎 圖如下 對VBA不甚了解 麻煩大大了

luhpro

luhpro 大大你好 我想用 ....Interior.ColorIndex = x當作變數 每當發現同一總類資料重複使用 紅色 另 ...
s13983037 發表於 2014-9-9 23:50

不建議.

若你想這樣用,
1. Excel VBA 的 ColorIndex 的數值本身並不規律,
(看起來並不像是RGB深淺值變動量的組合,而像是固定的的某個色值與序號的對應關係, 所以不容易出現你所構想的那種效果)
有可能出現看起來顏色差不多,
但數值卻不同的情形.
2. 有底色與文字顏色差異過小(甚至相同)導致文字不明顯的問題.

當然, 有個 RGB 函數可以達成想要的色碼組合,
例如 : [A1].Interior.Color=RGB(255,127,0)
但還是會有上述 2. 所講到的情形需要考慮.

我曾經也有類似的構思,
就是用不同的鍵值帶入同一個公式,
來自動產生不同的儲存格底色與文字顏色組合,
期望能很方便的區別不同群組的資料.(預期超過50群以上)

但計算結果總是不如預期,
如底下圖形所表現出來的情形.

下載 (363.56 KB)

2014-9-10 22:22

我想過比較可行的方式是利用類似陣列之類的結構直接設好儲存格底色與文字顏色兩者的配對色值.

s13983037

回復 5# luhpro


    luhpro大大 感謝您的解惑 謝謝