[英]Different Color for Each Cell in a Range
我需要一些幫助,我需要我的宏來為范圍內的每個單元格着色,但每個單元格的顏色必須與上面的單元格不同。 我目前使用的代碼沒有執行這種區分。 代碼是:
Function intRndColor()
'USE - FUNCTION TO PICK RANDOM COLOR, ALSO ALLOWS EXCLUSION OF COLORS YOU DON'T LIKE
Dim Again As Label
Dim RangeX As Range
Set RangeX = Range(Range("A1"), Range("A1").End(xlDown))
Again:
intRndColor = Int((50 * Rnd) + 1) 'GENERATE RANDOM IN
Select Case intRndColor
Case Is = 0, 1, 5, 9, 3, 13, 29, 30, 11, 21, 25, 29, 30, 32, 49, 51, 52, 55, 56 'COLORS YOU DON'T WANT
GoTo Again
Case Is = pubPrevColor
GoTo Again
End Select
pubPrevColor = intRndColor 'ASSIGN CURRENT COLOR TO PREV COLOR
' Range(Range("A1"), Range("A1").End(xlDown)).Interior.ColorIndex = pubPrevColor
For Each c In RangeX
c.Interior.ColorIndex = pubPrevColor
Next c
End Function
這段代碼使整個范圍成為相同的顏色,我不明白我在這里缺少什么......
我認為你的循環混淆了。 循環(使用goto
/label 創建)應該在你的循環內,通過范圍內的每個單元格:
Function intRndColor()
'USE - FUNCTION TO PICK RANDOM COLOR, ALSO ALLOWS EXCLUSION OF COLORS YOU DON'T LIKE
Dim c as Range
Dim RangeX As Range
Set RangeX = Range(Range("A1"), Range("A1").End(xlDown))
'Loop through each cell in range
For Each c In RangeX
'Bounce back to this label if the random color is a color we don't want, or the previous color
Again:
intRndColor = Int((50 * Rnd) + 1) 'GENERATE RANDOM COLOR INT
Select Case intRndColor
Case Is = 0, 1, 5, 9, 3, 13, 29, 30, 11, 21, 25, 29, 30, 32, 49, 51, 52, 55, 56 'COLORS YOU DON'T WANT
GoTo Again
Case Is = pubPrevColor
GoTo Again
End Select
'Paint the cell we are on
c.Interior.ColorIndex = intRndColor
'Set pubPrevColor
pubPrevColor = intRndColor
Next c
End Function
您正確選擇了一種隨機顏色(盡管最大為 51)。 然后,您只需將一種顏色應用於所有單元格。 每次將顏色應用於單元格時,您都需要選擇一種隨機顏色。
如果你想在不使用GoTo
等的情況下做到這一點。
Dim RangeX As Range, avoidcolours As String, intRndColor As Long, firstcell As Boolean
avoidcolours = ",0,1,5,9,3,13,29,30,11,21,25,29,30,32,49,51,52,55,56,"
Set RangeX = Range(Range("A1"), Range("A1").End(xlDown))
firstcell = True
'Cycle through cells
For Each c In RangeX.Cells
If firstcell Then
'Pick random starting colour
intRndColor = 0
Do Until InStr(1, avoidcolours, "," & intRndColor & ",") = 0
intRndColor = Int((50 * Rnd) + 1)
Loop
firstcell = False
Else
'Pick random colour
Do Until intRndColor <> c.Offset(-1, 0).Interior.ColorIndex And InStr(1, avoidcolours, "," & intRndColor & ",") = 0
intRndColor = Int((55 * Rnd) + 1)
Loop
End If
c.Interior.ColorIndex = intRndColor
Next c
一個稍微整潔的方法是創建一個循環來應用隨機顏色和一個函數來生成數字:
Sub applycolours()
'USE - APPLYS RANDOM COLOURS TO CELLS, DIFFERING FROM CELL ABOVE
Dim RangeX As Range, intRndColor As Long, firstcell As Boolean
Set RangeX = Range(Range("A1"), Range("A1").End(xlDown))
firstcell = True
'Cycle through cells
For Each c In RangeX.Cells
If firstcell Then
'Pick random starting colour
intRndColor = randomcolour
firstcell = False
Else
'Pick random colour
Do Until intRndColor <> c.Offset(-1, 0).Interior.ColorIndex
intRndColor = randomcolour
Loop
End If
c.Interior.ColorIndex = intRndColor
Next c
End Sub
Function randomcolour() as long
'USE - FUNCTION TO PICK RANDOM COLOR, ALSO ALLOWS EXCLUSION OF COLORS YOU DON'T LIKE
Dim avoidcolours as String
avoidcolours = ",0,1,5,9,3,13,29,30,11,21,25,29,30,32,49,51,52,55,56,"
randomcolour = 0
Do Until InStr(1, avoidcolours, "," & randomcolour & ",") = 0
randomcolour = Int((55 * Rnd) + 1)
Loop
End Function
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.