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

rastgele renk oluşturmak. (hücre dolgusu)

  1. A

    Arşiv Rastgele renk oluşturmak. (Hücre dolgusu)

    Sub rastgelerenk() Set huc = Range("A1:Z1") For i = 1 To huc.Count renk = RGB(Application.RandBetween(0, 255), Application.RandBetween(0, 255), Application.RandBetween(0, 255)) huc(i).Interior.Color = renk Next End Sub
Geri
Üst