Prikazi cijelu temu 17.01.2021 22:17
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: VBA zamjena slova
eve ti edna moja funkcuja mozda ke ti pomognit

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function fnCZtoLAT(Naziv As String) As String
  2.     fnCZtoLAT = Naziv
  3.     fnCZtoLAT = Replace(fnCZtoLAT, "Ì", "E")
  4.     fnCZtoLAT = Replace(fnCZtoLAT, "Å ", "S")
  5.     fnCZtoLAT = Replace(fnCZtoLAT, "È", "C")
  6.     fnCZtoLAT = Replace(fnCZtoLAT, "Ø", "R")
  7.     fnCZtoLAT = Replace(fnCZtoLAT, "Ž", "Z")
  8.     fnCZtoLAT = Replace(fnCZtoLAT, "Ý", "Y")
  9.     fnCZtoLAT = Replace(fnCZtoLAT, "Á", "A")
  10.     fnCZtoLAT = Replace(fnCZtoLAT, "Í", "I")
  11.     fnCZtoLAT = Replace(fnCZtoLAT, "É", "E")
  12.     fnCZtoLAT = Replace(fnCZtoLAT, "Ú", "U")
  13.     fnCZtoLAT = Replace(fnCZtoLAT, "Ù", "U")
  14.     fnCZtoLAT = Replace(fnCZtoLAT, "ì", "e")
  15.     fnCZtoLAT = Replace(fnCZtoLAT, "Å¡", "s")
  16.     fnCZtoLAT = Replace(fnCZtoLAT, "è", "c")
  17.     fnCZtoLAT = Replace(fnCZtoLAT, "ø", "r")
  18.     fnCZtoLAT = Replace(fnCZtoLAT, "ž", "z")
  19.     fnCZtoLAT = Replace(fnCZtoLAT, "ý", "y")
  20.     fnCZtoLAT = Replace(fnCZtoLAT, "á", "a")
  21.     fnCZtoLAT = Replace(fnCZtoLAT, "í", "i")
  22.     fnCZtoLAT = Replace(fnCZtoLAT, "é", "e")
  23.     fnCZtoLAT = Replace(fnCZtoLAT, "ú", "u")
  24.     fnCZtoLAT = Replace(fnCZtoLAT, "ù", "u")
  25.     fnCZtoLAT = Replace(fnCZtoLAT, "æ", "c")
  26.     fnCZtoLAT = Replace(fnCZtoLAT, "ü", "u")
  27.  
  28. End Function