< návrat zpět

MS Excel


Téma: Automaticke vyhladavanie rss

Zaslal/a 26.8.2015 21:55

Zdravim

Prosim Vas je mozne v exceli nejako automaticky nahadzovat hodnoty do funkcie vyhladavanie (ctrl + f) ?

Pretoze som pouzil funkciu "vlookup", aby mi dotiahla hodnoty z ineho harka, ale niektore nedotiahla a tie preto musim teraz rucne dohladavat (zvacsa sa tam nachadzaju len v inom stlpci)

Kedze tam mam ale cca 5000 takychto hodnot rad by som tento proces zautomatizoval, predstavujem si to nejak tak, ze mi excel automaticky prehlada cely zosit a pri zhode by hodnotu ulozil na novy harok - len neviem ako to zrealizovat, velmi rad uvitam vsetky Vase tipy a navrhy

Vopred velmi dakujem za kazdu radu

Příloha: jpg26445_bez-nazvu.jpg (140kB, staženo 26x)
26445_bez-nazvu.jpg
Zaslat odpověď >

#026448
elninoslov
Polovičku otázky nechápem. Nahradenie VLOOKUP je mnohonásobná vec, kdežto výpis vyhľadanej hodnoty na iný list je jednorázová vec.
Tu máte makro, ktoré prehľadá celú zvolenú oblasť (nastavíte pomocou konštánt) v Hárok1 a vypíše celý riadok s nájdenou hodnotou na prvý voľný riadok v liste Zhoda.

Dodajte prílohu s lepším popisom a bude sa tvoriť ľahšie.

Inak samotné vyvolanie natívneho okna Find:
Application.CommandBars.FindControl(ID:=1849).Execute
alebo
Application.Dialogs(xlDialogFormulaFind).Show
ale použiť ich programovo na hľadanie a vracanie výsledku neviem.

EDIT: Alebo použite túto UDF funkciu:
Function FULLLOOKUP(Co As Variant, Kde As Range, Stlpec As Integer) As Variant
Dim r As Long
On Error Resume Next 'Hľadanie hodnoty
r = Kde.Find(What:=Co, LookIn:=xlValues, LookAt:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False).Row
On Error GoTo 0 'Vrátenie odchytenia chyby
If r = 0 Then FULLLOOKUP = CVErr(xlErrNA) Else FULLLOOKUP = Kde.Parent.Cells(r, Stlpec).Value 'Vráť hodnotu zo zadaného stĺpca v najdenom riadku
End Function
Příloha: rar26448_hladaj-v-liste.rar (18kB, staženo 11x)
citovat
#039817
avatar
Dobry den,
chcel by som sa opytat, je mozne v exeli nejaka fcia tak, ze napisem nejaky slovny zaklad (nachadzajuci sa kdekolvek v retazci v bunke) a vedel by mi ich vsetky v stlpci naprA1:A20 najst a vypisat ?
resp nieco take, ze zacnem pisat slovo a nejaka fcia mi spravi to, ze sa ukazu slova kde je mnou uvedeny slovny zaklad kdekolvek v texte ?
a este ako vyvolam okno na vyhladavanie (ctrl+F) ze v tabulke je nejake "tlacitko" a ked nan "kliknem" otvori sa to iste ako ked dam z klavesnice ctrl+f ?
vdaka za infocitovat
#039820
elninoslov
...nájsť a vypísať... :
Taký vyhľadávací formulár, kde vidíte hneď výsledok po každom znaku, som tu už dával niekoľkokrát, len ktorá besná sviňa to nájde ... 5

...ukázať slová... :
Ak myslíte ako v internetovom prehliadači, všetky zvýraznené, tak to si neviem v Exceli predstaviť. Môžete označiť všetky bunky, ale slová nie.

...rovnaké ako Ctrl+F... :
To som písal v príspevku nad Vašim. Toto makro priraďte tlačítku:
Sub ShowFindReplace()
Application.CommandBars.FindControl(ID:=1849).Execute
End Sub
citovat

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

filtrovat data do dalšího listu

Jiří497 • 27.5. 19:00

Název listu

Stepanek100 • 27.5. 18:31

Název listu

elninoslov • 27.5. 16:09

filtrovat data do dalšího listu

Jiří497 • 27.5. 8:42

filtrovat data do dalšího listu

Kozaksonek • 26.5. 23:34

filtrovat data do dalšího listu

Jiří497 • 26.5. 23:06

Formátování vzorců

Vovka • 26.5. 21:29