[VBA] Χρωματισμός label μεγαλύτερου μικρότερου αριθμού

[gfevran]

Καλημέρα σε όλου,
Σε μια userform με αριθμούς σε label να χρωματίζεται με διαφορετικό χρώμα το κελί
μεγαλύτερου μικρότερου αριθμού.

Θα ήθελα τη βοήθεια σας.

Ευχαριστώ

[ChrisGT7]

Καλησπέρα Γιώργο,

Ελπίζω το συνημμένο αρχείο να καλύπτει τις ανάγκες σου.

[gfevran]

Καλησπέρα Χρήστο,
Σε' ευχαριστώ για την άμεση απάντηση
θα ήθελα οι τιμές στις label να μην αλλάζουν αλλά να παραμένουν σταθερές
κάθε φορά που ανοίγω και κλείνω τη userform!

[ChrisGT7]

Απλά σβήσε το παρακάτω κομμάτι κώδικα:

    For Each Lbl In Me.Controls
        If TypeName(Lbl) = "Label" Then Lbl.Caption = Int(101 * Rnd)
    Next

[gfevran]

Σε' Ευχαριστώ πολύ Χρήστο
Αυτό ήθελα δουλεύει τέλεια!

Με εκτίμηση
Γιώργος

[gfevran]

Καλημέρα,
Χρήστο, μια μικρή ακόμη βοήθεια αφορά τις τιμές στις ετικέτες,
όταν ο αριθμός είναι δεκαδικός τον αγνοεί δεν το χρωματίζει!
θα ήθελα τη βοήθεια σου

Ευχαριστώ

[ChrisGT7]

Καλησπέρα Γιώργο,

Αντικατέστησε τον κώδικα του αρχείου με τον παρακάτω:

Option Explicit

Private Sub UserForm_Initialize()
    Dim Lbl As Control, Min As Double, Max As Double
    
    For Each Lbl In Me.Controls
        If TypeName(Lbl) = "Label" Then
            If IsNumeric(CDbl(Lbl.Caption)) Then
                Min = CDbl(Lbl.Caption)
                Max = CDbl(Lbl.Caption)
                Exit For
            End If
        End If
    Next
    
    For Each Lbl In Me.Controls
        If TypeName(Lbl) = "Label" Then
            If IsNumeric(CDbl(Lbl.Caption)) Then
                If Lbl.Caption <= Min Then Min = CDbl(Lbl.Caption)
                If Lbl.Caption >= Max Then Max = CDbl(Lbl.Caption)
            End If
        End If
    Next
    
    For Each Lbl In Me.Controls
        If TypeName(Lbl) = "Label" Then
            If IsNumeric(CDbl(Lbl.Caption)) Then
                If Lbl.Caption = Min Then
                    Lbl.BackColor = vbGreen
                ElseIf Lbl.Caption = Max Then
                    Lbl.BackColor = vbRed
                End If
            End If
        End If
    Next
End Sub

[gfevran]

Καλημέρα,
Χρήστο Σε' Ευχαριστώ πολύ για το χρόνο σου,
Δουλεύει τέλεια, είναι αυτό ακριβώς που ήθελα!
Να' σε πάντα καλά.

Με Εκτίμηση
Γιώργος