Tablo Renklendir

[1Al2Ver]

Merhaba,

Sayfada, RASTGELEARADA formülü ile alınan sayılar var,

Bu sayıları, belli bir aralıkta olan tabloda eşleştirip, tablo üzerinde renklendirmek istiyorum,

Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba
B21:I30 aralığını seçin
Koşullu biçimlendirme / Yeni Kural / Listeden - ... ... ... Formül Kullan seçin
Formül kutusuna aşağıdaki formülü kopyalayın.

=EĞERSAY($B$19:$K$19;B21)>0

Biçimlendirme kısmından istediğiniz biçimlendirmeyi yapın.


Benzersiz rastgele sayı üretmek için aşağıdaki kodu kullanın

Dim RS As New Collection

Sub Rastgele()
    Dim R As Integer
    Dim Sayi As Integer
    rs_ 80
    For R = 1 To 10
        Sayi = Int(1 + Rnd * (RS.Count))
        Cells(1, 31 + R) = RS.Item(Sayi)
        RS.Remove Sayi
    Next
End Sub

Sub rs_(Maks As Integer)
    Dim Bak As Integer
    Set RS = Nothing
    For Bak = 1 To Maks
        RS.Add Bak
    Next
End Sub

 

[1Al2Ver]

Sayın Muzaffer Ali merhaba,

Duyarlığınız ve çözüm için teşekkür ederim, elinize sağlık.

Saygılarımla.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.