TextBox Şartlı Renklendirme Hk.

[emre311]

Merhaba;
10 tane ayrı textbox içinde "8.01 %" gibi her birinde farklı değerler var en büyükten küçüğe textbox'ların rengini kırmızıdan yeşile (koşullu biçimlendirme gibi) değiştirile bilir mi? Yardımlarınız için şimdiden teşekkürler. İyi çalışmalar.

 

[ÖmerFaruk]

Texboxlar Userformda mı sayfada mı?
Ya da dosyanızı paylaşabilirseniz güzel olacak.

 

[emre311]

UserForm'da textboxlardaki oranın yüksek olanı renk ile belirtmek istiyorum sadece dosya yükleme ve indirme yetkim yok sanırım.

 

[YUSUF44]

2 gündür fırsat buldukça uğraşıyorum, ancak çözebildim. Aşağıdaki kodları deneyebilirsiniz. Ben commandbuttona ekleyip denemiştim:

Dim renkkod, degerler As Variant
Dim arr As Object
Set arr = CreateObject("System.Collections.ArrayList")
renkkod = Array("255", "8421631", "33023", "8438015", "12640511", "8454143", "65535", "65280", "49152", "32768")
For deger = 0 To 9
    arr.Add CDbl(Me.Controls("Textbox" & deger + 1).Text)
Next
arr.Sort
For i = 1 To 10
    For j = 0 To 9
        If CDbl(Me.Controls("TextBox" & i).Text) = arr(j) Then
            Me.Controls("TextBox" & i).BackColor = renkkod(j)
        End If
    Next
Next

 

[YUSUF44]

Bu arada koşullu biçimlendirmede kırmızıdan yeşile olan renkler userformda bulunmadığı için userformda olan renkleri kullanmak zorunda kaldım.