Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketHighlight aktive række og kolonne

 Besvar Besvar
Forfatter
stonefox Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 26.Jun.2011
Land: Danmark
Status: Offline
Point: 46
Direkte link til dette indlæg Emne: Highlight aktive række og kolonne
    Sendt: 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.

Til top



Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 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 !!!
Til top
stonefox Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 26.Jun.2011
Land: Danmark
Status: Offline
Point: 46
Direkte link til dette indlæg Sendt: 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/ ?
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 04.Apr.2012 kl. 18:10
Excel 2003 eller 2010 ?
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
stonefox Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 26.Jun.2011
Land: Danmark
Status: Offline
Point: 46
Direkte link til dette indlæg Sendt: 04.Apr.2012 kl. 18:46
2010
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 04.Apr.2012 kl. 19:30
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694
Direkte link til dette indlæg Sendt: 04.Apr.2012 kl. 20:05
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
Til top
stonefox Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 26.Jun.2011
Land: Danmark
Status: Offline
Point: 46
Direkte link til dette indlæg Sendt: 04.Apr.2012 kl. 20:13
Super - tak for hjælpen
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694
Direkte link til dette indlæg Sendt: 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
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk