2010-11-05 106 views

回答

2

在你的牀單工作表的選擇更改事件,你可以使用這樣的事情:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    Const HIGHLIGHT_COLOR As Long = 4 

    'remove past colors 
    ActiveSheet.Cells.Interior.ColorIndex = xlNone 

    With Me 
     .Columns(Target.Column).Interior.ColorIndex = HIGHLIGHT_COLOR 
     .Rows(Target.Row).Interior.ColorIndex = HIGHLIGHT_COLOR 
    End With 
End Sub 
3

這裏有一種方法:

ActiveSheet.Rows(ActiveCell.Row).Interior.Color = RGB(r, g, b) 
ActiveSheet.Columns(ActiveCell.Column).Interior.Color = RGB(r, g, b) 

在R中可以填補,G & b鍵實現你想要的高亮顏色。

+1

很好的回答。我喜歡使用ActiveCell而不是Target,因爲它會突出顯示該人將要輸入的單元格。這隻有在他們進行多細胞選擇時才顯現出來。將這個答案與上面的答案結合起來以獲得完整的效果。如果您使用Interior.Color,則可以使用vbColor常量代替RGB值。 vbRed,vbGreen,vbYellow等。我發現使用這些更友好。但是,如果您需要精確的顏色匹配,請使用RGB值。 – KevenDenen 2010-11-05 21:14:09