Cześć!
Od kilkunastu miesięcy uczę się programowania oraz tworzenia gier w silniku Unity - mój cel? Wydanie własnych gier oraz znalezienie pracy w Gamdev'ie. Obecnie pracuję nad moim największym projektem z kategorii RPG (3D) na PC. Dlaczego od razu rzucam się na głęboką wodę? Nie byłbym sobą jakbym nie stawiał sobie wyzwań. Czy polegnę? Oczywiście że nie. To właśnie dla kategorii RPG podjąłem tak nierówną naukę, wszystkie przeszłe projekty jakie tworzyłem przygotowywały
Od kilkunastu miesięcy uczę się programowania oraz tworzenia gier w silniku Unity - mój cel? Wydanie własnych gier oraz znalezienie pracy w Gamdev'ie. Obecnie pracuję nad moim największym projektem z kategorii RPG (3D) na PC. Dlaczego od razu rzucam się na głęboką wodę? Nie byłbym sobą jakbym nie stawiał sobie wyzwań. Czy polegnę? Oczywiście że nie. To właśnie dla kategorii RPG podjąłem tak nierówną naukę, wszystkie przeszłe projekty jakie tworzyłem przygotowywały
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
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
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