anskov Mester
25. marts 2019 - 15:49 Der er 7 kommentarer og
1 løsning

Farv grøn når man står i celle, farv grå når man forlader celle

Hej Alle

Jeg har en kode der sørger for at når man klikker på en celle bliver cellen grøn.
Når jeg forlader den igen bliver den hvid (DOG er koden skrevet sådan at den gør alle andre celler i arket hvid, inklusiv den man forlader, så den opdatere alle celler og gør dem hvide, undtagen den aktive celle).
Dette er ikke helt godt, jeg vil egentlig gerne have at når man for lader cellen bliver den grå mens de andre celler er hvide (undtagen den aktive celle man vælger herefter som skal blive grøn).
Jeg har prøvet med betinget formatering formatering, men så bliver cellen ikke grøn.

Så kort:
Standard regneark hvor celler er hvide.
Når man vælger en celle bliver den grøn.
Når man forlader den bliver den grå.

Se min kode jeg bruger herunder.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
Target.Interior.Color = vbGreen
Application.ScreenUpdating = True
End Sub

Håber nogen kan hjælpe
Jan Hansen Ekspert
25. marts 2019 - 19:39 #1
Mit forslag


Option Explicit
Dim rCell As Range

Private Sub Worksheet_Activate()
    Set rCell = ActiveCell
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
rCell.Interior.Color = RGB(180, 180, 180)
Target.Interior.Color = vbGreen
Set rCell = Target
Application.ScreenUpdating = True
End Sub


Jan
anskov Mester
26. marts 2019 - 08:55 #2
Hej Jan

der kommer en debug ved
rCell.Interior.Color = RGB(180, 180, 180)
anskov Mester
26. marts 2019 - 08:59 #3
Debug:

Run-time error
Object variable or with block variable not set

Jeg har koden til at stå som følger:

Option Explicit
Dim rCell As Range
----------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_Activate()
    Set rCell = ActiveCell
End Sub
----------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
rCell.Interior.Color = RGB(180, 180, 180)
Target.Interior.Color = vbGreen
Set rCell = Target
Application.ScreenUpdating = True
End Sub
----------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 1) = "Ok"
End Sub
Jan Hansen Ekspert
26. marts 2019 - 09:19 #4
Du skal væk fra arket og tilbage da rCell bliver sat når arket aktiveres ellers skal den sættes på anden måde evt


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
        On Error GoTo ErrorHandler
        Cells.Interior.ColorIndex = 0
        rCell.Interior.Color = RGB(180, 180, 180)
        Target.Interior.Color = vbGreen
        Set rCell = Target
    Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
    Set rCell = Range("A1")
End Sub


Ej testet
Jan
anskov Mester
26. marts 2019 - 10:04 #5
Hej Jan

Ok så virker det, bare ikke efter hensigten og det er min skyld og min forklaring der har været dårlig.

Jeg har et testskema hvor der er nogle celler der er grå (er gjort for at fremhæve cellerne). Den ene celle kunne der stå "test dør" den anden celle kunne der stå "Test håndtag". og begge celler er grå.
Det der så er meningen er at når man tester Døren så klikker man på cellen "test dør" og som indikation for at man står i cellen bliver cellen grøn. Når man så skal teste håndtaget, trykker man på cellen "Test håndtag" så bliver "Test dør" cellen igen grå (og forbliver grå) og "Test håndtag" cellen bliver grøn og så frem deles ned igennem test skemaet.

Håber det opklare lidt.
Jan Hansen Ekspert
26. marts 2019 - 10:48 #6
ok, slet:
Cells.Interior.ColorIndex = 0

og du vil beholde grå

Jan
anskov Mester
26. marts 2019 - 12:06 #7
Tak Jan
Jan Hansen Ekspert
26. marts 2019 - 12:07 #8
Velbekomme
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
En skærmrevolution er på vej: Her er alt du bør vide om fremtidens mini-LED og micro-LED-skærme
En mindre skærmrevolution er nu under opsejling. Tre nye skærmteknologier kommer med hver deres løfte om vild kontrast, flottere farver og modulære egenskaber.
Computerworld
Overblik: Så meget betaler danske virksomheder i løn til it-medarbejderne - se listerne her
Overblik: Der er meget stor forskel på løn-niveauet for it-medarbejderne i de danske virksomheder. Få overblikket over, hvor lønnen er højest og lavest her.
CIO
The Digital Edge: Claus H. Andersen står i spidsen for at gøre dit indkøb nemmere i Salling Groups 1.500 butikker
Podcast: Salling Groups digitale chef, Claus H. Andersen, er på en digital mission: Det skal være nemmere at handle, nemmere at være kunde og nemmere være forbruger - i alle kædens 1.500 butikker. Hør hvordan den digitale chef arbejder.
Job & Karriere
"Vi var fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Det kalder jeg mit første start-up. Det blev til IT-Universitetet. "
"Da jeg var færdig med PhD´en så var vi fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Så skulle vi bare have et nyt universitet op og køre på seks måneder. Det kalder jeg mit første start-up. Det blev til IT-Universitetet."
White paper
Spændende undersøgelse: Her ligger forretningsværdien i print-sikkerhed
En undersøgelse fra IDC viser, at der for virksomheder er en solid business case i at prioritere sikkerhed på print, og ethvert it-initiativ der kan nedbringe omkostninger, er attraktivt for ledere. I undersøgelsen har IDC lavet dybdegående interviews med 16 organisationer, som bruger en entreprise printerløsning, og disse interviews viser at der ligger stor forretningsværdi i denne løsning. Organisationerne blev bedt om at beskrive forskellen på ”før” og ”efter” og det viser sig, at de har opnået et mere sikkert print-miljø, samtidig med at der spares både penge og tid.