< návrat zpět

MS Excel


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

Zaslal/a 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!

Zaslat odpověď >

#009058
avatar
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
#009064
avatar
Dobrý den,

děkuji, přiznám se, že si s tím ale nevím rady - kam mám toto vložit?citovat
#009068
avatar
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
#009069
avatar
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
#009070
avatar

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
#009071
avatar
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
#009072
avatar
je to zlozitejsie ako to na prvy pohlad vypadalo, skusim porozmyslat ale nevyzera to velmi dobre.citovat
#009074
avatar
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!!!"
4citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

MINIFS napříč listy

hard • 22.3. 22:56

Doplňování formuláře v Ecelu

Martin-Peca • 22.3. 17:23

Doplňování formuláře v Ecelu

elninoslov • 22.3. 17:21

Optimalizace excelového souboru

Jirka32 • 22.3. 17:08

vypsání minimální hodnoty

fortes • 22.3. 16:52

Posun buněk ve sloupci pomocí vzorce

marekj • 22.3. 16:40

Optimalizace excelového souboru

lubo • 22.3. 16:24