Jump to content
Trelkrok

[Løst] Fargelegge aktiv celle

Recommended Posts

Hei, Office 365, norsk.

 

Jeg bruker følgende kode og betinget formatering for og markere raden det jobbes på. (Hele raden blir fargelagt)

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Sheets("Grunnoplysninger").Cells(2, 7) = ActiveCell.Row
 
End Sub
 
 
Betinget formatering formel er:
=RAD()=Grunnoplysninger!$G$2
 
Jeg ønsker i tillegg at den aktive cellen skal bli grønn når markøren står i en celle.
NB! Dette må ikke slette andre farger eller kantlinjer
 
Er dette mulig?
 
På forhånd takk
 
Mvh
RA

Share this post


Link to post

Prøv å lime inn denne koden i "ThisWorkbook":
 

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
 
Static xLastRng As Range
 
On Error Resume Next
 
Target.Interior.ColorIndex = 4
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target
 
End Sub

Share this post


Link to post

trn100, denne virker ikke. Sletter fargen på fargelagte celler og blinker bare grønt i den cellen som var valgt før ny cellevalg

Edited by Trelkrok

Share this post


Link to post

Snodig, det virket her!? Da kan det være noe jeg ikke har i test-arket mitt som du har i ditt... Da er jeg rådløs dessverre.

Share this post


Link to post

Snodig, det virket her!? Da kan det være noe jeg ikke har i test-arket mitt som du har i ditt... Da er jeg rådløs dessverre.

Mulig det, men TAKK for forsøket :)

Share this post


Link to post

trn100, koden din virker fint på en bok som ikke inneholder farger. :-)

 

Prøv og fargelegg arket så ser du at fargen blir borte 

 

Mvh

RA

Share this post


Link to post

Ser det nå ja. Betinget formatering overstyrer koden, og hvis cellene ellers også har ulike farger i utgangspunktet og du vil ha de tilbake etter å ha valgt en annen celle i en annen rad er dessverre dette et stykke over min kunnskap på området.

 

Selv med kode og om du har ulike farger i forskjellige kolonner forekommer det meg at dette kan bli vanskelig. Hvis f.eks. kolonne A er gul, kolonne B er rød og kolonne C er blå i utgangspunktet, må en eventuell kode lagre fargene i variabler om jeg ikke tenker feil? (Kommer sikkert noen eksperter som henger meg for dette! ;-))

Du kan jo legge til i koden din Sheets("Grunnoplysninger").Cells(2, 8) = ActiveCell.Column og kanskje bruke den til å utvide din betingede formatering, men har ikke helt funnet ut hvordan enda.

Det beste er nok å finne en kode som ikke bruker betinget formatering.

Edited by trn100

Share this post


Link to post
Takk igjen trn100
 
Ved bruk av denne makroen og betinget formatering få jeg markert rad og kolonne men kunne tenkt meg og fått markert bare raden og aktiv celle.
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
  Sheets("Grunnoplysninger").Cells(2, 7) = ActiveCell.Row  'finner aktiv rad
  Sheets("Grunnoplysninger").Cells(3, 7) = ActiveCell.Column 'finner aktiv kolonne
 
     'Sheets("Grunnoplysninger").Cells(4, 7) = ActiveCell.Address 'finner aktiv celle
End Sub
 

 

Betinget formatering er:

=RAD()=Grunnoplysninger!$G$2

=KOLONNE()=Grunnoplysninger!$G$3

 

Hvis jeg legger til  'Sheets("Grunnoplysninger").Cells(4, 7) = ActiveCell.Address i makroen får jeg fram hvilken celle som er aktiv men hjelper lite da jeg ikke finner ut om det lar seg gjøre og få aktiv celle farget.

 

Får vente i spenning trn100, sikkert noen som har en løsning hvis det lar seg løse.

 

Mvh

RA

Share this post


Link to post

Hei igjen, da har jeg funnet en løsning på dette. (tror jeg)

Legger ved eksempel hvis det er interesse for det, tar gjerne imot kommentarer.

 

Forklaring:

For at dette skal virke MÅ Koden under settes inn i fanen ‘’Utfylling’’ og lagres som makroaktivert

Det er brukt betinget formatering for og få fram ønsket farger.

NB! Gjør oppmerksom på at fanen ‘’Hjelpeark 1’’ inneholder matriseformler så disse må endres ved behov.

I fanen ‘’Grunnoplysninger’’ skal det ikke endres noe.

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  Sheets("Grunnoplysninger").Cells(1, 2) = ActiveCell.Row  
  Sheets("Grunnoplysninger").Cells(2, 2) = ActiveCell.Column   
   Sheets("Grunnoplysninger").Cells(3, 2) = ActiveCell.Address
  
End Sub
 

Fargelegge rad kolonne og cell.xlsx

  • Like 1

Share this post


Link to post

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

×
×
  • Create New...