Avatar billede Steen Seniormester
04. april 2012 - 07:39 Der er 8 kommentarer og
1 løsning

Highlight aktive række og kolonne

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.
Avatar billede store-morten Ekspert
04. april 2012 - 17:29 #1
Prøv denne, med en ToggelButton1 (Til/fra-knap) på Arket:
Dim adr As String
Public sHuskCelle As String

Private Sub ToggleButton1_Change()
  sHuskCelle = ActiveCell.Address
  Application.ScreenUpdating = False

  If ToggleButton1.Value = False Then
    ActiveCell.Next.Select
    Range(sHuskCelle).Select
  Else
    ActiveCell.Next.Select
    Range(sHuskCelle).Select
  End If

  Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo exit_Sub  'Ved fejl exit Sub

If ToggleButton1.Value = True Then

    Rem Farv række brug denne
    If adr <> "" Then Rows(adr).Interior.ColorIndex = xlNone
    Rows(Target.Row).Interior.ColorIndex = 6
    adr = Target.Row
    Else
    Rows(adr).Interior.ColorIndex = xlNone
   
    Rem dobbelunderstreg række brug denne
'    If adr <> "" Then Rows(adr).Borders(xlEdgeBottom).LineStyle = xlNone
'    Rows(Target.Row).Borders(xlEdgeBottom).LineStyle = xlDouble
'    adr = Target.Row
'    Else
'    Rows(adr).Borders(xlEdgeBottom).LineStyle = xlNone
   
End If
exit_Sub:
        Exit Sub
End Sub
Avatar billede Steen Seniormester
04. april 2012 - 18:05 #2
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/ ?
Avatar billede store-morten Ekspert
04. april 2012 - 18:59 #3
Så gerne:
http://gupl.dk/677184/

Ark1 farve på række
Ark2 dobbeltunderstregning på række
Avatar billede store-morten Ekspert
04. april 2012 - 19:01 #4
PS. dobbeltunderstregning på række
Fordi hvis der i forvejen er formateret celler med farve ophæves disse.
Avatar billede Steen Seniormester
04. april 2012 - 19:11 #5
Tak - er der plads til en lille tilpasning

må gerne virke på alle ark og så den version med den gule farve.

Hvis den gule farve kan skiftes, så gerne en der er noget mere svag
Avatar billede Steen Seniormester
04. april 2012 - 19:16 #6
det kan jeg godt se -

men jeg kan også se at hvis jeg har streget omkring mine emner, så bliver de også ophævet..... Er der andre muligheder ?
Avatar billede store-morten Ekspert
04. april 2012 - 19:19 #7
Indsættes på alle ark hvor funktionen ønskes:
Dim adr As String
Public sHuskCelle As String

Private Sub ToggleButton1_Change()
  sHuskCelle = ActiveCell.Address
  Application.ScreenUpdating = False

  If ToggleButton1.Value = False Then
    ActiveCell.Next.Select
    Range(sHuskCelle).Select
  Else
    ActiveCell.Next.Select
    Range(sHuskCelle).Select
  End If

  Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo exit_Sub  'Ved fejl exit Sub

If ToggleButton1.Value = True Then

    Rem Farv række brug denne
    If adr <> "" Then Rows(adr).Interior.ColorIndex = xlNone
    Rows(Target.Row).Interior.ColorIndex = 36
    adr = Target.Row
    Else
    Rows(adr).Interior.ColorIndex = xlNone
   
End If
exit_Sub:
        Exit Sub
End Sub
Avatar billede store-morten Ekspert
04. april 2012 - 19:23 #8
Ikke som jeg ser mulighederne Kant eller fyld farve
Avatar billede Steen Seniormester
04. april 2012 - 20:15 #9
Tak for hjælpen
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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