iT邦幫忙

1

請教 EXCEL VBA高手,可否將游標所在儲存格改變顏色且離開後還原?

之前jimmytwo大大轉貼的程式碼:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode = xlCopy Then Me.Paste
On Error Resume Next
[colorCell].FormatConditions.Delete
Target.Name = "colorCell"
With [colorCell].FormatConditions ' 設定格式化條件
.Delete
.Add xlExpression, , "TRUE" ' 條件(一)內公式為
.Item(1).Interior.ColorIndex = 36 ' .Item(1)等於FormatConditions(1)
.Item(1).Font.Bold = True
End With
End Sub

我想請問的是,上述程式執行後所選的儲存格的顏色可以改成其他的顏色(例如紅色)嗎?要如何改?謝謝!!!

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中
2
海綿寶寶
iT邦大神 1 級 ‧ 2018-04-17 17:40:14
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode = xlCopy Then Me.Paste
On Error Resume Next
[colorCell].FormatConditions.Delete
Target.Name = "colorCell"
With [colorCell].FormatConditions ' 設定格式化條件
.Delete
.Add xlExpression, , "TRUE" ' 條件(一)內公式為
.Item(1).Interior.ColorIndex = 3 ' .Item(1)等於FormatConditions(1)
.Item(1).Font.Bold = True
End With
End Sub
leotsai iT邦新手 5 級 ‧ 2018-04-17 23:45:52 檢舉

太感謝您了!!!我是猜要改那裡,但不知要打什麼數字@@...

1
art00083303
iT邦新手 5 級 ‧ 2018-04-18 08:43:12

.ColorIndex = Excel索引數值(見下圖)
https://ithelp.ithome.com.tw/upload/images/20180418/20109491WxzRS0o8Xu.jpg

leotsai iT邦新手 5 級 ‧ 2018-04-18 11:09:21 檢舉

謝謝大大您補充的資料,非常實用!!!

1
paicheng0111
iT邦大師 5 級 ‧ 2018-04-18 09:01:05

除了ColorIndex屬性,也可以改用Interior物件的Color屬性。

Color屬性可以吃下列常數:
vbBlackvbBluevbCyanvbGreenvbMagentavbRedvbWhitevbYellow

如果對於上述顏色都不滿意,也用RGB()函數自己挑顏色。

leotsai iT邦新手 5 級 ‧ 2018-04-18 11:10:20 檢舉

謝謝大大,受教了,真的獲益良多.

我要發表回答

立即登入回答