(已解決)如何同一區塊相同資料標顏色 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » (已解決)如何同一區塊相同資料標顏色

返回列表下一主題上一主題發帖

[發問] (已解決)如何同一區塊相同資料標顏色

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-5-11 12:18 | 顯示全部帖子

回復 1# freeffly

A欄必須要排序

Sub xx()
Dim d As Object
Dim Rng As Range
Columns("A").Interior.ColorIndex = 0
Set d = CreateObject("Scripting.Dictionary")
For Each A In Range("A2:A" & [A65536].End(xlUp).Row)
d(A.Value) = A.Value
Next
Ar = d.Items
For Each A In Range("A2:A" & [A65536].End(xlUp).Row)
For R = 0 To d.Count Step 2
If A = Ar(R) Then
If Rng Is Nothing Then
Set Rng = A
Else
Set Rng = Union(Rng, A)
End If
End If
Next R
Next
Rng.Interior.ColorIndex = 6
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-5-21 13:13 | 顯示全部帖子

回復 4# freeffly
不是列數限制
之前程式稍作修正

Sub xx()
Dim d As Object
Dim Rng As Range
Dim Ar
Columns("A").Interior.ColorIndex = 0
Set d = CreateObject("Scripting.Dictionary")
For Each A In Range("A2:A" & [A65536].End(xlUp).Row)
d(A.Value) = A.Value
Next
Ar = d.Items
For Each A In Range("A2:A" & [A65536].End(xlUp).Row)
For R = 1 To d.Count - 1 Step 2
If A = Ar(R) Then
If Rng Is Nothing Then
Set Rng = A
Else
Set Rng = Union(Rng, A)
End If
End If
Next R
Next
Rng.Interior.ColorIndex = 6
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-5-21 15:24 | 顯示全部帖子

回復 6# freeffly

說明詳見檔案

Test.rar (13.89 KB)

靜思自在 : 不要隨心所欲，要隨心教育自己。

返回列表下一主題上一主題