Excel - Ekezetes karakterek csereje

[Rácz Róbert]

Szerkesztés menü - Csere -Összes cseréje?

2R


Zilahy Andra's wrote:
>
> Hi!
>
> A tárgybelit kéne automatikusan megoldanom egy cellatartományon. Ecxel 
> 2003-ról van szó.
>
> Adott egy tábla, amibe felveszek egy rakat usert.
>
> A oszlop: vezetéknév
> B oszlop: keresztnév
> ...
> F oszlop: ide generálom a usernevet (formátuma Tóth Józsefnél t.jozsef 
> lenne) a köv. függvénnyel:
>
> =ÖSSZEFÛZ(KISBETÛ(HA(VAGY(BAL(A2;2)="Cs";BAL(A2;2)="Dz";BAL(A2;2)="Gy";BAL(A2;2)="Ly";BAL(A2;2)="Ny";BAL(A2;2)="Sz";BAL(A2;2)="Ty";BAL(A2;2)="Zs");BAL(A2;2);BAL(A2;1)));".";KISBETÛ(B2)) 
>
>
> Ez a következőt csinálja: ha a vezetéknév összetett betűvel kezdődik, 
> akkor a usernév pont előtti része a kettős betű lesz kisbetűkkel, ha 
> szimpla betű, akkor csak egy betű van a pont előtt.
>
> Pl.: Kádár Kata = k.kata , de Szabó Kornélia = sz.kornélia
>
> Hogyan tudom megoldani az ékezetes karakterek automatikus cseréjét az 
> ékezetmentes megfelelőjükre?
> A neten találtam egy VBA scriptet, de a _PONTOS_ használatát már nem 
> mellékelték.
>
> ------------
> Option Explicit
>
> '-- Add more chars to these 2 string as you want
> '-- You may have problem with unicode chars that has code > 255
> '-- such as some Vietnamese characters that are outside of ASCII code 
> (0-255)
> Const AccChars = 
> "ŠŽšžYAÁÂAÄAÇEÉEËIÍÎI?NOÓÔOÖÕUÚUÜÛÝaáâaäaçeéeëiíîi?noóôoöõuúuüûýy"
> Const RegChars = 
> "SZszYAAAAAACEEEEIIIIDNOOOOOOUUUUUYaaaaaaceeeeiiiidnoooooouuuuuyy"
>
> Sub StripAccent(aRange As Range)
> '-- Usage: StripAccent Sheet1.Range("F2:F30")
> Dim A As String * 1
> Dim B As String * 1
> Dim i As Integer
>
> For i = 1 To Len(AccChars)
> A = Mid(AccChars, i, 1)
> B = Mid(RegChars, i, 1)
> aRange.Replace What:=A, _
> Replacement:=B, _
> LookAt:=xlPart, _
> MatchCase:=True
> Next
>
> End Sub
> -----------
>
> Mit kell ezzel csinálni, hogy vagy automatikusan fusson le, ha a 
> táblázatot megnyitom, vagy (ami még jobb), egy -pl. eszköztáron levő- 
> gombra kattintással tegye a dolgát?
>
> Ha van valakinek megoldása, szájbarágósan, ha kérhetném. :-)
>
> Előre is thx.
>
>