Izmantojot makro, varat viegli nomainīt visus umlautus
Parasti tā nav tik liela problēma kā pirms dažiem gadiem, taču umlauts joprojām var radīt problēmas, apmainoties ar datiem. Šajā attēlā parādīta tabula ar tekstiem, kas satur umlautus:
Ja jums ir jāapmainās ar informāciju ar citām sistēmām vai jānosūta dati uz citām valstīm, tādēļ var būt lietderīgi aizstāt visus tabulā norādītos umlautus. Jūs aizstājat ä ar ae, ö ar oe utt.
Protams, to var izdarīt, atkārtoti izsaucot funkciju EDIT - REPLACE. Bet tas ir daudz darba. Ja vēlaties nomainīt visus trīs umlautus ä, ö un ü ar lielajiem un mazajiem burtiem, kā arī ß, jums jāveic septiņas nomaiņas darbības pēc kārtas.
Ar makro ir vieglāk. Šeit ir atbilstošais programmas kods:
Sub ReplaceUmlauts ()
Dim šūna kā diapazons
Ar Application.WorksheetFunction
Katrai atlasītajai šūnai
Šūna.Vērtība = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae")), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Nākamā šūna
Beigt ar
Beigt apakš
Izmantojot funkciju, makro ievieto atbilstošos aizstājējus Aizstājēji savā starpā. Šis ir tabulas funkcijas REPLACE angļu valodas nosaukums.
Lai izmantotu makro, vispirms atlasiet šūnas, kurās vēlaties aizstāt umlautus, un pēc tam izsauciet makro. Šajā attēlā parādīts, kā izskatās tabula ar umlautiem pēc makro palaišanas:
