13. juli 2007 - 14:24Der er
12 kommentarer og 1 løsning
Skiftevis ændring af markerede rækkers baggrunsfarve
Jeg skal bruge en lille function til at kunne ændre baggrundsfarven i de markerede celler i et excelark. Jeg fandt en lille function, som gør hvad jeg vil, men den gør det med hele bredden, og så et angivet antal rækker, og ikke bare det område man har markeret med musen.
koden ser sådan ud: Sub Farve() For Række = 2 To 100 Step 2 Rows(Række & ":" & Række).Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With Next Række End Sub
Sub Farve() Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=REST(RÆKKE();2)=0" Selection.FormatConditions(1).Interior.ColorIndex = 15 End Sub
Jeg troede ikke lige at det ville fungere som det gør nu, men det kan godt være at det bare er sådan det er, men når man har kørt makroen, er det bagefter ikke muligt at ændre farven igen.
Måske skulle jeg lægge et spørgsmål til for at løse det.
Så tager den højde for gen-kørselproblemet. Når denne kode er kørt, kompenserer arket automatisk for, om du indsætter eller sletter nye rækker.
Sub Farve() Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=REST(RÆKKE();2)=0" Selection.FormatConditions(1).Interior.ColorIndex = 15 End Sub
Sub Step2() On Error Resume Next Selection.Interior.ColorIndex = xlNone Range(ActiveCell.Address).Resize(1, Selection.Columns.Count).Interior.ColorIndex = 15 For Each c In Selection If c.Offset(-1, 0).Interior.ColorIndex <> 15 Then c.Interior.ColorIndex = 15 Next End Sub
ok fint den virker nu - glem det med point, det er ok. :-)
Synes godt om
Ny brugerNybegynder
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.
