Richard99
,
(20.7.2012 9:37)#009058 
Function najdi_rozdil(a, b)
najdi_rozdil = ""
Delka = Application.WorksheetFunction.Max(Len(a), Len(b))
For i = 1 To Delka
If Mid(a, i, 1) <> Mid(b, i, 1) Then najdi_rozdil = najdi_rozdil & Mid(b, i, 1)
Next i
End Function
WBEL,
(20.7.2012 11:26)#009064 Dobrý den,
děkuji, přiznám se, že si s tím ale nevím rady - kam mám toto vložit?
misocko,
(20.7.2012 15:16)#009068 spustis Visual basic editor Alt+F11, v editore das vlozit Modul, a ten text vlozis do toho modulu. zavries editor.
teraz kliknes do nejakej bunky a das vlozit funkciu - novu funkciu najdes medzi User defined.
PS - nefunguje to dobre, ak je rozdiel v textoch hned na zaciatku tak cely text vyhodi ako rozdiel
WBEL,
(20.7.2012 16:03)#009069 Děkuji, vložit se mi podařilo, ale pravdu díte, není to úplně ono - předpokládám tedy, že to jinak nejde?
misocko,
(20.7.2012 16:09)#009070
Function najdi_rozdil(a, b)
najdi_rozdil = ""
Delka = Application.WorksheetFunction.Max(Len(a), Len(b))
If Len(a) >= Len(b) Then
aa = a
bb = b
End If
If Len(b) > Len(a) Then
aa = b
bb = a
End If
j = 1
For i = 1 To Delka
If Mid(aa, i, 1) <> Mid(bb, j, 1) Then
najdi_rozdil = najdi_rozdil & Mid(aa, i, 1)
GoTo tu
End If
j = j + 1
tu:
Next i
End Function
skus toto, trochu som si dovolil upravit kod Richarda99
WBEL,
(20.7.2012 16:17)#009071 Děkuji, ale pořád to není ono (ačkoli i toto je použitelné). V tuto chvíli to vypíše všechny znaky, které nejsou v první buňce, ale nevím, které jsou v první buňce, ale nejsou ve druhé. Navíc pokud se liší první písmeno, bere to jako naprostý rozdíl...
misocko,
(20.7.2012 16:24)#009072 je to zlozitejsie ako to na prvy pohlad vypadalo, skusim porozmyslat ale nevyzera to velmi dobre.
, 
WALL na Facebooku
RSS nejnovější články