Kako zamenjati vse znake v tabeli z drugimi znaki
Ali veš to? Podatki, ki jih prejmete od poslovnih partnerjev ali po uvozu podatkov, vsebujejo napačne znake. Lahko se zgodi, da se decimalna vejica pojavi povsod, kjer je decimalna vejica potrebna. Lahko pa se zgodi, da se med posameznimi številkami pojavijo poševnice.
Z ukazom REPLACE lahko poiščete te znake in jih nadomestite z drugimi. Če pa želite ta postopek izvajati pogosteje, morate vložiti veliko truda. Pri opravljanju naloge z makrom prihranite čas. Ta makro lahko v prihodnosti v isti situaciji znova hitro in enostavno pokličete.
Če želite makro vključiti v prazen delovni zvezek, odprite nov delovni zvezek v vseh različicah Excela s kombinacijo tipk CTRL N. Nato pritisnite kombinacijo tipk ALT F11, da odprete urejevalnik VBA. Tam izberite ukaz INSERT - MODULE. Nato vnesite naslednji makro:
Zamenjaj podznake ()
On Napaka Nadaljuj Naprej
Dim Cell As Range
Zatemni iskanje kot niz
Zamenjaj z As As String
SearchFor = "."
ReplaceBy = ","
Za vsako celico v ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Naslednja celica
Pri napaki Pojdi na 0
End Sub
Makro nadomesti decimalno vejico z decimalno vejico v vseh celicah, ki se uporabljajo na aktivnem delovnem listu. Če želite poklicati makro, aktivirajte želeni delovni list, pritisnite kombinacijo tipk ALT F8 in izberite makro IZMENJAVA ZNAKOV.
Če želite nadzorovati, katero vsebino iščete in zamenjate, prilagodite dve spremenljivki SUCHENNACH in REPLACE BY v makru.
