Najskuteczniejszy sposób na walkę z legionellą to:
- zamknięcie cmentarzy 10.9% (14)
- wprowadznie paszportów legionellowych 17.1% (22)
- zakaz wstępu do lasu 48.1% (62)
- lockdown wodociągów 24.0% (31)
Jaki jest sens samochodu elektrycznego, który ma teoretyczny zasięg 300 kilometrów, ale zimą spada on ponad dwa razy a wskazania w tym zakresie są
zTreść została ukryta...
Treść została ukryta...
Treść została ukryta...
Treść została ukryta...
Treść została ukryta...
Treść została ukryta...
Treść została ukryta...
Treść została ukryta...
Wykop.pl
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
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