co takhle?
Příloha: 
2667_zkouskapridani.zip (21kB, staženo 22x)
citovat2667_zkouskapridani.zip (21kB, staženo 22x)
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: Zařadit údaje
MS Excel
Téma: Zařadit údaje 
Zaslal/a Niffki 7.10.2010 12:33
Zdravím všechny ;-)
Zkouším tu sestrojit jednu tabulku. V příloze posílám menší verzi.
Jde to, že na listu "nové zakázky" jsou zadány nové zakázky. Pomocí sloupce "zařadit" se mi automaticky otevře userform a tam si vyberu kam to chci zařadit (v listu výroba).
Neměl mi někdo náladu mi pomoci s vytvořením kodu aby se zapisovali udaje tam kam mají?
Já ho píšu sám, ale zdá se mi že moc složitě. Co vy na to?
N.
Příloha: 2666_zkouskapridani.rar (17kB, staženo 21x)
2666_zkouskapridani.rar (17kB, staženo 21x)Samosdřejmě že tvůj je lepší :-)) je kratší :)
Jen bych poprosil jestli by si mi nemohl popsat kod v modulu. Tak nějak to chápu ale jsem z toho už nějak zmaten :o)
Jinak jestli můžu poprosit ješte o jednu funkci? Ten datum se tam nebude vkládat automaticky podle toho jaký je datum dnes. Bude se tam vkládat ručně. Kod zvladnu upravit. Ale potřeboval bych jestli by nešlo nějak automaticky, aby se seřadili řádky od nejstaršího k nejnovějšímu data - sezařadit by se to mělo hned po zápisu datumu do buňky k určité zakázce.
Např. STROJ1 --> ranní směna a první řádek bude opsahovat zakázku s datumem nejstarším a bude končit se zakázkou nejnovější. A odpolední směna totéž --> první řádek nejstarší až k poslednímu nejnovějšímu atd.
A pak jestli by nešlo barevně oddělit celé řádky s udaji podle různého data. Aby se třeba střídala jen barva bílá a šedá. Prý v 2007 to jde udělat jinak, líp a já nevím jak :(citovat
Jen bych poprosil jestli by si mi nemohl popsat kod v modulu. Tak nějak to chápu ale jsem z toho už nějak zmaten :o)
Jinak jestli můžu poprosit ješte o jednu funkci? Ten datum se tam nebude vkládat automaticky podle toho jaký je datum dnes. Bude se tam vkládat ručně. Kod zvladnu upravit. Ale potřeboval bych jestli by nešlo nějak automaticky, aby se seřadili řádky od nejstaršího k nejnovějšímu data - sezařadit by se to mělo hned po zápisu datumu do buňky k určité zakázce.
Např. STROJ1 --> ranní směna a první řádek bude opsahovat zakázku s datumem nejstarším a bude končit se zakázkou nejnovější. A odpolední směna totéž --> první řádek nejstarší až k poslednímu nejnovějšímu atd.
A pak jestli by nešlo barevně oddělit celé řádky s udaji podle různého data. Aby se třeba střídala jen barva bílá a šedá. Prý v 2007 to jde udělat jinak, líp a já nevím jak :(citovat
Tady jsem udelal to serazovani po ručním zadani data.
K tomu popisu kodu:
je to udelane přes cyklus For-Next (i=2 to 4), kde Controls(i) jsou Checkboxy, kde jsou zaškrtnuté (nebo nezaškrtnuté) STROJe.
stroj_row = Application.WorksheetFunction.Match(Pridat_NZ.Controls.Item(i).Name, List1.Range("a:a"), 0) = do tehle promenne se uklada pozice STROJe na listu Vyroba, ke které se pak pricita počet radku (u ranni smeny 6, u odpoledni 12).
Cells().end(xlup) nalezne první neprazdny radek od zadane bunky smerem nahoru, takze například List1.Cells(List1.Cells(stroj_row + 6, 1).End(xlUp).Row + 1, 1) je první neprázdna bunka v 1 sloupci pro i-ty STROJ v ranni smene.
K tomu zvýrazněni bunek – to moc nechapu, proc to chces delat, když to není na nicem zavisle(aby se to delalo podminenym formatem), když se budou jen stridat barvy, tak v tom budes mit spis hokej (neboť o muzes udelat natvrdo, když se to nemá menit).
K tomu popisu kodu:
je to udelane přes cyklus For-Next (i=2 to 4), kde Controls(i) jsou Checkboxy, kde jsou zaškrtnuté (nebo nezaškrtnuté) STROJe.
stroj_row = Application.WorksheetFunction.Match(Pridat_NZ.Controls.Item(i).Name, List1.Range("a:a"), 0) = do tehle promenne se uklada pozice STROJe na listu Vyroba, ke které se pak pricita počet radku (u ranni smeny 6, u odpoledni 12).
Cells().end(xlup) nalezne první neprazdny radek od zadane bunky smerem nahoru, takze například List1.Cells(List1.Cells(stroj_row + 6, 1).End(xlUp).Row + 1, 1) je první neprázdna bunka v 1 sloupci pro i-ty STROJ v ranni smene.
K tomu zvýrazněni bunek – to moc nechapu, proc to chces delat, když to není na nicem zavisle(aby se to delalo podminenym formatem), když se budou jen stridat barvy, tak v tom budes mit spis hokej (neboť o muzes udelat natvrdo, když se to nemá menit).
Příloha: 2681_zkouskapridani.zip (23kB, staženo 21x)
citovat2681_zkouskapridani.zip (23kB, staženo 21x)Díki ti :-)
Prosím co znamená u zařazení: And IsEmpty(Target) = fase ?
Jinak v oroginálu mám tuto tabulku ve větším. U směn mám nastaveno 100 řádků. Takže u každého stroje 200 řádků. A tím pádem bych tam potřeboval nějak barevně(nebo i jinak) oddělit různé dny. Bez toho bych tam měl hokej pak ve vyhledávání podle data.citovat
Prosím co znamená u zařazení: And IsEmpty(Target) = fase ?
Jinak v oroginálu mám tuto tabulku ve větším. U směn mám nastaveno 100 řádků. Takže u každého stroje 200 řádků. A tím pádem bych tam potřeboval nějak barevně(nebo i jinak) oddělit různé dny. Bez toho bych tam měl hokej pak ve vyhledávání podle data.citovat
IsEmpty(Target) = false znamena, ze se procedura spusti jen v pripade, ze zmena bunky nebyla takova, co by bunku smazala. Zkratka, kdyz smazes datum, bunky se neseradi (az kdyz datum napises).
S tim odlisenim radku nevim, je tam spousta otazek, co by musely byt zodpovezeny...citovat
S tim odlisenim radku nevim, je tam spousta otazek, co by musely byt zodpovezeny...citovat
Ty tam máš v příloze napsáno - fase a ne false. Překlep? :-)
Jaké otázky máš třeba na mysli? Viděl bych to tak, že první řádek byl měl barvu šedou a pokud bude mít druhý řádek stejné datum tak druhý řádek bude taky šedý. Ale pokud bude mít už jiné datum tak bude bilý?
Zkus se podívat na http://wall.cz/index.php?m=topic&id=2520
Tam řeší skoro to stejné, jen ve 2003, a podle měsíců. Já to potřebuji podle dnů. Ten vzorec jsem zkoušel ale nefunguje mi.citovat
Jaké otázky máš třeba na mysli? Viděl bych to tak, že první řádek byl měl barvu šedou a pokud bude mít druhý řádek stejné datum tak druhý řádek bude taky šedý. Ale pokud bude mít už jiné datum tak bude bilý?
Zkus se podívat na http://wall.cz/index.php?m=topic&id=2520
Tam řeší skoro to stejné, jen ve 2003, a podle měsíců. Já to potřebuji podle dnů. Ten vzorec jsem zkoušel ale nefunguje mi.citovat
False je spravne, samozrejme, ze to je preklep 
Pokud jde o to formatovani – v tom prikladu se pouziva obarveni bunek podle toho, jestli je to sudy nebo lichy mesic – bohužel u tebe nemusi dny jit za sebou (muze byt nejaky vynechany a tim se dva sudy dostanou vedle sebe, coz by znamenalo, ze budou obarveny stejne ikdyz nebudou totozne).
To, o cem mluvil Krapl asi neznam, protože neznam moznost v 2007, jak udelat to, co potřebuješ.citovat
Pokud jde o to formatovani – v tom prikladu se pouziva obarveni bunek podle toho, jestli je to sudy nebo lichy mesic – bohužel u tebe nemusi dny jit za sebou (muze byt nejaky vynechany a tim se dva sudy dostanou vedle sebe, coz by znamenalo, ze budou obarveny stejne ikdyz nebudou totozne).
To, o cem mluvil Krapl asi neznam, protože neznam moznost v 2007, jak udelat to, co potřebuješ.citovat
a je nějaký způsob jak by si to udělal ty? 
Mno možná to zabarvím ty dny co jsou dnes a co budou zítra a jiné nechám ber barvy možno.
Ale jinak díki. Ty máš ty kody tak jednoduché, fakt že se pořad učím.citovat
Mno možná to zabarvím ty dny co jsou dnes a co budou zítra a jiné nechám ber barvy možno.
Ale jinak díki. Ty máš ty kody tak jednoduché, fakt že se pořad učím.citovat
Zdravím
Jen že ješte moc nechápu proč tam je cyklus i = 2 To 4.
Kdyt tam jsou checboxy jen tři (tři stroje). Co značí ta dvojka a ta čtyřka?
Hledám i na netu ale nemužu se dopátrat. Kdyby tam bylo i = 1 To 3 tak to pochopím ale takto nevímcitovat
Jen že ješte moc nechápu proč tam je cyklus i = 2 To 4.
Kdyt tam jsou checboxy jen tři (tři stroje). Co značí ta dvojka a ta čtyřka?
Hledám i na netu ale nemužu se dopátrat. Kdyby tam bylo i = 1 To 3 tak to pochopím ale takto nevím
citovatUž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