Εμφάνιση ενός μόνο μηνύματος
  #5  
Παλιά 31-03-12, 07:29
Το avatar του χρήστη gr8styl
gr8styl Ο χρήστης gr8styl δεν είναι συνδεδεμένος
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)

Φιλικά
Θανάσης
Απάντηση με παράθεση