Makro abil saate hõlpsalt kõik ummud asendada
Tavaliselt pole see nii suur probleem kui paar aastat tagasi, kuid ummutid võivad siiski andmete vahetamisel probleeme tekitada. Järgmisel joonisel on tabel tekstidega, mis sisaldavad umlaute:
Kui teil on vaja vahetada teavet teiste süsteemidega või saata andmeid teistesse riikidesse, võib seetõttu olla kasulik asendada tabelis kõik ummutid. Asendate ä a -ga, ö oe -ga jne.
Loomulikult saate seda teha, kutsudes korduvalt funktsiooni EDIT - REPLACE. Kuid see on palju tööd. Kui soovite asendada kõik kolm umlauti ä, ö ja ü nii suurtes kui ka väikestes tähtedes, samuti ß, peate tegema seitse asendustoimingut järjest.
Makroga on lihtsam. Siin on sobiv programmi kood:
Sub ReplaceUmlauts ()
Dim Cell kui vahemik
Koos Application.WorksheetFunction
Iga valitud lahtri kohta
Lahter.Väärtus = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae")), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Järgmine lahter
Lõpeta
End Sub
Makro pesitseb funktsiooni kaudu sobivaid asenduskõnesid Asendajad üksteisesse. See on tabeli funktsiooni REPLACE ingliskeelne funktsiooninimi.
Makro kasutamiseks valige esmalt lahtrid, milles soovite umlautid asendada, ja helistage seejärel makrole. Järgmine joonis näitab, kuidas tabel koos umlautidega välja näeb pärast makro käivitamist:
