Příspěvky uživatele
< návrat zpět
Alebo takto Vám, bude objekt Tabuľka počítať zvyšné veci.
Samozrejme tie výpočty môže robiť aj makro, a vloží tak výsledky (deň, mesiac, rok), ale vek by som určite riešil vloženým vzorcom (nie hodnotou), alebo ho počítať až vo finále, kde budete s dátami pracovať. Na výstupe. Vek, ako je známo, sa časom (žiaľ) mení :)
Všetky ostatné makrá som odstránil.
Kritériá : Veď to skúste, je to filter vyhľadávania. Stlačíte Kritériá, vypíšete nejaké hľadané kritérium, a dáte Hľadať predo, alebo Hľadať ďalej.
Aké tlačítko "Vložiť" ??? Myslíte tým tlačítko "Nové" (prvé tlačítko, možný rozdiel verzie a lokalizácie Excelu) ? Prečo by ste mali zatvárať ten formulár ? Stlačím Nové, vypíšem, stlačím Nové vypíšem, zase stlačím Nové a vypíšem ... koľko chcem, potom stlačím Zavrieť, a mám tam všetko.
Len poupravený vzorec od Pavlus. Nemusí byť nikde v bunke uložené písmeno ("A", "B"...), len prvý znak názvu súboru stačí vytiahnuť, trošku kratším vzorcom ako hore uvedený.
=HLOOKUP(MID(CELL("filename";A1);FIND("[";CELL("filename";A1))+1;1);'Z:\kopirovani_dat\[Zdroj.xlsm]List1'!$1:$2;2;FALSE)
=VVYHLEDAT(ČÁST(POLÍČKO("filename";A1);NAJÍT("[";POLÍČKO("filename";A1))+1;1);'Z:\kopirovani_dat\[Zdroj.xlsm]List1'!$1:$2;2;NEPRAVDA)
Príloha by to snáď objasnila...
Líšia sa len (ne)zatvorením formulára po kliku na položku.
Ten vstupný formulár vloží nové dáta, keď kliknete na tlačítko "Zavrieť", nie na krížik.
Je to len slovíčkarenie, samozrejme, predpokladáme všetci to isté, že chcete nájsť nasledujúci riadok pod posledným záznamom. Ak sa tam nevyskytujú prázdne tak môže byť xlDown, ak áno tak xlUp. Inak clUp upravené na xlUp, to viete mobil a nočná hodina ... 
Určite nehľadáte posledný prázdny, ale prvý prazdny 
Robíte to cyklom, a prečo nie takto
PrazdnyBlg = Worksheets("Db").Cells(Rows.Count, 1).End(xlUp).Row + 1
A potom napr.
Worksheets("Db").Cells(PrazdnyBlg, 1).Value = neviem čo
PS: Z brucha z tabletu, tak snáď bez chyby.
Mne táto funkcia Excelu nevonia. Nedá sa nastaviť riadok, ktorý načíta pri otvorení. To môže viesť k fatálnym chybám, napr. pri odstraňovaní riadku. Každopádne asi myslíte toto. Opäť je to cez pravé myšítko, ale to sa dá zmeniť na tlačítko.
A posielam aj upravenú MAKROVÚ verziu. Pridal som zobrazenie počtu výsledkov, ale hlavne opravil nezmyselné priraďovanie poľa výsledkov do ListBoxu, ak je výsledkom iba jediný riadok - opravené. Formulár som zmenil na "plávajúci", teda je stále zobrazený (po pravom kliku), a len filtrujete a označujete kam sa má vložiť záznam. Dá sa to upraviť tak, že bude nový záznam vkladať vždy na prvý voľný riadok. Testované na 21300 úplne zaplnených dát, všetky riadky a stĺpce. Na mojom PC je to dostatočne rýchle.
A teraz hovoríte o čom ??? Aspoň povedzte o ktorej verzii hovoríte. Máte určite na mysli VZORCOVÚ verziu. To som tak nechal naschvál, lebo nepredpokladám, že sa niekto "nenarodí" :) Iba zmente formát stĺpca Tabuľky (nie celého stĺpca listu) na
General;;
Vek je počítaný vzorcom, a to že je 0, je iba následkom nezadaného dátumu narodenia, ktorý teda určite máte 0.1.1900. A ten nevadí ? Tiež zmente formát na
d.m.yyyy;;
Ešte som zmenil teda vzorec pre vek v liste Data.
Posielam upravenú VZORCOVÚ metódu.
To 123456(/a): mrk do Vášho druhého vlákna.
A EVALUATE si s tým tiež neporadí ?
Dim RNG As Range
With Worksheets("ListM")
Set RNG = .Range(Range("H2"), Range("H2").End(xlDown))
RNG.Value = Evaluate("=1*" & RNG.Address)
End With
Set RNG = Nothing
EDIT: Nie, neporadí, nevracia totiž pole, ani správnu interpretáciu.
Nechce sa mi čítať celé vlákno (ani toto, ani minulé), tak len okrajovo.
Vzorcami to riešiť (tak ako ste niekde spomenul/a) by mohlo byť možné napr. tak ako je navrhnuté v "Filter vzorcom.xlsx". Píšete do políčka a hneď počas písania sa filtruje Tabuľka. Tento vyfiltrovaný zoznam by sa dal potom použiť v Overení dát ako dostupný zoznam na vyplnenie formulára, či na čo to vôbec potrebujete. Nevýhoda je, že to nefunguje dostatočne rýchlo nad 1000 riadkov a berie do úvahy diakritiku. Veľkosť písma či čiastková zhoda nieje problém.
Výhodnejšie je makro. Makro to na vzorke požičanej od vovka.h (3500 riadkov) zvláda ľavou zadnou takmer okamžite aj s ignoráciou diakritiky, veľkosti písma, a samozrejme s čiastkovými zhodami v 4 stĺpcoch (ID, meno, OP, RČ). Pravý klik na riadok, kam vložiť údaje zo zdrojovej Tabuľky, vyfiltrovať písaním do TextBoxu, a klikom sa to vloží na želaný riadok. Súbor "Filter makrom.xlsm".
Použil som odstraňovanie diakritiky od eLCHa.
Zamýšľaný príspevok pošlite na účet fóra.
Heh, ale veď Vy musíte upresniť, čo potrebujete.
Chcete aby ste mali jedno políčko, do ktorého napíšete nejaký reťazec, a prehľadajú sa Vám všetky stĺpce, či sa tam nevyskytuje daný reťazec, a ak áno, tak sa všetky nájdené záznamy zobrazia ?
Chcete SVYHLEDAT? Tým chcete nájsť napr. jedno konkrétne číslo ID, a k nemu chcete vypísať ostatné údaje?
Ak chcete prehľadávať iný ako prvý stĺpec, nemôžete použiť SVYHLEDAT, ale INDEX+POZVYHLEDAT. Tieto možnosti sú ale primárne určené na nájdenie celej položky, a nie časti, ako popisujete.
Celkovo, otázok je veľa, mne sa nechce vypisovať Vám všetky možnosti, ale Vy napíšte čo potrebujete, ale aj popis ako to budete používať. Pretože napr. zamieňate slovo vyhľadať a filtrovať, tak je potrebné rapídne zlepšenie popisu.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články