4 kleuren alleen.

[karell]

Hallo,

d = Int(255 * Rnd) + 1
e = Int(255 * Rnd) + 1
f = Int(255 * Rnd) + 1
Range("a4:g6").Interior.Color = RGB(d, e, f)

Dit geeft de cellen a4 tot g6 telkens een ander kleur,maar ik wil dat ze enkel in rood of groen of blauw of geel veranderen(willekeurig).Hoe moet ik dat doen ?

 

[edmoor]

Je wilt dus 4 kleuren uit het Excel Color Palette gebruiken. 3, 4, 5 en 6. Gebruik dan dit:

Range("A4:G6").Interior.ColorIndex = Int((6 - 3 + 1) * Rnd + 3)

 

[karell]

Bedankt eh ... Ed,want dat is het .:thumb::thumb:

Het is wel gelijk je zegt,maar dat geeft niets.

 

[edmoor]

Ok dan.
Met een dergelijk laag aantal heb je uiteraard wel veel kans dat een bepaalde kleuren vaker direct na elkaar voor komt.