Új hozzászólás Aktív témák

• Oly őstag

  #22693

  #22692 Delila_1

  2014-07-31 08:27:30

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #22692 Delila_1

  Szia

  Valóban kimaradt, már pótoltam.

  Az ASCII sem ment. Excelben és a forráskódban is Alt+0213-mal írtam be, de nem ismeri fel.

  de kis guglizás után ezzel sikerült:

  Function MAGYARIT(cella As String)
  cella = Replace(cella, "é", "e")
  cella = Replace(cella, "á", "a")
  cella = Replace(cella, ChrW(369), "u")
  cella = Replace(cella, ChrW(337), "o")
  cella = Replace(cella, "ú", "u")
  cella = Replace(cella, "ö", "o")
  cella = Replace(cella, "ü", "u")
  cella = Replace(cella, "ó", "o")
  cella = Replace(cella, "í", "i")
  cella = Replace(cella, "É", "E")
  cella = Replace(cella, "Á", "A")
  cella = Replace(cella, "Ú", "U")
  cella = Replace(cella, ChrW(336), "O")
  cella = Replace(cella, ChrW(368), "U")
  cella = Replace(cella, "Ö", "O")
  cella = Replace(cella, "Ü", "U")
  cella = Replace(cella, "Ó", "O")
  cella = Replace(cella, "Í", "I")
  MAGYARIT = cella
  End Function

Új hozzászólás Aktív témák