Predmet:Re: VBA zamjena slova
eevo moja funkcija.
u str1 upisite znake koje trazite u stringu a u str2 na istoj poziciji znak u koji se mijenja.
PreuzmiIzvorni kôd (Visual Basic):Public Function fnCZtoLAT(Naziv As String) As String
'******************************************************
'Autor:zxz
'datum: 19.01.2021
'mijenja karaktere iz str1 u adekvatne po poziciji u str2
'u string kao ulazni parametar Naziv
'********************************************************
Const str1 = "IÅ EOŽÝÁÍÉÚUiÅ¡eožýáíéúua "
Const str2 = "ESCRZYAIEUUescrzyaieuucu"
Dim duz As Integer, i As Integer, poz As Integer, n As Integer
Dim car1 As String * 1, car2 As String * 1, str As String
duz = Len(str1)
str = Naziv
n = 1
For i = 1 To duz
car1 = Mid(str1, i, 1)
car2 = Mid(str2, i, 1)
poz = InStr(n, str, car1)
If poz > 0 Then
str = Replace(str, car1, car2)
End If
Next i
fnCZtoLAT = str
End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.