Kedves Fórumtársak!
MS office alatt működik egy visual basic kód ami lecseréli, de libre office alatt hogyan tudom macrózni ezt? Elakadok vele.
MS alatt itt: Sub Ekezet()
Dim s, s1 As String
s = "ÁáÉéÖöŐőÓóÚúŰűÍí"
s1 = "AaEeOoOoOoUuUuIi"
For Each Cell In ActiveSheet.UsedRange.Cells
For i = 1 To Len(s)
char = Mid(s, i, 1)
chara = Mid(s1, i, 1)
If InStr(1, Cell.Value, char, vbTextCompare) > 0 Then
Cell.Value = Replace(Cell.Value, char, chara)
End If
Next i
Next
End Sub
Hogyan legyen ebből libre office makro kód