vba разукрашивание ячеек рандомным цветом.vba

vba-Разукрашивание ячеек рандомным цветом.vba

Sub startPaintExcel()
    Cells.Delete Shift:=xlUp
    
    Columns.ColumnWidth = 0.6
    Rows.RowHeight = 5.8

    Dim rowMax As Integer: rowMax = 1000
    Dim columnMax As Integer: columnMax = 1000
    
    For r = 1 To rowMax
        For c = 1 To columnMax
            If (r Mod 2 = 0) And (c Mod 2 = 0) Then
                Cells(r, c).Interior.ColorIndex = getRandomNumber()
            End If
            If (r Mod 2 <> 0) And (c Mod 2 <> 0) Then
                Cells(r, c).Interior.ColorIndex = getRandomNumber()
            End If
        Next c
    Next r
End Sub

Private Function getRandomNumber() As Integer
    getRandomNumber = Int((56 - 1 + 1) * Rnd + 1)
End Function