• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

dolgu rengi ile yazı renginin kontrast olacak şekilde

  1. A

    Arşiv Dolgu rengi ile yazı renginin kontrast olacak şekilde, rastgele hücre dolgusu renklendirmek

    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"...
Geri
Üst