Voit helposti korvata kaikki ummut makron avulla
Se ei yleensä ole niin suuri ongelma kuin muutama vuosi sitten, mutta umlautit voivat silti aiheuttaa ongelmia tietojen vaihdossa. Seuraavassa kuvassa on taulukko, jossa on umlautteja sisältäviä tekstejä:
Jos sinun on vaihdettava tietoja muiden järjestelmien kanssa tai lähetettävä tietoja muihin maihin, voi siksi olla hyödyllistä korvata kaikki taulukon umlautit. Vaihdat ä: n ae: ksi, ö: n oe: ksi jne.
Voit tietysti tehdä tämän soittamalla toistuvasti EDIT - REPLACE -toimintoon. Mutta se on paljon työtä. Jos haluat korvata kaikki kolme umlautia ä, ö ja ü isoilla ja pienillä kirjaimilla sekä ß, sinun on suoritettava seitsemän korvaavaa toimenpidettä peräkkäin.
Makron avulla se on helpompaa. Tässä on sopiva ohjelmakoodi:
Osa KorvaaUmlauts ()
Dim -solun alue
With Application.WorksheetFunction
Jokaiselle valitulle solulle
Solun arvo = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae")), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Seuraava solu
Lopeta
End Sub
Makro sisäistää sopivat korvaavat puhelut toiminnon kautta Varajäsenet toisiinsa. Tämä on REPLACE table -toiminnon englanninkielinen funktion nimi.
Jos haluat käyttää makroa, valitse ensin solut, joissa haluat korvata umlautit, ja soita sitten makro. Seuraava kuva näyttää, miltä umlaut -taulukko näyttää makron käynnistämisen jälkeen:
