2010-11-05 6 views

Répondre

2

Dans vos feuilles feuilles de calcul événement de changement de sélection, vous pouvez utiliser quelque chose comme ceci:

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

est ici une façon:

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

Vous pouvez remplir r, g & b pour obtenir la couleur de surlignage que vous voulez.

+1

Bonne réponse. J'aime utiliser ActiveCell par opposition à Target car il met en évidence la cellule dans laquelle la personne va taper. Cela n'apparaît vraiment que lorsqu'ils effectuent une sélection multicellulaire. Combinez cette réponse avec celle ci-dessus pour obtenir le plein effet. Si vous utilisez Interior.Color, vous pouvez utiliser les constantes vbColor au lieu des valeurs RVB si vous le souhaitez. vbRed, vbGreen, vbYellow, etc. Je trouve l'utilisation beaucoup plus conviviale. Mais si vous avez besoin d'une correspondance de couleur exacte, utilisez les valeurs RVB. – KevenDenen

Questions connexes