excel

Sub VytvorListySFarbami()
    Dim i As Integer
    Dim ws As Worksheet
    Dim farby As Variant

    ' Pole s rôznymi farbami (RGB)
    farby = Array( _
        RGB(255, 0, 0), RGB(0, 255, 0), RGB(0, 0, 255), _
        RGB(255, 255, 0), RGB(255, 165, 0), RGB(128, 0, 128), _
        RGB(0, 128, 0), RGB(0, 0, 128), RGB(128, 128, 128), _
        RGB(255, 0, 255), RGB(0, 255, 255), RGB(128, 0, 0), _
        RGB(0, 128, 128), RGB(0, 0, 128), RGB(128, 128, 0), _
        RGB(0, 128, 0), RGB(128, 0, 0), RGB(255, 69, 0), _
        RGB(255, 140, 0), RGB(0, 128, 128), RGB(0, 255, 0), _
        RGB(255, 215, 0), RGB(255, 192, 203), RGB(173, 216, 230), _
        RGB(0, 100, 0), RGB(139, 69, 19), RGB(0, 0, 128), _
        RGB(255, 222, 173), RGB(255, 20, 147), RGB(0, 250, 154) _
    )

    ' Vytvorenie 31 listov
    For i = 1 To 31
        Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
        ws.Name = "Den " & i
        ws.Tab.Color = farby(i - 1)
    Next i
End Sub