Makro og VBA - Highlight aktive række og kolonne

Highlight aktive række og kolonne

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=737
Udskrevet den: 15.Maj.2024 kl. 13:03

Emne: Highlight aktive række og kolonne

Besked fra: stonefox
Emne: Highlight aktive række og kolonne
Posteringsdato: 04.Apr.2012 kl. 07:41

Bruger Excel 2010 - dansk

Jeg vil gerne lave denne funktion at, når jeg klikker på en celle, vil rækken blive gule. Klik på en anden celle, og den nye række bliver gult, og de gamle man vender tilbage til normal.

Men desværre kan jeg ikke få det til at virker, min viden strækker ikke.

Jeg har fundet denne youtube film som viser funktionen

http://www.youtube.com/watch?v=bGjqDGF7xaM

og denne code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myReply
Dim myRow As Integer

myRow = Target.Row
If myRow > 20 Then Exit Sub

myReply = MsgBox("Do you want to highlight this row", vbYesNo)
If myReply = vbNo Then Exit Sub
ActiveCell.EntireRow.Interior.ColorIndex = 3
End Sub

Ønske:
At jeg selv kan vælge via macroknappen, og funktionen er aktiv, hvis det ikke kan lades sig gøre, vi jeg gerne at funktionen, virker hver gang jeg starter en nyt regneark.

Hvis det kan laves så ar jeg selv vælger, vil jeg gerne have 2 funktionen, en hvor kun en række bliver highlight'et og en hvor både række og kolonne bliver det.

Svar:

Besked fra: excelent
Posteringsdato: 04.Apr.2012 kl. 17:45

Vælg 1 af følgende 3 muligheder :

------------------------------------------------------------------------------------
Highligt rows med Betinget format i et afgranset område
------------------------------------------------------------------------------------

A. Indsæt følgende kode i aktuel ark's kodemodul
    --------------
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveWorkbook.Names("spot").Value = Target.Row
    End Sub
    --------------

B. Opret/Definer et navn : fx. spot
I feltet Refererer til skriver du : =1

C. Marker det område i arket som skal være omfattet af markering
    Vælg Formater/Betinget format
    Vælg "Formlen er" og skriv =RÆKKE()=spot
    Vælg en fyld-farve

Ved ikke hvor stabil løsningen er, test selv.

----------------------------------------------------------------------------
Highligt rows med alm fyld-farve (evt. bestående slettes)
----------------------------------------------------------------------------

Dim adr As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> "" Then Rows(adr).Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 35
adr = Target.Row
End Sub

---------------------------------------------------------------------------------
Highligt rows med streg i toppen af celle (evt. bestående slettes)
---------------------------------------------------------------------------------

Dim adr As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> "" Then Rows(adr).Borders(xlEdgeTop).LineStyle = xlNone
    With Rows(Target.Row).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 3 'xlAutomatic
    End With
adr = Target.Row
End Sub

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: stonefox
Posteringsdato: 04.Apr.2012 kl. 18:05

Hej

Tak for dit indlæg, men mine evner rækker ikke til at få det til at virker. Er der mulighed for at du laver den / de filer med macro og så vedhæfter den, eller uploader den på http://gratisupload.dk/ ?

Besked fra: excelent
Posteringsdato: 04.Apr.2012 kl. 18:10

Excel 2003 eller 2010 ?

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: stonefox
Posteringsdato: 04.Apr.2012 kl. 18:46

2010

Besked fra: excelent
Posteringsdato: 04.Apr.2012 kl. 19:30

uploads/248/rowMark.xlsm - uploads/248/rowMark.xlsm

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: rassten
Posteringsdato: 04.Apr.2012 kl. 20:05

uploads/107/farve_r%C3%A6kke_og_eller_kolonne.xlsm - uploads/107/farve_række_og_eller_kolonne.xlsm

I dette eksempel. Kør makro a test, her kan du så vælge om den aktive række skal farves gul, eller om aktive række og kolonne skal være gul eller om der ikke skal være nogen farve.
Dette virker så alle ark i den aktive fil

-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: stonefox
Posteringsdato: 04.Apr.2012 kl. 20:13

Super - tak for hjælpen

Besked fra: rassten
Posteringsdato: 04.Apr.2012 kl. 21:07

Ups, havde ikke lige set at excelent var godt i gang.

-------------
VH rassten

Arbejde excel 2010
Privat excel 2010