• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opgelost Geselecteerde cel slecht zichtbaar dat die actief is

  • Onderwerp starter Onderwerp starter Senso
  • Startdatum Startdatum
Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

Senso

Inventaris
Lid geworden
13 jun 2016
Berichten
10.936
Besturingssysteem
W10 Pro en W11 Pro
Office versie
Office 2007 H&S en Office 2021 Prof Plus
Excel 2021. Ik gebruik vaak zwarte rasterlijnen en kleuren in mijn documenten. Als ik nu een cel selecteer om te bewerken, dan is dat slecht te zien dat ik die cel moet hebben. Wat is een oplossing?

Verder heb ik in dat document veel links staan naar mappen op de pc. Is er een truc om die in één keer in beeld te krijgen en aan te passen?
 
Bij u is het slecht te zien, ik zie helemaal niets.
 
Dit probleem was in Excel 2007/W10 nooit aanwezig. Maar door de armetierige layout in Excel 2021 is dit aanwezig.
Moet je weer twee/drie uur bezig zijn om dit op te lossen!

Onderstaande is fout, want die verwijdert bestaande kleur in cel!

Code:
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Update 20140923
Static xLastRng As Range
On Error Resume Next
Target.Interior.ColorIndex = 6
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub
 
Laatst bewerkt:
Ook fout. Wist alle kleuren en kleurt dan alle geselecteerde cellen na elkaar en wist de nieuwe kleur niet. Op internet staan allemaal voorbeelden die dan kolommen en rijen gaan inkleuren maar dat is de vraag niet. De vraag is Highlight only the active cell by VBA of Higlight the active cell only by VBA en niets anders.

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
        ' Highlight the active cell
    Target.Interior.ColorIndex = 8
    Application.ScreenUpdating = True
End Sub


Onderstaande ook fout, wist de originele kleur in alle geselecteerde cellen.
Code:
Option Explicit
Public rngOldCell As Range


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If rngOldCell Is Nothing Then
        Set rngOldCell = Target
        Exit Sub
    End If
    
    
    ActiveCell.Select
    'Selection.Interior.Color = vbBlue
    Target.Interior.ColorIndex = 8
    rngOldCell.Interior.Pattern = xlNone
    
    Set rngOldCell = Target
End Sub
 
Laatst bewerkt:
Wanneer ga je eens begrijpen dat excel een rekenblad is en geen kleurboek?
 
Besteld als voltooid deelwoord schrijf je met een d aan het einde.
Als je dat verbetert (met een t) is cel D48 aktief.
 
In het Naamvak kun je zo zien welke cel geselecteerd is.
 
Ik heb dit eens voor iemand gemaakt.
Let op, maakt gebruik van een Win32 API, dus evt. de ASR regels aanpassen:
 

Bijlagen

Laatst bewerkt:
Wanneer ga je eens begrijpen dat excel een rekenblad is en geen kleurboek?
Wanneer ga jij eens begrijpen dat je je niet moet bemoeien hoe mensen hun documenten samenstellen.
Met dit document werk ik al 8 jaar perfect in Excel 2007 en alles is 100% duidelijk en effectief.

SNB heeft ook een bril nodig, want er staat hestelt en niet bestelt.

Overigens heb ik een bril. Het is cel B51 en dat is nauwelijks goed te zien.

In het Naamvak kun je zo zien welke cel geselecteerd is.
Klopt. Maar zo kun je niet goed werken.

@edmoor. Bedankt. Compileerfout Sub voor Sleep geplaatst. Helaas knippert de cel en wanneer dit (snel) afgelopen is dan is het niets duidelijker om welke cel het gaat. Of het moet zo zijn dat het kader rond de cel aanzienlijk dikker/zwart is (nieuwe pc) en dat verwacht ik niet.

Code:
#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub Wacht(tijd As Long)
   Sleep (tijd)
End Sub
 
Laatst bewerkt:
Ook dat staat er niet Senso. Kijk eens naar de derde letter.
Maar de taalfout vind ik veel ernstiger.
 
@snb
Morgen kun je weer lesgeven.

@edmoor
Op de nieuwe pc met Excel 2021 is het geen verbetering. Zodra het knipperen stopt weet je niet meer waar je zit. Het kader is niet dikker of zwarter dus heb je de oude situatie.
 
Laatst bewerkt:
Het kader van de actieve cel ziet er bij mij zo uit: (D3)
Kader.png
 
Overigens heb ik een bril. Het is cel B51 en dat is nauwelijks goed te zien.

De bril was een beetje als grap bedoelt, maar als je een grap moet uitleggen is deze natuurlijk lang niet meer zo leuk.

B51 vond ik toch wel duidelijk de B en de 51 kolom-kop en rij-kop (als je dat zo mag noemen?) zijn duidelijke donkerder grijs als de rest.
En ook de rechteronderhoek is duidelijk een groen vierkantje te zien.
 
O, ik zie dat de opmerkingen van Djutoch zijn verwijderd maar wil in deze toch nog even mijn zegje doen.
Ik wil graag de aandacht vestigen op het feit dat dit forum primair bedoeld is voor het bespreken en oplossen van Excel-gerelateerde problemen. Laten we ons concentreren op het delen van kennis en elkaar helpen. Ik begrijp dat correct taalgebruik belangrijk is, maar laten we respectvol blijven en de nadruk leggen op de hoofddoelstelling van dit forum. Laten we samenwerken om een positieve en ondersteunende sfeer te behouden. Bedankt!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan