請大師們幫忙自動變換顏色,謝謝 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 請大師們幫忙自動變換顏色,謝謝

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

[發問] 請大師們幫忙自動變換顏色,謝謝

高中生 Rank: 3 Rank: 3

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

1^# 跳轉到 »

發表於 2015-5-9 06:55 | 顯示全部帖子

請教各位大師

我想要依"公司清單"這個sheet裡列的公司,讓"設備列表"這個sheet裡面的設備自動整列變色成為 ...
leirex1201 發表於 2015-5-8 18:27

印象中在 Excel 2003 似乎沒有可直接抓取儲存格底色的公式.

你的需求用 Excel VBA 較容易達成:

Private Sub cbGetColor_Click()
Dim lRow&
Dim vD
Set vD = CreateObject("Scripting.Dictionary")
lRow = 2
With Sheets("公司清單")
Do While .Cells(lRow, 1) <> ""
vD(.Cells(lRow, 2).Text) = .Cells(lRow, 3).Interior.ColorIndex
lRow = lRow + 1
Loop
End With
lRow = 2
With Sheets("設備列表")
Do While .Cells(lRow, 1) <> ""
.Rows(lRow).Interior.ColorIndex = vD(.Cells(lRow, 2).Text)
lRow = lRow + 1
Loop
End With
End Sub

複製代碼

當檔案內容有更新時,點一下 "更新底色" 按鈕即可.
[attach]20896[/attach]

測試檔案-a.zip (11.89 KB)

高中生 Rank: 3 Rank: 3

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

2^#

發表於 2015-5-11 23:44 | 顯示全部帖子

感謝luhpro大師回覆

請問要貼到wookbook嗎?謝謝
leirex1201 發表於 2015-5-11 10:00

Private Sub cbGetColor_Click()
我是用按鈕事件來驅動,
每按一次就執行顏色檢核與變更.

靜思自在 : 閒人無樂趣，忙人無是非。

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