|
 | | |
| Autor | Správa |
|---|
kati123
Užívateľ
Založený: 05.12.2009
Príspevky: 32
 |  Zaslal: Ut 24.01.12 14:37 |   |
Ahojte, chcela by som vas poprosit o radu, ako by malo vyzerat makro na odstranenie diakritiky v excely?  |
| |
  |
|
magic
Užívateľ
Založený: 22.08.2011
Príspevky: 588
Bydlisko: Turany
Vek: 16
| | Zaslal: Ut 24.01.12 14:52 | |
no ja by som to robil jedine tak ze pojdes po znaku cyklom a porovnas a vymenis
urcite sa to bude aj inak dat jednoduchsie |
| |
|
|
kati123
Užívateľ
Založený: 05.12.2009
Príspevky: 32
| | Zaslal: Ut 24.01.12 14:53 | |
prepac, ale nerozumiem |
| |
|
|
don jebot
Užívateľ
Založený: 03.04.2008
Príspevky: 3453
Bydlisko: Trnava
| | Zaslal: Ut 24.01.12 15:55 | |
|
|
|
kati123
Užívateľ
Založený: 05.12.2009
Príspevky: 32
| | Zaslal: Ut 24.01.12 16:13 | |
super, velmi pekne dakujem, urobila som to nasledovne:
http://www.pasztor.name/sw_makro.php 
// pridané po 1 minúte od posledného príspevku
este by som vas chcela poprosit o vysletlenie, kedze neprogramujem vo Visual Basicu a stve ma, ze tomu nerozumiem:
Sub BezDiakritiky()
' Makro na odstránenie diakritiky z textu
' Makro zaznamenané 01.04.2001, autor Pásztor Karol
Dim DiaANO As String
Dim DiaNIE As String
DiaANO = "ľĺščťžýáäíéěůďôňřĽĹŠČŤŽÝÁÄÍÉĚŮĎÔŇŘŕŔúÚüÜűŰóÓöÖőŐ"
DiaNIE = "llsctzyaaieeudonrLLSCTZYAAIEEUDONRrRuUuUuUoOoOoO"
pocet = Len(DiaANO)
For od = 1 To pocet
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Mid(DiaANO, od, 1)
.Replacement.Text = Mid(DiaNIE, od, 1)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
Dakujem |
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
