none
odstranění diakritiky v MS excel

    Dotaz

  • zdravim,

    měl bych dotaz:

    jak v MS excel v určitém sloupci odstraním diakritiku?

    děkuji za případné informace a rady

    s pozdravem rudolf dvořák ml.

    pondělí 19. dubna 2010 7:16

Odpovědi

  • Nevim, neuvedl jsi verzi Excelu. Jedna se o funkci napsanou v jazyce VBA (Visual Basic for Applications), musis ji tedy vlozit ve VBA editoru.

    Obecne: otevri si editor VBA (Excel2007: karta Vyvojar - Visual Basic)  - ThisWorkbook - Pravomys - Insert - module - sem vloz. Pote tlac. Debug - Compile. Zavri oko VBA. Odted muzes v XL pouzivat vyseuvedenou fci, napr

    =denabodenicka(A1)

    MP

    pondělí 19. dubna 2010 8:11
    Moderátor
  • Function denabodenicka(source As Variant) As String
    
    Const cz As String = "áÁčČďĎéÉěĚíÍňŇóÓřŘšŠťŤúÚůŮýÝžŽ" 
    Const en As String = "aAcCdDeEeEiInNoOrRsStTuUuUyYzZ" Dim TmpS As String Dim OutS As String Dim I As Integer OutS = "" If IsNull(source) Or source = "" Then denabodenicka = "" Else For I = 1 To Len(source) TmpS = Mid(source, I, 1) If InStr(1, cz, TmpS, vbBinaryCompare) > 0 Then TmpS = Mid(en, InStr(1, cz, TmpS, vbBinaryCompare), 1) OutS = OutS & TmpS Next I denabodenicka = OutS End If End Function

    Ahoj,
    mam na to funkci, pohledam :)

     

     

    MP

    pondělí 19. dubna 2010 7:37
    Moderátor

Všechny reakce