Aktywne Wpisy
Kopyto96 +258
Ten typ to fenomen xD Wrzuca kilkanaście filmów w miesiącu, za każde lekko ponad milion wyświetleń, zbija pewnie grube siano przy takiej ilości i monetyzacji, a po prostu recenzuje obiektywnie żarcie. I to z reguły takie proste żarcie. I to jest proszę Państwa NISZA. On się w nią wbił.
Tak, nisza, bo po prostu każdy już się zdążył sprzedać i jeździ wypolerować berło za hajs xD Czyli nagrać, jakie to super jedzenie
Tak, nisza, bo po prostu każdy już się zdążył sprzedać i jeździ wypolerować berło za hajs xD Czyli nagrać, jakie to super jedzenie
daeun +66
Tatuaż jest fajny. Tak. Gdy masz naście lat, fiu-bździu w glowie, a Twoje życie to głównie impreski w towarzystwie YOLO koleżanek. XD
Pózniej przychodzi etap stabilizacji, z biegiem lat stajesz sie żoną, pozniej matką i dorabiasz się wnuków. Wtedy zaczynasz zauważać że ten czaderski motyw wilka, który był taki COOL w 2002 roku srednio już pasuje Tobie jako babci i kobiecie na stanowisku.
Zaczynasz wiec, podobnie jak Ewelina Lisowska, mysleć nad laserowym
Pózniej przychodzi etap stabilizacji, z biegiem lat stajesz sie żoną, pozniej matką i dorabiasz się wnuków. Wtedy zaczynasz zauważać że ten czaderski motyw wilka, który był taki COOL w 2002 roku srednio już pasuje Tobie jako babci i kobiecie na stanowisku.
Zaczynasz wiec, podobnie jak Ewelina Lisowska, mysleć nad laserowym
Sub ShadeEveryOtherRow()
Dim Counter As Integer
'For every row in the current selection...
For Counter = 1 To Selection.Rows.Count
'If the row is an odd number (within the selection)...
If Counter Mod 2 = 1 Then
'Set the pattern to xlGray16.
Selection.Rows(Counter).Interior.Pattern = xlSolid
Selection.Rows(Counter).Interior.Pattern = xlSolid
Selection.Rows(Counter).Interior.PatternColorIndex = xlAutomatic
Selection.Rows(Counter).Interior.ThemeColor = xlThemeColorAccent4
Selection.Rows(Counter).Interior.TintAndShade = 0.399945066682943
Selection.Rows(Counter).Interior.PatternTintAndShade = 0
End If
Next
End Sub
znalazłem taki kod na kolorowanie co drugiego wiersza w zaznaczeniu, i dziala. pytanie mam takie - czy mozna zmienic ten kod zeby kolorowal co 3,4,5 wiersz? i czy mozna zmienic go tak zeby zaczynal kolorowanie np. w przypadku kolorowania co 2. to zeby zaczynal od drugiego wiersza, kolorowanie co 3. zeby zaczynal od 3. itd.
@turbine: If Counter Mod 2 = 1 Then
Zmien na If Counter Mod 3 = 0 Then
Wtedy masz dokładnie co 3 wiersz pokolorowany
W obecnym stanie kod dziala tak, ze jezeli reszta z dzielenia przez 2 to 1. to kolorujesz
Sub ShadeEveryOtherRow()
Dim Counter As Integer
'For every row in the current selection...
For Counter = 1 To Selection.Rows.Count step [tutaj wstaw liczbe co który wiersz ma kolorować]
'If the row is an odd number (within the selection)...
'Set the pattern to xlGray16.
Selection.Rows(Counter).Interior.Pattern = xlSolid
Selection.Rows(Counter).Interior.Pattern = xlSolid
Selection.Rows(Counter).Interior.PatternColorIndex = xlAutomatic
Selection.Rows(Counter).Interior.ThemeColor = xlThemeColorAccent4
Selection.Rows(Counter).Interior.TintAndShade = 0.399945066682943
Selection.Rows(Counter).Interior.PatternTintAndShade = 0
Next
End Sub
Komentarz usunięty przez autora
Sub koloruj3()
Dim Counter As Integer
'For every row in the current selection...
For Counter = 1 To Selection.Rows.Count
'If the row is an odd number (within the selection)...
If Counter Mod 3 = 1 Then
'Set the pattern to xlGray16.
Selection.Rows(Counter).Interior.Pattern = xlSolid
Selection.Rows(Counter).Interior.PatternColorIndex = xlAutomatic
Selection.Rows(Counter).Interior.ThemeColor = xlThemeColorAccent1
Selection.Rows(Counter).Interior.TintAndShade =
Z ciekawosci - musi byc vba? Bo mozna tez formatowaniem warunkowym w oparciu o formule:
=MOD(ROW(),2)=1
lub
=MOD(ROW(),2)=0
Zamiast 2 moze byc 3, 5, 7…n
I odpowiednie formatowanie do tego. Choc akurat to pewnie lepsze dla arkusaza a nie zaznaczenia tylko.