Predmet:Re: VBA zamjena slova
Hvala Gjoreski, probat cu prilagoditi za svoje potrebe.
Problem je kod mene sto za 1 slovo daje 2 znaka :
primjer:
ÄŚ = Č
evo otkrio gdje je greska, znaci trebalo je provjeriti kolone 3,5,6.
Ja sam provjeravao kolone 5 i 6, a 3 sam zaboravio tako da mi se u 3 koloni javljali neprevedeni znakovi.
Cudno mi je bilo kada sam uneo naredbu
if Instr(naziv,"ÄŚ")>0 then stop
kod se nije zaustavio na tom mjestu tako da sam isao istrazivati i otkrio aljkavost u kodu.
upotrijebio sam Gjoreskovu funkciju koja odlicno obavlja posao.
PreuzmiIzvorni kôd (Text):Public Function fnCZtoLAT(Naziv As String) As String
fnCZtoLAT = Naziv
fnCZtoLAT = Replace(fnCZtoLAT, "ÄZ", "C") '
fnCZtoLAT = Replace(fnCZtoLAT, "9 ", "S") 'Å
fnCZtoLAT = Replace(fnCZtoLAT, "Ć", "C") '
fnCZtoLAT = Replace(fnCZtoLAT, "9Ç", "s") 'Å¡
fnCZtoLAT = Replace(fnCZtoLAT, "ć", "c") '
fnCZtoLAT = Replace(fnCZtoLAT, "Äd", "c") '
fnCZtoLAT = Replace(fnCZtoLAT, "Ä‘", "d") '
fnCZtoLAT = Replace(fnCZtoLAT, "9>", "z") 'ž
fnCZtoLAT = Replace(fnCZtoLAT, "9Ý", "Z") 'Ž
End Function
pozivam ju na sljedeci nacin
nekiString=fnCZtoLat(nekiString)
kada nadete vremena mozete li mi reci kako upotrijebiti ovo:
FranceskoFoti je opisao kako prevesti znakove i rijesiti BOOM, usporeduje to sa Notepadom++
pa ako znate samo recite kako to upotrijebiti u VBA excelu
<franceskoFoti - Solving the Unicode, UTF8, UTF16 and Text Files conundrum in VBA>
zivot je moja domovina.
Ovaj post je ureden
1
puta. Posljednja izmjena 18.01.2021 12:37 od strane Avko.