Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Γενικά] Απαλοιφή κενών,απο την αριστερή πλευρά ενός κελιού (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/1761-apaloifi-kenon-apo-tin-aristeri-pleyra-enos-kelioi.html)

misirlis 30-03-12 15:43

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

manolis 30-03-12 15:49

Καλησπέρα σε όλη την παρέα.

Μάκη η συνάρτηση που ζητάς είναι η TRIM η οποία καταργεί τα διαστήματα και διατηρεί ένα διάστημα μεταξύ των λέξεων

Φιλικά
Μανώλης

misirlis 30-03-12 17:14

Μανώλη ευχαριστώ πολύ.

Spirosgr 30-03-12 21:12

1 Συνημμένο(α)
Σε ορισμένες περιπτώσεις αυτό μπορεί να γίνει και χωρίς χρήση τύπου
Αν στο κελί που θέλουμε να αφαιρέσουμε τα κενά υπάρχει μια λέξη ή τιμή και για κάποιο λόγο έχουν μπει κενά από λάθος τότε:
1 επιλογή κελιού (κελιών)
2 εύρεση και αντικατάσταση
3 εύρεση του : πληκτρολογούμε ένα κενό
4 αντικατάσταση όλων

gr8styl 31-03-12 07:29

Παράθεση:

Αρχική Δημοσίευση από misirlis (Μήνυμα 10275)
Παιδιά καλησπέρα,
Αν υπάρχει χρόνος ζητάω μια συνάρτηση για απαλοιφή κενών,απο την αριστερή πλευρά ενός κελιού και διατήρηση κειμένου και αριθμού.

Καλημέρα,
πολύ σωστά ο Μανώλης πρότεινε την 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)

Φιλικά
Θανάσης

misirlis 01-04-12 11:50

Θανάση ευχαριστώ για την βοήθεια.


Η ώρα είναι 15:56.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2