|
Διαφορετικός χρωματισμός σε Label Γεια σας! Πιστεύω να είσαστε Καλά! Έχω στην userform το παρακάτω: Κώδικας: Label1.Caption = Sheets("Sheet1").Range("A1").Value & " = " & Sheets("Sheet1").Range("B1").ValueΕυχαριστώ! |
Καλημέρα Σταμάτη. Αν θέλεις την γνώμη μου... Περισσότερο, θα πρέπει να σε απασχολεί η αρτιότητα του κώδικα, παρά κάποια εφέ, που και δεν είναι όμορφα στο μάτι και επιβαρύνουν χωρίς λόγο... Εξηγούμαι... Έχεις τον κώδικα... Κώδικας: Label1.Caption = Sheets("Sheet1").Range("A1").Value & " = " & Sheets("Sheet1").Range("B1").Value1 Αν αλλάξω το όνομα του φύλλου, από Sheet1 (πχ Πληρωμές) σε πχ Πληρωμές_μήνα ο κώδικας θα χτυπήσει... Βάλε, το κωδικό όνομα του φύλλου και όχι το φυσικό. πχ Φύλλο1.Range("A1").Value 2 Το Range("A1").Value, είναι με Ελληνικό Α ή με Αγγλικό; Καλό είναι να γράφεις με πεζά ...Range("a1").Value 3 Το Range("A1").Value, είναι πολύ πιο αργό από το Cells(1,1).Value Τώρα για το ζητούμενο Στα χρόνια που ασχολούμαι με το αντικείμενο, ποτέ δεν χρειάστηκε (και δεν ήθελα) κάτι τέτοιο...και νομίζω, αν θυμάμαι καλά ότι δεν γίνεται, όσον αφορά τα activeX γενικά, παρά μόνο σε RichTextbox...(?!) Αν πρέπει οπωσδήποτε να γίνει κάτι τέτοιο, εγώ θα έβαζα τρείς labels, την μια δίπλα στην άλλη κολλητά, χωρίς περιγράμματα, με διάφανο Background, ως εξής: Label1.Caption =Sh1.Cells(1,1).Value (με κόκκινο και στοίχιση δεξιά) Label2.Caption =" = " (με μαύρο και στοίχιση κέντρο) Label3.Caption =Sh1.Cells(1,2).Value (με πράσινο και στοίχιση αριστερά) Οι καλύτερες και ομορφότερες φόρμες, γίνονται με γραμματοσειρά Tahoma, σε Font συστήματος ή και &H00404040&, με μέγεθος 8 άντε 9 το πολύ και χώρο ανοιχτό... Αυτά... |
1 Συνημμένο(α) Καλημέρα Σταμάτη δεν υπάρχει αυτή η δυνατότητα. Και μια άλλη πρόταση με 3 Labels, ένα για κάθε επιθυμητό χρώμα. Έχει το πλεονέκτημα ότι το μέγεθος και η θέση των Labels προσαρμόζεται στο μήκος του κειμένου των κελιών A1 και B1. Σε κάθε Label η ιδιότητα ForeColor θα οριστεί στο επιθυμητό χρώμα και οι AutoSize, Caption και WordWrap, σε True, κενό και False, αντίστοιχα. Στο συνημμένο πατώντας το κουμπί στο Sheet1, εμφανίζεται η φόρμα UserForm1. Πατώντας το κουμπί της φόρμας εκτελείται κώδικας, ο οποίος ορίζει κατάλληλα τη θέση και τις διαστάσεις των 3 Labels για να φαίνονται σαν ένα. |
Καλημέρα σας! Σας ευχαριστώ για τον πολύτιμο χρόνο που διαθέσατε ώστε να ασχοληθείτε με το θέμα, Σπύρο ευχαριστώ για διορθώσεις και τις επισημάνσεις σου. Έχω λάβει υπ' όψη όλα όσα έγραψες πιο πάνω. Γιώργο σε ευχαριστώ για την πρότασή σου. Είναι πολύ ενδιαφέρουσα, στην περίπτωση που έχεις να κάνεις με λίγα Labels. Νομίζω όμως ότι θα χάσω τη μπάλα στα περίπου 35 Labels μου.. Να είστε καλά και οι δύο! |
Καλή συνέχεια Σταμάτη. Να είσαι καλά! |
| Η ώρα είναι 01:05. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.