Avatar billede Slettet bruger
10. oktober 2007 - 22:59 Der er 8 kommentarer og
2 løsninger

Mønster i et regneark.

Er der nogen der ved hvordan jeg kan lave et mønster i et regneark
der ikke bliver påvirket af sortering.

Jeg har et ark med 5 kolonner.
Hver anden linje i arket har en anden farve for at gøre det let læseligt.
Når jeg laver en sortering, sorteres alle poster fint nok, men
Nu er det ikke længre hver anden linje der har forskellig farve.
Farven i linjerne er fulgt med under sortering, så nu har jeg f.eks 4 linjer med samme farve efter hinanden.

Hvordan laver jeg et mønster der ikke kan påvirkes af sortering.
Avatar billede supertekst Ekspert
10. oktober 2007 - 23:02 #1
En makro kan ordne dette, hvis den udføres efter sorteringen.
Avatar billede kabbak Professor
10. oktober 2007 - 23:05 #2
Gælder hele arket og påvirkes ikke af sortering

Sub Makro1()

  Cells.FormatConditions.Delete
    Cells.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=REST(RÆKKE();2)=0"
  Cells.FormatConditions(1).Interior.ColorIndex = 15
End Sub
Avatar billede Slettet bruger
10. oktober 2007 - 23:05 #3
Ok. Nu er jeg ikke lige så god til det med makro.
Hvordan kan jeg lave sådan en.
Avatar billede kabbak Professor
10. oktober 2007 - 23:07 #4
men ellers er det
Marker det område du vil have dem på.
vælg Formater>betinget Formatering
Formlen er :=REST(RÆKKE();2)=0
vælg din rækkefarve og tryk ok
Avatar billede Slettet bruger
10. oktober 2007 - 23:12 #5
Jeg har lidt problemer med at få det til at fungere..
Er det meningen jeg skal indsætte hvilke rækker det er ?
Avatar billede Slettet bruger
10. oktober 2007 - 23:14 #6
Ok.. Fik det til at funke
Avatar billede kabbak Professor
10. oktober 2007 - 23:16 #7
Du skal starte med at markere det område den skal virke på

f.eks. A1 til K200
du kopierer bare formlen derind, den er som den skal være
Avatar billede kabbak Professor
10. oktober 2007 - 23:16 #8
et svar ;-))
Avatar billede Slettet bruger
10. oktober 2007 - 23:21 #9
Det er et svar. og tak for det.

Men hvis nu jeg ville lave en makro til det, hvordan gør jeg så det helt nøjagtigt.
Og er det så en kommande jeg kan bruge i alle mine ark, og hvordan..

Spørger lige lidt mere...
Avatar billede supertekst Ekspert
10. oktober 2007 - 23:26 #10
Sub sætLæseLinier()
Dim antalRæk
Rem beregn antal rækker
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For r = 1 To antalRæk
        Range("A" + CStr(r) + ":E" + CStr(r)).Select
        If r Mod 2 <> 0 Then
            Selection.Interior.ColorIndex = 3
        Else
            Selection.Interior.ColorIndex = xlNone
           
        End If
    Next r
End Sub
Private Sub CommandButton1_Click()
    sætLæseLinier
End Sub
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