[發問] 請教不同欄重複的資料給予相同底色

bhsm

請教高手：如附檔，原來資料如工作表1，想呈現如工作表2的情形，即B欄與E欄若有相符者以相同顏色標註，顏色可自由選定，請教要如何做?謝謝
TEST.rar (7.35 KB)

TEST
下載次數: 6

2015-11-4 18:00

准提部林

Sub TEST()
Dim xR As Range, xF As Range
For Each xR In [B:B].SpecialCells(xlCellTypeConstants, 3)
　　Set xF = [E:E].Find(xR, Lookat:=xlWhole)
　　If Not xF Is Nothing Then xF.Interior.ColorIndex = xR.Interior.ColorIndex
Next
End Sub

Ｂ欄填什麼色（自行選定），Ｅ欄跟著填同樣顏色～～

bhsm

回復 2# 准提部林
感謝 准提部林大的指導,
請問在執行您的程式時,若給予工作表1的B3(R)底色時,其相對的E6(R)卻不會跟著B3(R)有相同的底色,其他儲存格則沒問題,請問這是甚麼原因?謝謝

bhsm

回復 2# 准提部林
另外請教 准提部林大:
有時給予B欄的底色,對應到E欄顏色會不同,如附檔,請問是甚麼原因.謝謝
TEST1.rar (7.66 KB)

TEST
下載次數: 3

2015-11-4 22:27

准提部林

回復 4# bhsm


我這測試沒問題, 兩個"R"不相同, 一個含有空白字元!
填底色程式碼, 可以用您的版本[錄製]即可取得, 試看看~~

bhsm

回復 5# 准提部林
感謝 准提部林大的提示,
1."R"的部分真如您所言,已修正,謝謝
2.底色跑掉的部分,我依您的提點,先以錄製的方式獲得顏色碼(巨集1),再執行您給的程式,底色依舊會跑掉,請問這是微軟的問題嗎?
3.附檔有我錄製的巨集,麻煩 准提部林大幫我看一下,是否哪裡出錯?麻煩您了,感恩
TEST2.rar (15.13 KB)

TEST2
下載次數: 3

2015-11-5 10:38

hcm19522

http://blog.xuite.net/hcm19522/twblog/354838322

bhsm

回復 7# hcm19522
感謝 hcm19522大的回覆,可惜資質魯鈍看不懂

准提部林

回復 6# bhsm


我只有 OFFICE 2000, 測不了~~

bhsm

回復 9# 准提部林
感謝 准提部林大,我在自己摸索看看,感恩