Изменение цвета шрифта на случайной карте Кено

Question

Я сделал программу, которая рандомизирует 20 чисел, выбранных на карте кено.Однако у меня есть некоторые проблемы с изменением цвета шрифта на выбранных цифрах.

 Sub GetRandomCell()
      Range("A1:J10").Select
      Dim i       As Integer
      Dim RNG     As Range
    Set RNG = Range("A1:J10")
      Dim randomCell As Long
      i = 1

    RNG.Interior.Color = vbWhite
    Do While i < 21
    Randomize
    randomCell = Int(Rnd * RNG.Cells.Count) + 1
    If RNG.Cells(randomCell).Interior.Color <> vbGrey Then
        RNG.Cells(randomCell).Interior.Color = vbGrey

        i = i + 1
    End If
Loop
End Sub

Что я делаю не так?

Answer 1

Вместо этого вы можете проверить значение RGB, что позволяет вам быть более конкретным:

If RNG.Cells(randomCell).Interior.Color <> RGB(211, 211, 211) Then
    RNG.Cells(randomCell).Interior.Color = RGB(211, 211, 211)    
    i = i + 1
End If