• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Vypsání rozdílů mezi buňkami

Zaslal/a WBEL 20.7.2012 8:58

Dobrý den, rád bych se zeptal, zda existuje v Excelu možnost (funkce) srovnat obsahy dvou buněk a vypsat rozdíly mezi nimi.

Uvedu příklad: v jedné buňce je uvedeno "jablko" a ve druhé "jablko!!!". Výsledkem takové funkce by tedy bylo "!!!". Potřebuji párovat informace, které se liší právě jen několika znaky a funkce SVYHLEDAT zde není příliš nápomocná...

Děkuji!

Jméno
Kontrola
Text
	Ukázka

---

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 Functioncitovat

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?citovat

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 rozdielcitovat

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?citovat

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 Richarda99citovat

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...citovat

misocko(20.7.2012 16:24)#009072

je to zlozitejsie ako to na prvy pohlad vypadalo, skusim porozmyslat ale nevyzera to velmi dobre.citovat

marjankaj(20.7.2012 22:22)#009074

WBEL.
A čo by to malo podľa teba vypísať v tomto prípade?
"jankohraško" a "hraškojanko"?
hraško alebo janko?

Alebo medzi týmito?
"xypetr" a "petrxyz"
a tu xyz alebo petrz?

Poprípade
"123jablko" a "456789jab$lko!!!"
citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse