Puteți înlocui cu ușurință toate umlauturile folosind o macro
De obicei, nu este o problemă atât de mare ca acum câțiva ani, dar umlauturile pot provoca probleme la schimbul de date. Următoarea figură arată un tabel cu texte care conțin umlauturi:
Dacă trebuie să faceți schimb de informații cu alte sisteme sau să trimiteți date către alte țări, poate fi util să înlocuiți toate umlauturile dintr-un tabel. Înlocuiți ä cu un ae, ö cu oe etc.
Desigur, puteți face acest lucru apelând în mod repetat funcția EDITARE - ÎNLOCUIRE. Dar asta înseamnă multă muncă. Dacă doriți să înlocuiți toate cele trei umlauts ä, ö și ü în majuscule și minuscule, precum și ß, trebuie să efectuați șapte operații de înlocuire la rând.
Este mai ușor cu un macro. Iată codul corespunzător al programului:
Sub ReplaceUmlauts ()
Dim Cell As Range
Cu Application.WorksheetFunction
Pentru fiecare celulă selectată
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
„Ä”, „Ae”)
Următoarea celulă
Se termina cu
Sfârșitul Sub
Macrocomanda cuiburează apelurile de înlocuire corespunzătoare prin intermediul funcției Înlocuitori unul în celălalt. Acesta este numele funcției în limba engleză a funcției tabelului REPLACE.
Pentru a utiliza macro-ul, selectați mai întâi celulele în care doriți să înlocuiți umlauturile și apoi apelați macro-ul. Următoarea figură arată cum arată tabelul cu umlauturi după pornirea macro-ului:
