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

时间:2019-03-22 20:21:29

标签: excel vba

我制作了一个程序,可将在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

我在做什么错了?

1 个答案:

答案 0 :(得分: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