Hoe kan ik de actieve cel meer laten opvallen?

Question

Ik wil graag dat de 'actieve cel' binnen Excel wat meer opvalt. Waar kun je bijvoorbeeld instellen wat de vulkleur of achtergrondkleur moet zijn van deze actieve cel?

Of bijvoorbeeld de rand?

Answer 1

Als je dat maar eenmalig wil, dan kun je door boven het lint Start te kiezen in de groep Lettertype de cel een opvulkleur geven en de kleur of dikte van de randen wijzigen. Maar als je daarna een andere cel selecteert, dan blijft de ingestelde kleur of rand van de vorige cel gehandhaafd. Wil je dat er alleen van een cel wat wijzigt als je die selecteert, dan kan dat best met een vba-opdracht.

Een cel die je selecteert wordt normaal al vet (zwart) omlijnd, dat is al erg duidelijk. Wil je niettemin bv. de opvulkleur wijzigen, dan kan dat bijvoorbeeld zo:

• Toets ALT-F11
• Dubbelklik in de linkerkolom op Blad1, als dat het blad is waarvoor de opmaak moet gelden.
• Plaats aan de rechterkant onderstaande code en klik daarna op het kruisje rechtsboven om naar het werkblad terug te keren. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlColorIndexNone ActiveCell.Interior.ColorIndex = 8 End Sub

Answer 2

Erik,

Onderstaande mogelijkheid gebruikt voorwaardelijke opmaak van de actieve cel.

Als je verder geen voorwaardelijke opmaak in je werkblad gebruikt zou je dit kunnen proberen.

Zet in een algemene module deze code:

Option Explicit

Sub VWActive() 

    Dim rngS As Range 

    Set rngS = ActiveCell 

    rngS.FormatConditions.Add Type:=xlExpression, Formula1:= _ 

        "=LENGTE(SPATIES.WISSEN(" & rngS.Address & "))=0" 

    With rngS.FormatConditions(1).Interior 

        .ColorIndex = 8 

    End With 

    rngS.FormatConditions.Add Type:=xlExpression, Formula1:= _ 

        "=LENGTE(SPATIES.WISSEN(" & rngS.Address & "))>0" 

    rngS.FormatConditions(rngS.FormatConditions.Count).SetFirstPriority 

    With rngS.FormatConditions(1).Interior 

        .ColorIndex = 8 

    End With 

End Sub 

en in de module van het betreffende werkblad dit:

Option Explicit 

Dim rngPrev As Range 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    If Not rngPrev Is Nothing Then 

        rngPrev.FormatConditions.Delete 

    End If 

    VWActive 

    Set rngPrev = Target 

End Sub 

Al dit soort hulpmiddelen om, met VBA, de cursor beter te kunnen onderscheiden hebben nadelen.

Misschien wel het grootste nadeel: undo (Ctrl+Z) werkt niet meer.

Wellicht dat Microsoft daar nog eens wat opties voor gaat maken die niet belastend zijn voor de rest van het werkblad.

Jan

Answer 3

Mocht ik je verkeerd begrepen hebben en je alle cellen die je selecteert of geselecteerd hebt een kleur willen geven en die kleur handhaven, dan moet je in de macro alleen maar de eerste regel (Cells.Interior.ColorIndex = xlColorIndexNone) verwijderen.

Answer 4

De weergave van andere cellen mag niet intact blijven, want dan zou, na selecteren van een andere cel, de kleur van de vorige geselecteerde cellen blauw blijven. De kleur van álle cellen moet dus eerst op de standaardkleur ingesteld worden en daarna wordt de geselecteerde cel (alleen die cel) gekleurd. Is dat bij jou niet het geval, dan heb je ofwel de code niet goed gekopieerd, ofwel is er iets anders mis met jouw Excel.

Answer 5

Dank voor de reactie!

Dit is bijna wat ik zoek.

Maar wat er nu ook gebeurd met dit script is dat de celkleur van veel cellen verandert naar wit. Kan je wellicht ook iets inbouwen dat de kleurwijziging alleen de actieve cel betreft, maar de weergave van alle andere cellen intact laat?

Bij voorbaat dank voor de reactie.