如何创建一个函数来创建一个像下图这样的颜色方块？
所以，我需要创建一个函数，生成一个颜色方块，如下所示：

的数据
我试过...

Sub GenererCarreCouleur()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1) ' Changez le numéro de feuille si nécessaire
    
    Dim rng As Range
    Set rng = ws.Range("A1:G8")
    
    Dim i As Integer, j As Integer, count As Integer
    count = 1
    
    For i = 1 To 8
        For j = 1 To 7
            rng.Cells(i, j).Value = count
            rng.Cells(i, j).Interior.Color = GetCouleur(count)
            count = count + 1
        Next j
    Next i
End Sub

Function GetCouleur(ByVal valeur As Integer) As Long
    ' Ajoutez autant de cas que nécessaire pour couvrir toutes les valeurs jusqu'à 56
    Select Case valeur
        Case 1 To 7
            GetCouleur = RGB(0, 0, 0) ' Noir
        Case 8 To 14
            GetCouleur = RGB(255, 255, 255) ' Blanc
        Case 15 To 21
            GetCouleur = RGB(255, 0, 0) ' Rouge
        ' Ajoutez d'autres cas ici en fonction de vos besoins
        Case Else
            GetCouleur = RGB(0, 0, 0) ' Noir par défaut
    End Select
End Function

字符串
但那是错误的