[ssooqq]

Hej. Potrzebuję Waszej pomocy w usprawnieniu pracy w excelu.
Załóżmy, że mam tabelę na 30 wierszy i muszę ją wydrukować 30 razy, ale jest haczyk. Na każdej stronie ma być inny kolor tła wierszy. Na pierwszej stronie mają być wypełnione arkusze A1:O1. Na drugiej stronie mają być wypełnione arkusze A2:O2. Na trzeciej A3:O3 itd. aż do A30:O30. Jest to w ogóle wykonalne? Zamieszczam zdjęcie, aby zobrazować moją wizję. Dziękuję.

#komputery #excel

[Limonene]

@ssooqq: najlepiej makrem ustawić żeby kolorowało a potem drukowało

[let_it_be]

@ssooqq: a nie lepiej pokolorować sobie te wiersze na stałe i ustawić zakres druku po jednym wierszu na stronę?

[Feeder]

@ssooqq: 30x copy past i potem kolorowanie… cale 15 min roboty. Więcej poświęciłeś na pisanie tego posta tutaj

[Lakarion]

@ssooqq: szybkie makro napisane w VBA :)

[Lakarion]

@ssooqq: napisz PW to pomogę

[januzssz]

@ssooqq: makrem da sie napewno, odpal sobie w opcjach zakladke deweloper, potem daj nagrywarke makr.
Potem sobie zedytuj powstale makro z nagrywareczki i pokopiuj wiersze koda ktore cie interesuja.
Z tego ulepisz sobie swoje makro, pododawaj jeszcze jakies delaye pomiedzy drukowaniem, a ponownym kolorowaniem, zeby komputera nie #!$%@? i gotowe.

[Lakarion]

@ssooqq: @Limonene: @let_it_be: @Feeder: @januzssz:

Jakby ktoś kiedyś potrzebował, ustawione na sztywno wartości

Sub PrintRange()
Dim i As Integer
For i = 1 To 30
Range("A1:O30").Interior.Color = RGB(255, 255, 255) 'set all cells to white
Range(Cells(i, 1), Cells(i, 15)).Interior.Color = RGB(255, 255, 51) 'set current row to yellow
Range("A1:O30").PrintOut 'print
Next i
End Sub

[let_it_be]

@Lakarion: to drukuje całą tabelę jakby co, trzeba poprawić na wiersze chyba:D

[Lakarion]

@let_it_be: Jest jak op chciał, drukuje tabele w zakresie A1:O30 i za każdym razem inny wiersz jest na żółto :) Zobacz jego zdjęcia podglądowe

[let_it_be]

@Lakarion: aaaa to tak miało działać xD

[Lakarion]

@let_it_be: właśnie tak :P

[ssooqq]

@Lakarion Odblokuj PW :)

[ssooqq]

@Lakarion: Poradziłem sobie. Dziękuję Ci serdecznie. Działa wyśmienicie. Zaoszczędzę dużo czasu :) Dziękuję, pozdrawiam :)

[Lakarion]

@ssooqq: już odblokowałem PW jak coś, w przypadku drobnych makr pisz śmiało

[ssooqq]

@Lakarion: A da radę zrobić, aby drukować same żółte wiersze tak jak z początku myślał @let_it_be? Bez reszty tabeli.
Pierwsza kartka = A1:O1
Druga kartka = A2:O2
Trzecia kartka = A3:O3
Itd.
Zdjęcie podglądowe:

[Lakarion]

@ssooqq:

Nawet excela nie odpalałem ale powinno działać :)

Sub PrintRange()
Dim i As Integer
For i = 1 To 30
Range("A1:O30").Interior.Color = RGB(255, 255, 255) 'set all cells to white
Range(Cells(i, 1), Cells(i, 15)).Interior.Color = RGB(255, 255, 51) 'set current row to yellow
Range(Cells(i, 1), Cells(i, 15)).PrintOut 'print
Next i
End Sub