Příspěvky uživatele
< návrat zpět
Jsem rad, ze to funguje podle predstav.
Jen k tem komentarum v kodu - mel by je psat kazdy, kdo pise nejakou proceduru, protoze po par mesicich se muze neco zmenit a kod bude potreba upravit a potom i jeho tvurce uz nebude vedet, co jak napsal a proc a bude pro nej obtizen se v kodu vyznat.
Pokud tedy budete chtit zacit s VBA (neni to nic tezkeho), doporucuji pouzivat komentare vsude, kde to bude mozne...
Makro je jen pro prvni checkbox na listu1 - ostatni lze udelat podobne (pouze zadat hodnoty promennych v uvodu kodu).
Upravil jsem trosku tabulku na listu2, aby se dala hledat hodnota checkboxu - jinak jsou komentare v makru - tak to snad bude srozumitelne.
Kdyby neco, ozvete se... 
makro lze spoustet ruznymi zpusoby, napr. zmenou bunky, pokud tedy prepisete hodnotu nejake bunky, lze spustit makro, ktere do vedlejsi bunky zapise hodnotu, kterou definujete.
Mohu to zpracovat, pokud poslete vzorek, tedy soubor...
jeste doplneni
co takto
zdravim,
jde o to, jestli chcete opravdu vratit hodnoty ze sousednich bunek nebo soucet KS pro jednu paletu (třeba i za datum uvedene ve sloupci pred cislem palety).
Kam se tento pocet KS ma vratit (do jake bunky), popr. cim se ma nasobit...
Mozna je to tim, ze nejsem uplne z nejrychlejsich, ale ja proste nechapu, co chcete udelat nebo vam v souboru chybi hodnoty v bunkach, ktere pouzivate.
Konkretne:
1) Bunka cells(21,20), tedy X20 - zde ma byt zadana horni hranice cyklu (bunka je prazdna).
2) Bunky Cells(19,24+i), tedy X19, Y19...atd - (krome X19 prazdne)
3) Bunky cells(20,24+i), tedy X20, Y20...atd (vsechny prazdne)
Na zacatku cyklu tedy rikate, ze se ma cyklus provades od 0 do "" - prazda bunka, takze nula se jeste provede, jenze narazi na to, ze je prazdna bunka x20 (dolni), takze oblast nemuze byt definovana!
Nevim, co s tim, jaka je idea...
Pokud jde o promennou dolni, chtel jsem (predpokladam) ziskat cislo radku, melo by to tedy byt takto: dolni = Cells(20, 24 + i).Row
Pokud by slo o cislo sloupce, tak Cells(20, 24 + i).Column
Jinak, dolni = Cells(20, 24 + i).Address by se rovnalo $X$20
Pokud to bude stacit makrem (napr. na tlacitko), nebude to problem, ale pokud byste to chtel udelat pomoci vzorcu - je to opravdu velice slozite a pro me uz to neni prace, kterou bych delal zdarma... 
Nejsem si jisty, jestli spravne pouzivate promenne, resp. prirazovani hodnot do nich.
Napr. dolni = Cells(20, 24 + i) znamena, ze v cyklu, kdy i=0 se pouzije hodnota z bunky X20 (radek 20, sloupec 24+0) - nejde o odkaz na bunku, ale HODNOTU bunky!!!
Adresu bunky dostanete takto: dolni = Cells(20, 24 + i).Address
Proste mi to jinak nedava smysl...
Zkuste tohle:
Musite soubor nastavit
Nad otazkami najdete max a min (doplnte cisla, na kterej radku zacina prvni otazka (4) a na kterem radku je posledni otazka (31), počet znamena, kolik otazek se ma při testu generovat.)
stisknutim tlačítka 'Generovat' se vyberou nové otázky, a smažou se vaše původní odpovědi...(aby nedoslo ke zkresleni průmeru spravnych odpovdi)
jak se se tady napsalo asi 1000x - priloz soubor, jinak se radi dooost tezko!!!! 
tak jsem to teda nakonec asi pochopil.
Bohuzel z Plzne nejsem, tak si budu muset dat specialitku z my rodny hroudy - vino :).
Viva Znojmo!!!
poslal jsem e-mailem... budeme postupovat hezky krok za krokem, aby nedoslo k omylu a zbytecne praci :)
snad to bude dobre.
V souboru Zdroj je tlacitko, ktere by melo kopirovani zajistit.
Uživatelské menu
\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