• Foruma hoş geldin 👋 Ziyaretçi

    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 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