Makrá pre MS Office
Bez diakritiky - Excel
Obdobne ako pre Word, aj pre Excel som vytvoril dve makrá. Prvé makro odstráni diakritiku iba z aktívnej bunky, druhé makro odstráni diakritiku z celého aktívneho pracovného hárka.
Stačí ak si nakopírujete nižšie uvedené kódy do editora makier v Exceli. Klávesovou skratkou Alt+F11, alebo cez menu Nástroje - Makro - Editor jazyka Visual Basic spustiť editor. Tam vložiť kód do položky Module1 a uložiť. Makrá potom môžete spúšťať klávesovou skratkou Alt+F8 a z ponuky si vybrať či chcete odstrániť makro z bunky, alebo celého hárka.
Makro na odstránenie diakritiky z aktívnej bunky:
Sub BezDia_V_Bunke() ' Odstrániť Diakritiku iba z aktívnej buňky ' Makro zaznamenané 23.11.2006, autor: Pásztor Karol Dim DiaANO As String Dim DiaNIE As String DiaANO = "ľĺščťžýáäíéěůďôňřĽĹŠČŤŽÝÁÄÍÉĚŮĎÔŇŘŕŔúÚüÜűŰóÓöÖőŐ" DiaNIE = "llsctzyaaieeudonrLLSCTZYAAIEEUDONRrRuUuUuUoOoOoO" pocet = Len(DiaANO) For od = 1 To pocet ActiveCell.Replace _ What:=Mid(DiaANO, od, 1), _ Replacement:=Mid(DiaNIE, od, 1), _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ MatchCase:=True, _ SearchFormat:=False, _ ReplaceFormat:=False Next End Sub
Makro na odstránenie diakritiky z celého aktívneho hárka:
Sub BezDia_V_Harku() ' Odstrániť Diakritiku z celého aktívneho hárka ' Makro zaznamenané 23.11.2006, autor: Pásztor Karol Dim DiaANO As String Dim DiaNIE As String DiaANO = "ľĺščťžýáäíéěůďôňřĽĹŠČŤŽÝÁÄÍÉĚŮĎÔŇŘŕŔúÚüÜűŰóÓöÖőŐ" DiaNIE = "llsctzyaaieeudonrLLSCTZYAAIEEUDONRrRuUuUuUoOoOoO" pocet = Len(DiaANO) For od = 1 To pocet Cells.Replace _ What:=Mid(DiaANO, od, 1), _ Replacement:=Mid(DiaNIE, od, 1), _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ MatchCase:=True, _ SearchFormat:=False, _ ReplaceFormat:=False Next End Sub