Αφαιρέστε όλα τα αριθμούς από μία γραμμή ή στήλη.

Δημοσιεύτηκε στις 10 Μάρτη 2008
Filed Under Excel Tips & Tricks, Reader Ερωτήσεις

Γεια σας παιδιά, Σας εύχομαι είχε ένα μεγάλο Σαββατοκύριακο! Το έκανα, θα γαντζώθηκε με ορισμένους παλιούς φίλους για τα γενέθλιά καλύτερος φίλος μου και είχαμε μόνο μια μεγάλη νύχτα του Σαββάτου. Είχαμε μια ήσυχη Κυριακή, κορίτσι μου και πήγα σε μια έκθεση και όταν επέστρεψα είχα κάποια δουλειά να κάνουμε. Το άρθρο που δημοσιεύθηκε χθες σχετικά με τη χρήση του Microsoft Outlook 2000 και αργότερα ως RSS reader σας ήταν ένα από τα καθήκοντα μου. Αν είχατε χρόνο να αρπάξει ένα αντίγραφο επιτρέψτε μου να ξέρω καλά, είμαι περίεργος πώς το plugin Newsgator εργάστηκε για εσάς.

 

Συμβουλή σημερινή και τέχνασμα έχει ζητηθεί από τον Gabriel και ήταν σε σχέση με ένα σχόλιο που έκανε στο άρθρο Κατάργηση όλων των επιστολών ή Αριθμό από μια γραμμή ή στήλη. Ρώτησε: "τι θα ήταν ο κωδικός VBA αν θέλουμε να διαγράψετε τους αριθμούς και να διατηρήσουν τα γράμματα;". Έτσι Γαβριήλ εδώ Excel Tutorial σας.

 

Μια Excel Tutorial κατάργησης όλων των αριθμών από μία γραμμή ή στήλη.

 

·          Πατήστε "ALT + F11" για να ανοίξετε το Visual Basic Editor.

·          Πηγαίνετε στο μενού Εισαγωγή και ανοιχτή Ενότητα.

·          Πληκτρολογήστε στη λειτουργία, όπως αναφέρεται παρακάτω.

 

Αξίωμα NumberOut (RNG Όπως Range)

Dim i As Integer

Για i = 1 To Len (RNG)

Επιλέξτε Υπόθεση Asc (Mid (rng.Value, i, 1))

Υπόθεση 0 έως 64, 123 έως 197

Υπόθεση Else

NumberOut = NumberOut & Mid (rng.Value, i, 1)

End Select

Επόμενη i

End Function

 

Excel-tip-trick-pic1

 

·          Πηγαίνετε πίσω στο φύλλο εργασίας του Excel και να επιλέξετε τα κελιά Β1: Β5 και πληκτρολογήστε τον τύπο = NumberOut (Α1).

·          Και πατήστε "CTRL + ENTER"

 

Excel-tip-trick-pic2

Ώστε να είναι Γαβριήλ. Καλή τύχη με αυτό και ευχαριστώ για την παρατήρησή σας. Θα σας δω γύρω καλά. Σας εύχομαι να έχει μεγάλη Δευτέρα και θα δω όλους σας αύριο με την επόμενη άκρη και το τέχνασμα. Cheers guys!

Θέλετε να δείτε περισσότερα; Αυτό συνδέεται ...

Προσκαλέστε τους φίλους σας για το Παγκόσμιο του Office.
Μήπως έχετε ποτέ σκεφτεί δημοσίευση δικό σας e-Book ή έκθεση PDF;
Προσκαλέστε τους φίλους σας για το Παγκόσμιο του Office.
Πιάσε το Easy PDF Toolkit, δεν ήταν ποτέ αυτό το εύκολο! Αν προσκαλέσετε τους φίλους σας και θα λαμβάνουν τουλάχιστον 3 επισκέπτες τότε θα λάβετε ένα δωρεάν αντίτυπο του παρόντος εκπληκτικό σετ και ότι είναι, συμπεριλαμβανομένων όλων των cool μπόνους. Προσκαλέστε τους φίλους σας εδώ!


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

Buzz Μέχρι Digg Mixx
Εκτύπωση




Σχόλια

3 απαντήσεις σε "Κατάργηση όλων των αριθμούς από μία γραμμή ή στήλη."

  1. Kris στις 16 Φεβρουαρίου 2009 7:45 pm

    Ας υποθέσουμε ότι έχω "Ιωσήφ Ιωάννης 237" στο κελί και με τον παραπάνω τύπο είναι μειωμένη σε "JosephJohn". Θα ήθελα για να μπορεί να "Joseph John" αντ 'αυτού. Πολλές ευχαριστίες για το παραπάνω κόλπο. Σώζω εμένα πολύ χρόνο.

  2. SDG στις 27 Απριλίου 2009 6:46 pm

    Μεγάλη λειτουργία. Very helpful.

    Παρόμοια με την Κρις, θα ήθελα να κρατήσει τους χώρους - Προσπάθησα να αλλάξετε τον κωδικό από την "υπόθεση 0 έως 64, 123 έως 197" για την "υπόθεση 0 έως 31, 33 έως 64, 123 έως 197" (είδα μέχρι το ascii για το διάστημα και ανακάλυψα ότι ήταν 33), αλλά αυτή επέστρεψε ένα σφάλμα.

    Οποιαδήποτε βοήθεια μπορείτε να προσφέρετε θα εκτιμηθεί ιδιαίτερα.

  3. Dan στις 19 Αυγούστου 2009 5:55 pm

    Η συμβουλή είναι ακριβώς αυτό που θέλω να κάνω, αλλά το πρόβλημά μου είναι, πώς μπορώ να αποθηκεύσετε τη μακροεντολή; Προφανώς είμαι λείπει ένα βήμα, διότι όταν προσπαθώ να χρησιμοποιείται ο τύπος NumberOut, είμαι είπε ότι είναι ένα "διφορούμενη όνομα." Τι είμαι εγώ που λείπει;

Αφήστε μια απάντηση