Ještě bych zapoměl... nikdy předem nevím, kolik bude mít každá z tabulek řádků... max však 50.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Výtah dat
MS Excel
Téma: Výtah dat 
Zaslal/a Dejavu 26.9.2012 21:27
Ahojte, měl bych na vás prosbu... opět si nevím rady.
Mám list evidence kontroly viz. příloha, potřebuji, aby se mi do jiného sešitu ukládaly pod sebe hodnoty z buňky celkem min. a to tak, že v jednom sloupci bude LK velké a ve druhém sloupci LK malé a aby byly tříděné podle datumu...
asi takto :
Malé LK Velké LK
20.9.2012 180 20.9.2012 210
21.9.2012 200 21.9.2012 190
Tušíte někdo jak toho dosáhnout pomocí maker (jsem začátečník a v tomto ohledu zcela mimo mísu :))?
Btw. sešit je jen provizorní, nejsou na něm žádná makra, je to jen kopie listu.
Předem děkuji za jakoukoliv snahu o pomoc.
Dejavu
Příloha: 
9612_evidence-kontroly.7z (27kB, staženo 31x)
9612_evidence-kontroly.7z (27kB, staženo 31x)zas nerozumiem
co je LK? myslim ze pomocou makra to nebude ziaden problem ale fakt nechapem co by to malo spojit, neviem mozno preto ze mam iba Ex2003 a niektore funkcie novych mi nebezia , ale ani z prilozeneho suboru nechapem o co ide (mozes to exportovat do 2003 a poslat?). v prilozenom subore nevidim ziadne datumi a v ukazke tu hore mas nejake datumi, odkial su?
a sorry: uz vidim 20.92012 aj 180, ale co ostatne?citovat
co je LK? myslim ze pomocou makra to nebude ziaden problem ale fakt nechapem co by to malo spojit, neviem mozno preto ze mam iba Ex2003 a niektore funkcie novych mi nebezia , ale ani z prilozeneho suboru nechapem o co ide (mozes to exportovat do 2003 a poslat?). v prilozenom subore nevidim ziadne datumi a v ukazke tu hore mas nejake datumi, odkial su?
a sorry: uz vidim 20.92012 aj 180, ale co ostatne?citovat
LK je souřadnicový měřicí stroj a rozděluji ho na velký a malý...
Když na tím tak přemýšlím, tak mi data budou lépe vyhovovat v tomto tvaru:
Datum male LK velké LK
20. 9.2012 180 200
Samozřejmě to potřebuji jen makrem, ale nevím, jak na to... Ty to ani neotevřeš ? Žádná makra tam nejsou, jen potřebuji vytáhnout ty hodnoty a roztřídit je podle data a stroje...
Ostatní data nepotřebuji dále zpracovávat... zatím :)citovat
Když na tím tak přemýšlím, tak mi data budou lépe vyhovovat v tomto tvaru:
Datum male LK velké LK
20. 9.2012 180 200
Samozřejmě to potřebuji jen makrem, ale nevím, jak na to... Ty to ani neotevřeš ? Žádná makra tam nejsou, jen potřebuji vytáhnout ty hodnoty a roztřídit je podle data a stroje...
Ostatní data nepotřebuji dále zpracovávat... zatím :)citovat
1)Poslední modifikace:
Co všechno chceš sledovat. Opravdu všechno?
2)Výtah dat:
Při jaké příležitosti to chceš uložit? Při každé změně sumy? Nebo přidat tento záznam v rámci sledování modifikace?
3)Kopírování komentáře:
Co z něho? Všechno? Kdy? Kam?
4)Menu Komentář:
Komentáře lze vkládat kdekoliv? Nebo jen editovat v tom jednom sloupci?
Do toho komentáře budeš vkládat nějaký identifikátor.
Pokaždé jiný, nebo z nějakého seznamu s možností doplnění chybějícího?
Bude vkládaný pouze tento identifikátor, nebo kromě něho můžou být vkládány další libovolné informace?
V jakém rozsahu?citovat
Co všechno chceš sledovat. Opravdu všechno?
2)Výtah dat:
Při jaké příležitosti to chceš uložit? Při každé změně sumy? Nebo přidat tento záznam v rámci sledování modifikace?
3)Kopírování komentáře:
Co z něho? Všechno? Kdy? Kam?
4)Menu Komentář:
Komentáře lze vkládat kdekoliv? Nebo jen editovat v tom jednom sloupci?
Do toho komentáře budeš vkládat nějaký identifikátor.
Pokaždé jiný, nebo z nějakého seznamu s možností doplnění chybějícího?
Bude vkládaný pouze tento identifikátor, nebo kromě něho můžou být vkládány další libovolné informace?
V jakém rozsahu?citovat
Ahoj kp,
1, poslední modifikace - již mám vyřešeno díky :)
viz. (excelplus.net)
2, Výtah dat, ideální by bylo opět tlačítko v
rolovacím menu ( po stisku praveho tlačítka).
Funguje to jako měsíční report, který udává kolik se odpracovalo hodin na jednotlivých strojích.
Pokud by to šlo udělat tak, že by se to ukládalo do souboru, který bude pojmenován:
"měsíční report měsíc rok" bylo by to ideální, ale není to podmínkou... jen by bylo dobré, aby se nemíchaly měsíce do jednoho souboru... případně můžou být v jednom, ale každý měsíc na jiný list...
3. Kopírování komentáře by se mělo provádět jen na listě kontrola, měl by se zkopírovat při každé změně komentáře a to do buňek pod tabulkou. Kopírovat by se měl jen text komentáře... a to jen číselný, tedy kod operace.
4. komentáře lze vkládat jen do toho jednoho sloupce, do komentáře se bude vkládat jen číslo operace, předem nikdy nevím, jaké bude... jsou to miliony kombinací... vkládat se bude pouze tento identifikátor a jeho rozsah je maximálně 3. řádky.
Také by bylo v menu vhodné tlačítko na vymazání těchto komentářů, slouží jen pro tištěnou formu, list se odesílá zákazníkovi bez těchto komentářů.
Předem díky, pokud by bylo ještě cokoliv nejasného, rád doplním chybějící info, nebo případné nejasnosti.
Dejavucitovat
1, poslední modifikace - již mám vyřešeno díky :)
viz. (excelplus.net)
2, Výtah dat, ideální by bylo opět tlačítko v
rolovacím menu ( po stisku praveho tlačítka).
Funguje to jako měsíční report, který udává kolik se odpracovalo hodin na jednotlivých strojích.
Pokud by to šlo udělat tak, že by se to ukládalo do souboru, který bude pojmenován:
"měsíční report měsíc rok" bylo by to ideální, ale není to podmínkou... jen by bylo dobré, aby se nemíchaly měsíce do jednoho souboru... případně můžou být v jednom, ale každý měsíc na jiný list...
3. Kopírování komentáře by se mělo provádět jen na listě kontrola, měl by se zkopírovat při každé změně komentáře a to do buňek pod tabulkou. Kopírovat by se měl jen text komentáře... a to jen číselný, tedy kod operace.
4. komentáře lze vkládat jen do toho jednoho sloupce, do komentáře se bude vkládat jen číslo operace, předem nikdy nevím, jaké bude... jsou to miliony kombinací... vkládat se bude pouze tento identifikátor a jeho rozsah je maximálně 3. řádky.
Také by bylo v menu vhodné tlačítko na vymazání těchto komentářů, slouží jen pro tištěnou formu, list se odesílá zákazníkovi bez těchto komentářů.
Předem díky, pokud by bylo ještě cokoliv nejasného, rád doplním chybějící info, nebo případné nejasnosti.
Dejavucitovat
2)Tabulky evidence budeš každý den resetovat (mazat), předpokládám.
To by se dalo ošetřit makrem. Před resetem stav min. uložit i s datumem do textového souboru např. pro celý rok.
Tyto záznamy se pak dají načítat do nějakého report.xls podle různých zadání.
3)Zde je třeba zjistit a dodržovat znak pro řádkování.
Používá se Chr(10), Chr(13), Chr(10) & Chr(13), nebo obdoba předcházejícího vbCrLf.
Zde použiju příklad pro Chr(10).
MyStr = ActiveCell.Comment.Text 'vloží celý text komentáře
pzcx = InStr(1, MyStr, Chr(10)) + 1 'první znak v druhém řádku
MyStr = Mid(MyStr, pzcx) 'vloží text z koment bez prvního řádku.
' Taky lze v případě řádkování tohoto kódu (nechápu), znaky pro řádek odtranit.
MyStr = Replace(MyStr, Chr(10), vbNullString)
Sheets("kontrola").cells(x,y) = MyStr
4)Zde nevím jakým způsobem v makru dostat operátora do objektu Comment, do režimu Edit, pak aby čekalo na ukončení tohoto
vkládání a pak pokračovalo.
Kdyby se vkládal pouze jednořádkový kód, mohl by se použít InputBox().
V případě víceřádkového zápisu bych asi vytvořil UserForm s TextBoxem.
Tato procedura by následně vypsala tento text do Komentáře i do Sheets("kontrola").
Při tisku se snad komentáře netisknou?
Ale i tak není problém Tisk ošetřit makrem a před tímto tiskem komentáře odstranit.citovat
To by se dalo ošetřit makrem. Před resetem stav min. uložit i s datumem do textového souboru např. pro celý rok.
Tyto záznamy se pak dají načítat do nějakého report.xls podle různých zadání.
3)Zde je třeba zjistit a dodržovat znak pro řádkování.
Používá se Chr(10), Chr(13), Chr(10) & Chr(13), nebo obdoba předcházejícího vbCrLf.
Zde použiju příklad pro Chr(10).
MyStr = ActiveCell.Comment.Text 'vloží celý text komentáře
pzcx = InStr(1, MyStr, Chr(10)) + 1 'první znak v druhém řádku
MyStr = Mid(MyStr, pzcx) 'vloží text z koment bez prvního řádku.
' Taky lze v případě řádkování tohoto kódu (nechápu), znaky pro řádek odtranit.
MyStr = Replace(MyStr, Chr(10), vbNullString)
Sheets("kontrola").cells(x,y) = MyStr
4)Zde nevím jakým způsobem v makru dostat operátora do objektu Comment, do režimu Edit, pak aby čekalo na ukončení tohoto
vkládání a pak pokračovalo.
Kdyby se vkládal pouze jednořádkový kód, mohl by se použít InputBox().
V případě víceřádkového zápisu bych asi vytvořil UserForm s TextBoxem.
Tato procedura by následně vypsala tento text do Komentáře i do Sheets("kontrola").
Při tisku se snad komentáře netisknou?
Ale i tak není problém Tisk ošetřit makrem a před tímto tiskem komentáře odstranit.citovat
Resetovat (promazávat) se nic nebude, každý den se tento soubor bude rozkopírovávat a ukládat na disk...
Ten 1. tedy původní zůstává na jednom místě, tím pádem mám kontrolu nad tím, jestli v něm proběhly nějaké úpravy, či nikoliv...
Omlouvám se za nechápavost, ale 3. bod jsem tak nějak nepochopil...
4. při tisku se právě ty komentáře tisknou... proto potřebuji, aby se jejich obsah zkopíroval pod každou z tabulek... Pokud totiž vytisknu tabulku, komentáře jsou skryty, nebo při zobrazení překáží... proto je potřebuji zkopírovat z tabulky do místa pod ní..
Komentáře se tedy promazávají až po tisku a to jen z buňěk pod tabulkou.
A s těmi textboxy nevím... List oprava totiž existuje až po průběhu makra, které zkopíruje tabulky z 1. listu... Pokud jsem předchozí makra nepochopil špatně...
Proto si nedovedu zatím představit jak to myslíš, ale možná se pletu...citovat
Ten 1. tedy původní zůstává na jednom místě, tím pádem mám kontrolu nad tím, jestli v něm proběhly nějaké úpravy, či nikoliv...
Omlouvám se za nechápavost, ale 3. bod jsem tak nějak nepochopil...
4. při tisku se právě ty komentáře tisknou... proto potřebuji, aby se jejich obsah zkopíroval pod každou z tabulek... Pokud totiž vytisknu tabulku, komentáře jsou skryty, nebo při zobrazení překáží... proto je potřebuji zkopírovat z tabulky do místa pod ní..
Komentáře se tedy promazávají až po tisku a to jen z buňěk pod tabulkou.
A s těmi textboxy nevím... List oprava totiž existuje až po průběhu makra, které zkopíruje tabulky z 1. listu... Pokud jsem předchozí makra nepochopil špatně...
Proto si nedovedu zatím představit jak to myslíš, ale možná se pletu...citovat
2)Dobrá tedy.
Každý den se tato evidence někam kopíruje. Při té příležitosti bych ten stav minut uložil do toho text souboru.
Kdo, kdy, jakým způsobem?
3)Aha! Začínám chápat?
Je nějaký list (kontrola?), který je kopií listu evidence a tento se tiskne.
V tomto listu jsou komentáře vypsány pod tabulkou.
Temto list mám být aktualizovaný při každé změně v listu evidence, nebo až před tiskem?
Pošli vzorek, ať vím jak má vypadat.
4)TextBox bude volán na tom prvním listu (evidence) při volbě z místní nabídky - upravit komentář.citovat
Každý den se tato evidence někam kopíruje. Při té příležitosti bych ten stav minut uložil do toho text souboru.
Kdo, kdy, jakým způsobem?
3)Aha! Začínám chápat?
Je nějaký list (kontrola?), který je kopií listu evidence a tento se tiskne.
V tomto listu jsou komentáře vypsány pod tabulkou.
Temto list mám být aktualizovaný při každé změně v listu evidence, nebo až před tiskem?
Pošli vzorek, ať vím jak má vypadat.
4)TextBox bude volán na tom prvním listu (evidence) při volbě z místní nabídky - upravit komentář.citovat
2. Vlastně to funguje tak, že operátor si na začátku směny soubor zkopíruje a pojmenuje jej např. 1_10_2012_Evidence kontroly. a až poté začne evidenci v průběhu dne vyplňovat..
3. Ano, když se mrkneš sem:
http://wall.cz/index.php?m=topic&id=9508#post-9533
Ve tvém posledním příspěvku je celý soubor, když klikneš v základní tabulce pravým tlačítkem a vybereš oprava, vytvoří se nový list, na kterém budou zkopírována data z tabulky (bez vzorců)
Přesně tak jak píšeš, tak jen na tomto listě mají být zkopírovány komentáře pod tabulkou a tato tabulka se pak bude tisknout spolus s komentáři pod tabulkou a po tisku se zas budou komentáře mazat..
Tento list by se měl zaktualizovat přesně tak jako v souboru viz. link, tedy při kliknutí v rozevíracím menu po kliku pravým tlačítkem a výběru "Oprava"
Tím se vytvoří nový list do nějž se vše nakopíruje, ideálně kdyby se u tohoto kroku ty komentáře rovnou zkopírovali, do tohoto listu se pak bude manuálně zasahovat... občas se stane, že se někdo uklikne a musí se to tedy upravit ručně. Tisknout se bude až po finální kontrole výkazu.
4. Aha, už začínám pomalu chápat co tím myslíš.citovat
3. Ano, když se mrkneš sem:
http://wall.cz/index.php?m=topic&id=9508#post-9533
Ve tvém posledním příspěvku je celý soubor, když klikneš v základní tabulce pravým tlačítkem a vybereš oprava, vytvoří se nový list, na kterém budou zkopírována data z tabulky (bez vzorců)
Přesně tak jak píšeš, tak jen na tomto listě mají být zkopírovány komentáře pod tabulkou a tato tabulka se pak bude tisknout spolus s komentáři pod tabulkou a po tisku se zas budou komentáře mazat..
Tento list by se měl zaktualizovat přesně tak jako v souboru viz. link, tedy při kliknutí v rozevíracím menu po kliku pravým tlačítkem a výběru "Oprava"
Tím se vytvoří nový list do nějž se vše nakopíruje, ideálně kdyby se u tohoto kroku ty komentáře rovnou zkopírovali, do tohoto listu se pak bude manuálně zasahovat... občas se stane, že se někdo uklikne a musí se to tedy upravit ručně. Tisknout se bude až po finální kontrole výkazu.
4. Aha, už začínám pomalu chápat co tím myslíš.citovat
Raději přikládám nejaktuálnější verzi, udělal jsem tam pár kosmetických úprav a nastavil heslo, upravil malinko zamykání, aby se mohly upravovat formuláře a přidal makro na kontrolu poslední změny... to jsem ale zjistil, že taky asi není ideální, protože zaznamenává všechny změny... ještě zkusím přijít na to, jak to upravit, aby to platilo jen pro list 1. a list návod. jinak heslo pro odemknutí je "mepuvo9n1"
Příloha: 
9669_evidence.rar (96kB, staženo 27x)
citovat9669_evidence.rar (96kB, staženo 27x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články