Πώς να Διαγραφή Σημεία στίξης και όλα τα καλύμματα στο Excel

Όταν εργάζεστε σε ένα υπολογιστικό φύλλο του Microsoft Excel 2010 , ο τρόπος που το κείμενο είναι μορφοποιημένο μπορεί να είναι πολύ σημαντικό . Ενώ μπορείτε να ελέγξετε πώς θα εισάγετε το κείμενο μέσα στα κύτταρα , αν έχετε εισάγει πληροφορίες από άλλη πηγή , μπορεί να περιέχει όλα τα είδη της μορφοποίησης και χαρακτήρες που δεν θέλετε στο φύλλο σας . Εάν τα δεδομένα σας είναι προς το παρόν σε όλα τα καλύμματα και περιέχει σημεία στίξης , μπορείτε να χρησιμοποιήσετε το VBA , το ενσωματωμένο στη γλώσσα προγραμματισμού , για να γράψει ένα γρήγορο macro που θα αλλάξει την κεφαλαιοποίηση και την άρση κάθε σημείο στίξης από το κείμενο στο φύλλο σας . Οδηγίες
Η

1 Ανοίξτε το υπολογιστικό φύλλο του Excel 2010, όπου θέλετε να αφαιρέσετε τα σημεία στίξης και να χρησιμοποιήσετε μια διαφορετική περίπτωση . Κάντε κλικ στην καρτέλα "Προγραμματιστής " στην κορυφή της οθόνης . Κάντε κλικ στο κουμπί " Καταγραφή μακροεντολής " , που βρίσκεται στο αριστερό άκρο της κορδέλας . 2

Τύπος " RemovePunctuationCaps " μέσα στο " Όνομα μακροεντολής " πεδίο . Πληκτρολογήστε " q " στο " Πλήκτρο συντόμευσης " πεδίο . Κάντε κλικ στο " OK " για να κλείσετε το παράθυρο . Κάντε κλικ στο κουμπί " Stop" στην κορδέλα για να σταματήσει τη μακροεντολή από την εγγραφή .
Εικόνων 3

Κάντε κλικ στο κουμπί " Visual Basic" στην κορδέλα για να ξεκινήσει το πρόγραμμα επεξεργασίας VBA . Κάντε διπλό κλικ στο " Ενότητα 1 " στην αριστερή πλευρά του εκδότη . Εάν έχετε ήδη δημιουργήσει μια μονάδα σε αυτό το βιβλίο εργασίας , θα πρέπει να κάνετε κλικ στην τελευταία ενότητα εισηγμένης , αντί του " Ενότητα 1 . " Θα δείτε " RemovePunctuationCaps Sub ( ) " στη δεξιά πλευρά του παραθύρου .
Η

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

αντιγραφή και επικόλληση του παρακάτω κώδικα μεταξύ " Sub" και " End Sub" γραμμές στο editor VBA :

Dim RNG Όπως Σειρά

For Each RNG Στην επιλογή

rng.Value = StrConv ( rng.Text , vbProperCase )

Επόμενο RNG

Αυτό θα δημιουργήσει μια μεταβλητή με το όνομα " RNG " και να παρέχει τον κώδικα που απαιτείται για να αλλάξετε την επιλογή σας σε σωστή περίπτωση . " . VbLowerCase " Αν θα προτιμούσαν να χρησιμοποιούν πεζά γράμματα , αλλαγή " vbProperCase " για να
Η 6

Εισάγετε τον παρακάτω κομμάτι του κώδικα μεταξύ του τελευταίου και του κώδικα " " End Sub "γραμμή :

Με CreateObject ( " vbscript.regexp " )

. Pattern = " [ ^ A - Za - z0 - 9 \\ ] "

. Παγκόσμια = True

Για κάθε RNG Σε Selection.SpecialCells ( xlCellTypeConstants )

rng.Value = . Αντικατάσταση ( rng.Value , vbNullString )

Επόμενο RNG

End With

Αυτό θα αφαιρέσει όλα τα σημεία στίξης από τα επιλεγμένα κελιά .
Η

7 Κάντε κλικ στο " Χ" στην επάνω δεξιά γωνία του συντάκτη για να το κλείσετε . Κάντε κλικ στο κελί ή τα κελιά όπου έχετε το κείμενο που θέλετε να μετατρέψετε . Πατήστε το " Ctr - Q » και η μακροεντολή θα εκτελέσει το έργο .
Η
εικόνων