< 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!


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

Novinky

Formulář Faktura III

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

Aktivní diskuse

Původní soubor neměnit a ukládat jen jeho kopie

Pard • 22.12. 12:49

Vytvoření grafu

marjankaj • 22.12. 10:28

Čtení z HTML?

lubo • 22.12. 10:01

Vytvoření grafu

Lukas1990 • 21.12. 23:38

Vytvoření grafu

Pavlus • 21.12. 23:07

Máte někdo starší sešit? ;)

eLCHa • 21.12. 22:42

Vytvoření grafu

Lukas1990 • 21.12. 22:26