Přihlásit
 

none
odstranění diakritiky v MS excel

 > 

    Dotaz

  • Question
    Přihlásit se a hlasovat
    0
    Přihlásit se a hlasovat

    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

  • Question
    Přihlásit se a hlasovat
    3
    Přihlásit se a hlasovat

    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
  • Question
    Přihlásit se a hlasovat
    2
    Přihlásit se a hlasovat 
    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