[VBA] UserForm - ListBox

[gfevran]

Καλησπέρα,
Σε μια ListBox που περιέχει αριθμητικές τιμές, δεν εμφανίζει το σύμβολο του € και διαχωριστικό χιλιάδων, υπάρχει τρόπος να εμφανίζει τα παραπάνω.
Ευχαριστώ για όποια βοήθεια

[Spirosgr]

Το Listbox μπορεί να είναι σε φύλλο ή σε φόρμα.
Και στις δύο περιπτώσεις η InputRange ή η RowSourse αντίστοιχα πρέπει να είναι με μορφοποίηση
είτε Λογιστική είτε Νομισματική.
Γενικά το Listbox «παίρνει» την μορφή της περιοχής προέλευσης.

[gfevran]

Καλησπέρα Σπύρο,
Σ' ευχαριστώ για την απάντηση, θέλω λίγη ακόμη βοήθεια,
πως συντάσσεται η InputRange ή η RowSourse στον κωδικά vba
Ευχαριστώ.

[Spirosgr]

Δες πρώτα το συνημμένο που ξέχασα
Μορφοποίησε την προέλευση της λίστας.

[gfevran]

Σπύρο δκίμασα το συνημμένο, δουλεύει τέλεια.
Πρόσθεσα όμως μια στήλη δίπλα από τα αριθμητικά ποσά,
με ονόματα γιατί περίπου είναι σαν αυτό που θέλω να φτιάξω,
αλλά δεν δουλεύει σωστα.
ανεβάζω το τροποποιημένο αρχείο.
Ευχαριστώ.

[Spirosgr]

Αυτά συμβαίνουν πάντα όταν δεν ανεβάζει κάποιος ένα αρχείο και να λέει «αυτό θέλω».

Να μαντέψω λοιπόν:

Τι εννοείς «....αλλά δεν δουλεύει σωστα.»

Θέλεις να φαίνονται και οι δύο στήλες στο Listbox;
Αν ναι πήγαινε Alt + F11 >>> ιδιότητες λίστας και κάνε το ColumnsCount αντί 1 ... 2

Αν το τελικό αποτέλεσμα θα πρέπει να έχει κι άλλα πράγματα για να
είναι 100% σωστό επιφυλάσσομαι ...

[gfevran]

Ακριβώς αυτό ήθελα να φαίνονται και οι δύο στήλες.
Τέλειο!
Σ' Ευχαριστώ πολύ.

[gfevran]

Σπύρο ακόμη λίγη βοληθεια,
πρόσθεσα ένα TextBox με ημερομηνία δεν μπορώ να καταλάβω τι κάνω λάθος,
και δεν βγάζει σωστή ημερομηνία.
Σ' Ευχαριστώ

[Spirosgr]

Δήλωσε τις μεταβλητές και όλα θα είναι μια χαρά...

[Spirosgr]

Βέβαια ....
ο κώδικας αυτός που υπάρχει στο βιβλίο είναι :
και μεγάλος,
και χωρίς Option Explicit,
και χωρίς καμία δηλωμένη μεταβλητή,
και πιο καλά η εντολή να είναι στην προετοιμασία και όχι στην ενεργοποίηση της φόρμας,
και ... γενικά δεν είναι ότι καλύτερο.
Για να έχουμε μια ημερομηνία με την μορφή που θέλεις (Μαρτίου αντί Μάρτιος κλπ) αρκεί αυτό:

Private Sub UserForm_Initialize()
    Me.TextBox1 = Format(Date, "dddd, dd ," & Choose(Month(Date), "Ιανουαρίου ", _
        "Φεβρουαρίου ", "Μαρτίου ", "Απριλίου ", "Μαΐου ", "Ιουνίου ", "Ιουλίου ", _
        "Αυγούστου ", "Σεπτεμβρίου ", "Οκτωβρίου ", "Νοεμβρίου ", "Δεκεμβρίου ") & _
        ", yyyy")
End Sub