Keresés

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

  • Oly

    őstag

    válasz Delila_1 #22692 üzenetére

    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