Güncel olmayan bir tarayıcı kullanıyorsunuz. Bunu veya diğer web sitelerini doğru şekilde göstermeyebilir. Yükseltmeli veya bir alternatif kullanmalısınız. tarayıcı.
dolgu rengi ile yazı renginin kontrast olacak şekilde
Sub RastgeleRenklendir()
For i = 1 To 20
a = Int(Rnd * 256)
b = Int(Rnd * 256)
c = Int(Rnd * 256)
d = a + b + c
myColor = RGB(a, b, c)
Range("A" & i & ":D" & i).Interior.Color = myColor
If d > 350 Then
Range("A" & i & ":D"...