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

帖子: 20
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-1-27
最後登錄: 2020-7-8

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2015-5-11 10:00 | 顯示全部帖子

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

你的需求用 Excel VBA 較容易達成:當檔案內 ...
luhpro 發表於 2015-5-9 06:55

感謝luhpro大師回覆

請問要貼到wookbook嗎?謝謝

天天空空啊~

帖子: 20
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-1-27
最後登錄: 2020-7-8

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2015-5-11 10:05 | 顯示全部帖子

本帖最後由 leirex1201 於 2015-5-11 10:07 編輯

回復 leirex1201

也可以用工作表事件來達成自動化
當B欄以後到E欄有變化時就會達成目的
lpk187 發表於 2015-5-9 11:36

感謝lpk187大師回覆

If Target.Row > 1 And Target.Column < 10 And Cells(Target.Row, 1) <> "" Then
以上是change的事件範圍嗎
Range(Cells(Target.Row, 1), Cells(Target.Row, 1).End(xlToRight)).Interior.Color = _
col.Offset(0, 1).Interior.Color
但我不懂這個,
我想要設定變色的範圍,只要B欄位有值,不管後面的欄位有沒有值,比如A10~P10全部變色,請大師幫幫忙,謝謝

天天空空啊~

帖子: 20
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-1-27
最後登錄: 2020-7-8

論壇榮譽勳章論壇贊助勳章

4^#

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

回復 leirex1201
只有B欄的話可以改成這樣
lpk187 發表於 2015-5-11 10:24

感謝lpk187大大再一次幫忙

可能是我說明的不清楚
我的意思是A2有值"1",B2有值"遠傳電信",而C2:K2都是空白,但我想把A2:K2全部變色,感謝大師

天天空空啊~

帖子: 20
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-1-27
最後登錄: 2020-7-8

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2015-5-11 12:59 | 顯示全部帖子

回復 lpk187

改成下列的話，只要A欄和B欄其中一個無值的話回復空白
lpk187 發表於 2015-5-11 11:41

感謝 lpk187 大師再次幫忙

不好意思,我可能還是沒表達清楚,我做了圖片如下
我想要達成如下圖這樣子,不管我在哪一column編輯,只要column(B)的值是符合"公司清單"sheet的值,那row(A2:K10)都變色
再次感謝^^

天天空空啊~

帖子: 20
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-1-27
最後登錄: 2020-7-8

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2015-5-11 15:42 | 顯示全部帖子

回復 leirex1201

是只要A欄和B欄有值，然後從編輯的那一行A到K都變色對嗎？只要改紅字的部份就可以了
...
lpk187 發表於 2015-5-11 13:15

感謝lpk187大師

測試已可以使用,我把最下面的else if拿掉了,不然編輯範圍以外的儲存格都會變成"白底色"
再次感謝lpk187大師的用心幫忙,感恩

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 11 And Target.Row > 1 And Cells(Target.Row, "B") <> "" And Cells(Target.Row, "A") <> "" Then
Set col = Sheets("公司清單").Columns(2).Find(Cells(Target.Row, 2), , , , , 2)
AA = col.Offset(0, 1).Interior.Color
Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Interior.Color = _
col.Offset(0, 1).Interior.Color
End If
End Sub

天天空空啊~

帖子: 20
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-1-27
最後登錄: 2020-7-8

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2015-5-11 15:49 | 顯示全部帖子

回復 leirex1201

是只要A欄和B欄有值，然後從編輯的那一行A到K都變色對嗎？只要改紅字的部份就可以了
...
lpk187 發表於 2015-5-11 13:15

對了,忘了請問lpk187大師
我本身對顏色辨識較弱,
如果沒有相對應的色碼,太相似的顏色分不太清楚
有辦法自動標示相對應的色碼嗎...例如RGB或CMYK或HTML的FFFFFF

謝謝大師

天天空空啊~