Avatar billede idani Praktikant
15. februar 2008 - 12:53 Der er 10 kommentarer og
1 løsning

Markerer en række i Excel, når man arbejder iden

Hejsa

Jeg har et temmeligt stort regneark med mange kolonner.

Det jeg godt kunne tænke mig var at den række som jeg arbejder i bliver markeret hele vejen hen i en eller anden givet farve
eller lign.

Nogen som ved om man kan få excel til det??

Hilsen
IDa
Avatar billede excelent Ekspert
15. februar 2008 - 13:03 #1
Hvis du ikke har anvendt baggrundsfarver i dit ark så indsæt koden i arkets kodemodul :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
ActiveCell.EntireRow.Interior.ColorIndex = 4
End Sub
Avatar billede idani Praktikant
15. februar 2008 - 13:07 #2
super, men hvor er det så lige jeg finder kodemodulet - er ikke den store excel haj :o)
Avatar billede excelent Ekspert
15. februar 2008 - 13:18 #3
højreklik på arkets fane, vælg Vis programkode, indsæt kode der
Avatar billede be_nice Juniormester
15. februar 2008 - 13:44 #4
Og hvis du ønsker både kolonne og række markeret, hvilket måske kan gøre det endnu mere overskueligt hvor du er i arket, kan du med fordel ændre excelents kode til:
----
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
ActiveCell.EntireRow.Interior.ColorIndex = 4
ActiveCell.EntireColumn.Interior.ColorIndex = 4
End Sub
----
/Be_Nice
Avatar billede idani Praktikant
15. februar 2008 - 14:05 #5
super takker mange gange - og så lige et lille tillægsspørgsmål.
Hvordan får man det til at virke på en hel mappe ;o) - i ved mer vil have mer

Sidst men ikke mindst gider i så ikke smide et svar
Avatar billede excelent Ekspert
15. februar 2008 - 14:52 #6
velbekom:
indsæt koden i alle ark
Avatar billede kabbak Professor
15. februar 2008 - 18:42 #7
excelent > du behøver ikke i alle ark, du kan sætte den i ThisWorkbook modulet.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlNone
    ActiveCell.EntireRow.Interior.ColorIndex = 4
    ActiveCell.EntireColumn.Interior.ColorIndex = 4
End Sub
Avatar billede be_nice Juniormester
15. februar 2008 - 19:03 #8
Smukt - og meget nemmere :o)
/Be_Nice
Avatar billede excelent Ekspert
15. februar 2008 - 19:56 #9
ja du har ret kabbak :-) godt tænkt
Avatar billede idani Praktikant
20. februar 2008 - 10:02 #10
ups kom lige til at se at jeg har et tillægs spørgsmål - hvor finder jeg "ThisWorkbook" modulet  - jeg er jo som sagt novice
Avatar billede be_nice Juniormester
20. februar 2008 - 10:21 #11
Højreklik på arkets fane
Vælg Vis programkode
Dobbeltklik på ThisWorkbook
/Be_Nice
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