Naudodami makrokomandą galite lengvai pakeisti visus umlautus
Paprastai tai nėra tokia didelė problema, kokia buvo prieš keletą metų, tačiau keisdamiesi duomenimis vis tiek gali kilti problemų. Šiame paveikslėlyje parodyta lentelė su tekstais, kuriuose yra umlautų:
Jei jums reikia keistis informacija su kitomis sistemomis arba siųsti duomenis į kitas šalis, gali būti naudinga pakeisti visus lentelėje nurodytus terminus. Jūs pakeisite ä į ae, ö į oe ir pan.
Žinoma, tai galite padaryti pakartotinai iškviesdami funkciją REDAGUOTI - PAKEISTI. Bet tai yra daug darbo. Jei norite pakeisti visas tris umlautes ä, ö ir ü didžiosiomis ir mažosiomis raidėmis, taip pat ß, turite atlikti septynias pakeitimo operacijas iš eilės.
Su makrokomandomis lengviau. Čia yra tinkamas programos kodas:
Sub ReplaceUmlauts ()
„Dim Cell“ kaip diapazonas
Su Application.WorksheetFunction
Už kiekvieną pasirinktą langelį
Ląstelė.Vertė = .Pakeisti (.Pakeisti (.Pakeisti (.Pakeisti (_
.Pavaduotojas (.Pakeičiamasis (.Pakeičiamasis (Ląstelės.Vertė, "ä", "ae"), _
„ö“, „oe“), „ü“, „ue“), „Ö“, „Oe“), „Ü“, „Ue“), „ß“, „ss“), _
„Ä“, „Ae“)
Kitas langelis
Pabaiga su
Pabaiga Sub
Makrokomanda įdiegia atitinkamus pakeitimo skambučius per funkciją Pavaduotojai vienas į kitą. Tai yra lentelės funkcijos REPLACE anglų kalbos pavadinimas.
Norėdami naudoti makrokomandą, pirmiausia pasirinkite langelius, kuriuose norite pakeisti umlautus, ir tada iškvieskite makrokomandą. Toliau pateiktame paveikslėlyje parodyta, kaip atrodo lentelė su umlautais paleidus makrokomandą:
