我制作了一个程序,可将在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
我在做什么错了?
答案 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