Question

我制作了一个程序，可将在keno卡上挑选的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

随机基诺卡上的字体颜色更改

1 个答案: