Predmet:Re: VBA zamjena slova
eve ti edna moja funkcuja mozda ke ti pomognit
PreuzmiIzvorni kôd (Visual Basic):Public Function fnCZtoLAT(Naziv As String) As String
fnCZtoLAT = Naziv
fnCZtoLAT = Replace(fnCZtoLAT, "Ì", "E")
fnCZtoLAT = Replace(fnCZtoLAT, "Å ", "S")
fnCZtoLAT = Replace(fnCZtoLAT, "È", "C")
fnCZtoLAT = Replace(fnCZtoLAT, "Ø", "R")
fnCZtoLAT = Replace(fnCZtoLAT, "Ž", "Z")
fnCZtoLAT = Replace(fnCZtoLAT, "Ý", "Y")
fnCZtoLAT = Replace(fnCZtoLAT, "Á", "A")
fnCZtoLAT = Replace(fnCZtoLAT, "Í", "I")
fnCZtoLAT = Replace(fnCZtoLAT, "É", "E")
fnCZtoLAT = Replace(fnCZtoLAT, "Ú", "U")
fnCZtoLAT = Replace(fnCZtoLAT, "Ù", "U")
fnCZtoLAT = Replace(fnCZtoLAT, "ì", "e")
fnCZtoLAT = Replace(fnCZtoLAT, "Å¡", "s")
fnCZtoLAT = Replace(fnCZtoLAT, "è", "c")
fnCZtoLAT = Replace(fnCZtoLAT, "ø", "r")
fnCZtoLAT = Replace(fnCZtoLAT, "ž", "z")
fnCZtoLAT = Replace(fnCZtoLAT, "ý", "y")
fnCZtoLAT = Replace(fnCZtoLAT, "á", "a")
fnCZtoLAT = Replace(fnCZtoLAT, "í", "i")
fnCZtoLAT = Replace(fnCZtoLAT, "é", "e")
fnCZtoLAT = Replace(fnCZtoLAT, "ú", "u")
fnCZtoLAT = Replace(fnCZtoLAT, "ù", "u")
fnCZtoLAT = Replace(fnCZtoLAT, "æ", "c")
fnCZtoLAT = Replace(fnCZtoLAT, "ü", "u")
End Function
|