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

excel vba vba 巨集

leotsai 2018-04-17 17:17:20 ‧ 12996 瀏覽

分享至

之前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 }} |

直播中

3 個回答

海綿寶寶

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