麻辣家族討論版版 » Excel程式區 » 請教不同欄重複的資料給予相同底色

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

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

中學生 Rank: 2

帖子: 96
主題: 12
精華: 0
積分: 116
點名: 265
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2024-11-12

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-11-4 18:01 | 只看該作者

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

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

TEST.rar (7.35 KB)

樓主熱帖

收藏

年齡不小,但我很想學

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

2^#

發表於 2015-11-4 18:23 | 只看該作者

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

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

中學生 Rank: 2

帖子: 96
主題: 12
精華: 0
積分: 116
點名: 265
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2024-11-12

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

3^#

發表於 2015-11-4 22:07 | 只看該作者

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

年齡不小,但我很想學

中學生 Rank: 2

帖子: 96
主題: 12
精華: 0
積分: 116
點名: 265
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2024-11-12

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

4^#

發表於 2015-11-4 22:27 | 只看該作者

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

TEST1.rar (7.66 KB)

年齡不小,但我很想學

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

5^#

發表於 2015-11-5 09:57 | 只看該作者

回復 4# bhsm

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

中學生 Rank: 2

帖子: 96
主題: 12
精華: 0
積分: 116
點名: 265
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2024-11-12

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

6^#

發表於 2015-11-5 10:39 | 只看該作者

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

TEST2.rar (15.13 KB)

年齡不小,但我很想學

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-12

熱烈參與勳章

7^#

發表於 2015-11-5 13:12 | 只看該作者

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

中學生 Rank: 2

帖子: 96
主題: 12
精華: 0
積分: 116
點名: 265
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2024-11-12

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

8^#

發表於 2015-11-5 13:30 | 只看該作者

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

年齡不小,但我很想學

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

9^#

發表於 2015-11-5 13:33 | 只看該作者

回復 6# bhsm

我只有 OFFICE 2000, 測不了~~

中學生 Rank: 2

帖子: 96
主題: 12
精華: 0
積分: 116
點名: 265
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2024-11-12

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

10^#

發表於 2015-11-5 20:26 | 只看該作者

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

年齡不小,但我很想學

靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。

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