帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-9-9 20:38 | 只看該作者

[發問] 新手發問

本帖最後由 s13983037 於 2014-9-9 20:40 編輯

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

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2014-9-9 23:30 | 只看該作者

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

Sub nn()
Dim lRow&
Dim vD
Set vD = CreateObject("Scripting.Dictionary")
lRow = 1
Do While Cells(lRow, 1) <> ""
With Cells(lRow, 1)
If vD(CStr(.Value)) <> "" Then
.Interior.ColorIndex = 4
Else
vD(CStr(.Value)) = lRow
End If
End With
lRow = lRow + 1
Loop
End Sub

複製代碼

TOP

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

3^#

發表於 2014-9-9 23:50 | 只看該作者

本帖最後由 s13983037 於 2014-9-9 23:51 編輯

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

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

TOP

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

4^#

發表於 2014-9-10 22:08 | 只看該作者

回復 2# luhpro

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

ScreenShot00036.png (20.58 KB)

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

5^#

發表於 2014-9-10 22:22 | 只看該作者

本帖最後由 luhpro 於 2014-9-10 22:24 編輯

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群以上)

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

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

TOP

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

6^#

發表於 2014-9-10 23:24 | 只看該作者

回復 5# luhpro

luhpro大大感謝您的解惑謝謝

TOP