Forum

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

Πάμε!
ms-office.gr > Forum > Microsoft Office > Visual Basic for Applications (VBA) > Στοίχιση στηλών σε ListBox με αριθμούς στα δεξιά

Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 09-10-16, 22:33
Όνομα: Χρήστος Ελευθερίου
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 26-11-2009
Περιοχή: Άρτεμις
Μηνύματα: 136
Προεπιλογή Στοίχιση στηλών σε ListBox με αριθμούς στα δεξιά

Καλησπέρα σε όλους,

Θα ήθελα την βοήθειά σας,

Έχω ένα ListBox σε μια φόρμα το οποίο έχει 7 στήλες,

οι 4 έχουν αριθμούς (τιμές & ποσοστό), και αντί να στοιχίζονται

στα δεξιά στοιχίζονται αριστερά σαν κείμενο.

Υπάρχει τρόπος να το αλλάξω αυτό.

Σας ευχαριστώ
Συνημμένα Thumbnails
Στοίχιση στηλών σε ListBox με αριθμούς στα δεξιά-listbox.jpg  
__________________
Φιλικά

Χρήστος
___________________________
Αυτά που δεν ξέρεις φτιάχνουν μία βιβλιοθήκη που καθένας μας θα ήταν υπερήφανος να έχει.
Αν η γνώση δημιουργεί προβλήματα,η άγνοια σίγουρα δεν μπορεί να τα λύσει.
Απάντηση με παράθεση
  #2  
Παλιά 10-10-16, 14:31
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.190
Προεπιλογή

Καλησπέρα

Χρήστο, απ’ ότι ξέρω, δεν υπάρχει κάποια ιδιότητα για τον καθορισμό της στοίχισης στις στήλες του ListBox.

Έχω τη γνώμη ότι θα μπορούσε, επιλέγοντας γραμματοσειρά σταθερού πλάτους και προσθέτοντας κατάλληλο αριθμό κενών πριν από την τιμή, να πετύχουμε τη στοίχιση που θέλεις.

Η διαδικασία αυτή απαιτεί δοκιμές και συνεπώς και δείγμα της ΒΔ.

Φιλικά/Γιώργος
Απάντηση με παράθεση
  #3  
Παλιά 11-10-16, 10:18
Όνομα: Χρήστος Ελευθερίου
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 26-11-2009
Περιοχή: Άρτεμις
Μηνύματα: 136
Προεπιλογή

Καλημέρα σε όλους

Γιώργο σε ευχαριστώ πολύ για την απάντησή σου.

Ψάχνοντας αρκετά στο Internet βρήκα τον παρακάτω κώδικα
ο οποίος και κάνει αυτό που θέλω.

Τον ανεβάζω και εδώ μήπως και κάποιος άλλος φίλος
συναντήσει το ίδιο πρόβλημα μ΄εμένα.

Κώδικας:
Function Pad(varText As Variant, strAlign As String, intLength As Integer, Optional strFill As String = " ") As String
 If Len(varText) >= intLength Then
     'if the source string is longer than the specified length, return the Length left characters 
 Pad = Left(varText, intLength) ElseIf strAlign = "L" Then
     'text aligns left, fill out the right with spaces
Pad = varText & String(intLength - Len(varText), strFill)
Else
     'text aligns right, fill out the left with spaces
     Pad = String(intLength - Len(varText), strFill) & varText
 End If
 End Function
Παράδειγμα για να καλέσουμε την συνάρτηση (στο ερώτημα) βάζουμε:

Κώδικας:
Pad([ΌνομαΠεδίου];"R";15;" ")
Ωστόσο, αυτός ο κώδικας θα δώσει μήνυμα σφάλματος αν τα στοιχεία για το varText είναι Null.
Έτσι για να αντιμετωπίσουμε πιθανές τιμές null βάζουμε το:

Κώδικας:
Pad(Nz([ΌνομαΠεδίου];"");"R";15;" ")
Σας ευχαριστώ πολύ
__________________
Φιλικά

Χρήστος
___________________________
Αυτά που δεν ξέρεις φτιάχνουν μία βιβλιοθήκη που καθένας μας θα ήταν υπερήφανος να έχει.
Αν η γνώση δημιουργεί προβλήματα,η άγνοια σίγουρα δεν μπορεί να τα λύσει.
Απάντηση με παράθεση
  #4  
Παλιά 11-10-16, 10:21
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Γίνεται απλά και χωρίς κώδικες, αν πάμε στον πίνακα που έχουμε τα δεδομένα που «παίρνει» η λίστα.
Πάμε σχεδίαση και επιλέγουμε ένα ένα τα πεδία.
Στο κάτω μέρος με τις ιδιότητες του πεδίου, υπάρχει στοίχιση.
Αυτό είναι πάντα γενική και κανείς δεν το αλλάζει ποτέ (?).
Άλλαξε τα αριθμητικά δεξιά.
Η λίστα θα ακολουθήσει...
Απάντηση με παράθεση
  #5  
Παλιά 11-10-16, 10:33
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

*βλέπε εικόνα 1

Πριν και μετά
Συνημμένα Thumbnails
Στοίχιση στηλών σε ListBox με αριθμούς στα δεξιά-screenshot_1.jpg   Στοίχιση στηλών σε ListBox με αριθμούς στα δεξιά-prin.jpg   Στοίχιση στηλών σε ListBox με αριθμούς στα δεξιά-meta.jpg  
Απάντηση με παράθεση
  #6  
Παλιά 11-10-16, 14:56
Όνομα: Χρήστος Ελευθερίου
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 26-11-2009
Περιοχή: Άρτεμις
Μηνύματα: 136
Προεπιλογή

Καλησπέρα σε όλους

Σπύρο σ΄ευχαριστώ πολύ για την απάντηση σου.

Αλλά αυτό που λες γίνεται μόνο όταν έχεις πεδία από πίνακα,
τα δικά μου είναι πεδία που είναι σε ερώτημα (υπολογιζόμενα)
και δεν υπάρχουν στον πίνακα.

Πάντως σ΄ευχαριστώ και πάλι.
__________________
Φιλικά

Χρήστος
___________________________
Αυτά που δεν ξέρεις φτιάχνουν μία βιβλιοθήκη που καθένας μας θα ήταν υπερήφανος να έχει.
Αν η γνώση δημιουργεί προβλήματα,η άγνοια σίγουρα δεν μπορεί να τα λύσει.
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Συναρτήσεις] επιλογη στηλων απο συνολο στηλων και αυτοματη αντιγραφη δεδομενων Quenya Excel - Ερωτήσεις / Απαντήσεις 1 03-09-15 15:32
Ολογράφως σε αριθμούς και ημερομηνίες JSARAK2001 Word - Ερωτήσεις / Απαντήσεις 3 15-10-12 13:35
Εξαγωγή κειμένου από συμβολοσειρά (δεξιά) Tasos Κείμενο 0 28-09-11 15:54
Εξαγωγή αριθμού από συμβολοσειρά (δεξιά) Tasos Κείμενο 0 28-09-11 07:33


Η ώρα είναι 06:47.