< návrat zpět

MS Excel


Téma: Zařadit údaje rss

Zaslal/a 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: rar2666_zkouskapridani.rar (17kB, staženo 21x)
Zaslat odpověď >

icon #002667
Poki
co takhle?
Příloha: zip2667_zkouskapridani.zip (21kB, staženo 22x)
citovat
#002673
avatar
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
icon #002681
Poki
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).
Příloha: zip2681_zkouskapridani.zip (23kB, staženo 21x)
citovat
#002682
avatar
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
icon #002685
Poki
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
#002686
avatar
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
icon #002688
Poki
False je spravne, samozrejme, ze to je preklep 7
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
#002690
avatar
a je nějaký způsob jak by si to udělal ty? 4 2

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
#002696
avatar
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ím 7citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09