14. januar 2016 - 21:09Der er
9 kommentarer og 1 løsning
Formater ark klar til print.
Hej
Jeg skal gerne have Makro der kan formatere mit regneark så alle linjer fra og med 19 til 102 bliver skiftevis grå og hvid, men jeg kan have valgt at skjule nogle linjer, så for ikke at få grå ved siden af hinanden skal det kun være de synlige der formateres. (jeg har makro'er til at skjule de linjer der skal skjules)
Jeg har lavet regnearket og der er mange formler. Så skal skrive din formel først i alle Celler ?
Jeg ville heller nøjes med en VBA kode til knap. Jeg har i øvrigt formuleret det forkert. alle liner fra og med 19 -102 mellem (A19:A102) til (CB19:CB102)
Nej, du mærker området op, går ind i betinget formatering og indsætter formelen, vælger den ønskede formatering og så er du færdig. Det kan laves på ca 1 minut
Okay Jeg kan følge dig noget lignende burde kunne lade sig gøre, men det virker ikke umiddelbart. er du sikker på formlen ? MOD.....?
Jeg har simpelthen indsat ny kolonne (A) og skrevet 1 i alle 19-101, markeret de rækker som skal kunne tilpasse sig formateringen, men det funker ikke rigtig ? (jeg har pt. ændret MOD... til MAD...
Ja, den formel har den fordel fremfor den jeg foreslog, at du ikke behøver at have en enkelt kolonne fyldt med tal, men der skal dog være et tal i hver række for at den virker optimalt.
Tak for hjælpen Jeg er ikke helt sikker på hvad det er der er afgørende for, som du siger at der skal stå et tal, (men du har ret) det er tilfældigt at det har virket for mig. Er der en måde at undgå den betingelse !
Jeg har ikke kunnet finde nogen formel der tæller antal linier uanset om der står noget i dem eller ikke. Men alternativet kan du bruge en makro. Nedenstående makro farver hver anden synlige linie fra linie 19 til linie 102 grå:
Sub Macro1() Application.ScreenUpdating = False Dim c, x As Integer x = 0 For c = 19 To 102 If Cells(c, 1).EntireRow.Hidden = False Then x = x + 1 End If If x / 2 = Int(x / 2) Then Range(Cells(c, 1), Cells(c, 80)).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.1 .PatternTintAndShade = 0 End With Else Rows(c).ClearFormats End If Next Cells(1, 1).Select Application.ScreenUpdating = True End Sub
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.