2010-11-05 111 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