[VBA] Listbox currensy

[gfevran]

Καλημέρα,
Χρόνια πολλά σε όλους τους Γιώργηδες
Παιδιά έχω ένα θέμα με το σύμβολο του ευρώ σε Lisbox δεν μου το εμφανίζει
Σε μια μικρή εφαρμογή με userform Listbox
το φύλλο1 γραμμή2 αποτελείται από 4 στήλες A-D στη στήλη D έχει αριθμούς
η Listbox αποτελείται από 0-3 στήλες αυτό που θέλω είναι στην τελευταία στήλη της Listbox οι αριθμοί να εμφανίζονται με το σύμβολο του ευρώ (€)

Ευχαριστώ για όποια βοήθεια.

[gfevran]

Καλημέρα.
Θα ήθελα σε μια Listbox τα (αριθμητικά οικονομικά ποσά) να εμφανίζεται το σύμβολο του ευρώ "€"
Ευχαριστώ για κάθε βοήθεια.

[ChrisGT7]

Καλησπέρα και καλή εβδομάδα Γιώργο,

Συγχώνευσα το νέο σου θέμα με το παλιό σου που δεν είχε απαντηθεί.

Αν όπως αναφέρεις στο παλιό σου θέμα, το listbox είναι σε userform, τότε εξαρτάται πως το τροφοδοτείς. Δηλαδή:

1. Αν χρησιμοποιείς την ιδιότητά του RowSource με σύνδεση σε κάποιο εύρος αριθμών (π.χ. Α1:Α20), τότε απλά μορφοποιείς τους αριθμούς στα κελιά.
2. Αν γεμίζεις το listbox μέσω κώδικα διαβάζοντας κελί-κελί με βρόγχο, τότε θα πρέπει να μορφοποιείς τον αριθμό στον κώδικα.

Θα σου πρότεινα να ανέβαζες καλύτερα ένα υπόδειγμα του αρχείου για πιο άμεση βοήθεια.

[gfevran]

Καλημέρα Χρήστο.
Ανέβασα αρχείο όπως μου ζήτησες

[gfevran]

Καλημέρα Χρήστο.
Ανέβασα αρχείο όπως μου ζήτησες

[ChrisGT7]

Καλησπέρα και καλή εβδομάδα Γιώργο,

Θεωρώ πως θα χρησιμοποιήσουμε το 2. της προηγούμενής μου δημοσίευσης, γιατί γεμίζεις το listbox με το βρόγχο For ... Next.

Στην υπορουτίνα UserForm_Initialize της UserForm1 έχεις τον παρακάτω κώδικα προς το τέλος της:

For i = 0 To ListBox1.ListCount - 1
ListBox1.List(i, 3) = Format(ListBox1.List(i, 3), "#,###0.00")
Next

Δοκίμασε να αντικαταστήσεις το 3 με 4 και το "#,###0.00" με "#,###0.00 €".

Ο λόγος που βάζουμε το 4 είναι γιατί οι στήλες στη λίστα σου είναι:

0: ΕΠΩΝΥΜΟ
1: ΟΝΟΜΑ
2: ΗΜΕΡ/ΝΙΑ
3: ΤΗΛ. ΚΙΝΗΤΟ
4: ΕΙΣΦΟΡΕΣ (€)

[gfevran]

Καλημέρα.
Σ' ευχαριστώ πολύ Χρήστο,
μια χαρά δούλεψε.