Μπορείτε εύκολα να αντικαταστήσετε όλα τα umlauts χρησιμοποιώντας μια μακροεντολή
Συνήθως δεν είναι τόσο μεγάλο πρόβλημα όσο πριν από μερικά χρόνια, αλλά το umlauts μπορεί ακόμα να προκαλέσει προβλήματα κατά την ανταλλαγή δεδομένων. Το παρακάτω σχήμα δείχνει έναν πίνακα με κείμενα που περιέχουν umlauts:
Εάν πρέπει να ανταλλάξετε πληροφορίες με άλλα συστήματα ή να στείλετε δεδομένα σε άλλες χώρες, μπορεί επομένως να είναι χρήσιμο να αντικαταστήσετε όλα τα umlauts σε έναν πίνακα. Αντικαθιστάτε το ä με ae, το ö με oe κ.λπ.
Φυσικά, μπορείτε να το κάνετε αυτό καλώντας επανειλημμένα τη λειτουργία EDIT - REPLACE. Αλλά αυτό είναι πολλή δουλειά. Εάν θέλετε να αντικαταστήσετε και τα τρία umlauts ä, ö και ü με πεζά και κεφαλαία γράμματα, καθώς και το ß, πρέπει να πραγματοποιήσετε επτά συνεχόμενες λειτουργίες αντικατάστασης.
Είναι πιο εύκολο με μια μακροεντολή. Ακολουθεί ο κατάλληλος κωδικός προγράμματος:
Sub ReplaceUmlauts ()
Dim Cell As Range
Με Application.WorksheetFunction
Για κάθε κελί σε επιλογή
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (.
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Επόμενο κελί
Τέλος με
Τέλος υπο
Η μακροεντολή τοποθετεί τις κατάλληλες κλήσεις αντικατάστασης μέσω της λειτουργίας Αναπληρωματικά το ένα στο άλλο. Αυτό είναι το αγγλικό όνομα συνάρτησης της συνάρτησης πίνακα REPLACE.
Για να χρησιμοποιήσετε τη μακροεντολή, επιλέξτε πρώτα τα κελιά στα οποία θέλετε να αντικαταστήσετε τα umlauts και κατόπιν καλέστε τη μακροεντολή. Το παρακάτω σχήμα δείχνει πώς μοιάζει ο πίνακας με τα umlauts μετά την εκκίνηση της μακροεντολής:
