Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Χρωματισμός label μεγαλύτερου μικρότερου αριθμού

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 20-04-21, 10:42
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-04-2013
Μηνύματα: 212
Προεπιλογή Χρωματισμός label μεγαλύτερου μικρότερου αριθμού

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

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

Ευχαριστώ
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Βιβλϊο1.xlsm (23,2 KB, 5 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 20-04-21, 15:28
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 490
Προεπιλογή

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

Ελπίζω το συνημμένο αρχείο να καλύπτει τις ανάγκες σου.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ΧΡΩΜΑΤΙΣΜΟΣ ΕΤΙΚΕΤΩΝ.xlsm (20,6 KB, 18 εμφανίσεις)
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #3  
Παλιά 20-04-21, 17:05
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-04-2013
Μηνύματα: 212
Προεπιλογή

Καλησπέρα Χρήστο,
Σε' ευχαριστώ για την άμεση απάντηση
θα ήθελα οι τιμές στις label να μην αλλάζουν αλλά να παραμένουν σταθερές
κάθε φορά που ανοίγω και κλείνω τη userform!
Απάντηση με παράθεση
  #4  
Παλιά 20-04-21, 18:02
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 490
Προεπιλογή

Απλά σβήσε το παρακάτω κομμάτι κώδικα:
Κώδικας:
    For Each Lbl In Me.Controls
        If TypeName(Lbl) = "Label" Then Lbl.Caption = Int(101 * Rnd)
    Next
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #5  
Παλιά 20-04-21, 19:45
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-04-2013
Μηνύματα: 212
Προεπιλογή

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

Με εκτίμηση
Γιώργος
Απάντηση με παράθεση
  #6  
Παλιά 21-04-21, 12:13
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-04-2013
Μηνύματα: 212
Προεπιλογή

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

Ευχαριστώ
Απάντηση με παράθεση
  #7  
Παλιά 21-04-21, 15:12
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 490
Προεπιλογή

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

Αντικατέστησε τον κώδικα του αρχείου με τον παρακάτω:
Κώδικας:
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
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #8  
Παλιά 22-04-21, 11:13
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-04-2013
Μηνύματα: 212
Προεπιλογή

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

Με Εκτίμηση
Γιώργος
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Συναρτήσεις] Ευρεση μικρότερου αριθμού εκτός του 0 manolis Excel - Ερωτήσεις / Απαντήσεις 3 29-01-20 12:00
[VBA] Διαφορετικός χρωματισμός σε Label stam75 Excel - Ερωτήσεις / Απαντήσεις 4 21-07-18 12:37
[Μορφοποίηση] αποτελεσμα μεγαλυτερου αριθμου συν προιον GreekPowers Excel - Ερωτήσεις / Απαντήσεις 12 27-06-18 11:46
[Συναρτήσεις] Μια βοήθεια για εύρεση μεγαλύτερου αριθμού tsoldim Excel - Ερωτήσεις / Απαντήσεις 5 17-11-13 15:07
Goto Label στην Access stavros2244 Access - Ερωτήσεις / Απαντήσεις 2 12-05-10 11:34


Η ώρα είναι 12:25.