#pytanie #programowanie #vba #excel
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
'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
#polityka #polska #wojna #ukraina #rosja #bekazpisu #neuropa #4konserwy