Καλημέρα Σταμάτη.
Αν θέλεις την γνώμη μου...
Περισσότερο, θα πρέπει να σε απασχολεί η αρτιότητα του κώδικα,
παρά κάποια εφέ, που και δεν είναι όμορφα στο μάτι και επιβαρύνουν χωρίς λόγο...
Εξηγούμαι...
Έχεις τον κώδικα...
Κώδικας:
Label1.Caption = Sheets("Sheet1").Range("A1").Value & " = " & Sheets("Sheet1").Range("B1").Value
Σε αυτήν την
μια και μόνο γραμμή, υπάρχουν
τρία σφάλματα...
1
Αν αλλάξω το όνομα του φύλλου, από 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 το πολύ και χώρο ανοιχτό...
Αυτά...