
31-03-12, 07:29
|
 | Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Παράθεση:
Αρχική Δημοσίευση από misirlis Παιδιά καλησπέρα,
Αν υπάρχει χρόνος ζητάω μια συνάρτηση για απαλοιφή κενών,απο την αριστερή πλευρά ενός κελιού και διατήρηση κειμένου και αριθμού. | Καλημέρα,
πολύ σωστά ο Μανώλης πρότεινε την TRIM() που αφαιρεί τόσο τα διαστήματα (space) στην αρχή και το τέλος όσο και τα διπλά διαστήματα στο ενδιάμεσο.
Αν όμως θέλουμε να αφαιρέσουμε τα κενά μόνον από την αρχή τότε δεν μας κάνει η TRIM()
O παρακάτω τύπος πίνακα (array formula κλείσιμο με Ctrl+Shift+Enter) μπορεί να κάνει την δουλειά. Απαλοιφή κενών από την αριστερή πλευρά του κελιού Α1 {=RIGHT( A1;LEN( A1)-MIN(IF(MID( A1;ROW(A:A);1)<>" ";ROW(A:A);""))+1) }
Εναλλακτικά με VBA φτιάχνουμε την δική μας συνάρτηση Function my_Ltrim(str) As String
my_Ltrim = Ltrim(str)
End Function σε κάποιο Module του VBE και χρησιμοποιούμε = my_Ltrim(A1)
Φιλικά
Θανάσης
|