Příspěvky uživatele
< návrat zpět
Skôr ako začnem študovať kód, ujasnite si túto vetu
Jak ale dám náklad třeba 211 ks a balík 200 ks dostanu 3 balíky 2x100 a jeden 11 ks ( mají býd jen 2 1x 100 a 1x 11ks)
1x100
1x11
spolu 111 a nie 211
EDIT: Váš kód mi dá správne pri množstve 211 a veľkosti balíka 200, počet balíkov 2, z toho prvý o veľkosti 200 a druhý o veľkosti 11. No problemo.
EDIT2: Tak som to skúsil aj inak, tiež v pohode funguje, a dalo by sa ešte kratšie...
Private Sub CommandButton21_Click()
Dim i, balik As Long
Dim adresa As String
Dim naklad As Long
Dim celychbaliku As Long
Dim poslednibalik As Long
Dim baliku As Long
EnvironConst1 = Environ("UserName")
naklad = InputBox("zadej náklad")
balik = InputBox("zadej velikost v balíku")
adresa = InputBox("zadej adresu")
celychbaliku = naklad / balik
poslednibalik = (naklad Mod balik)
baliku = celychbaliku + (poslednibalik > 0 And 1)
Cells(29, 4).Value = naklad
Cells(12, 2).Value = adresa
For i = 1 To baliku
Cells(30, 2).Value = i & "/" & baliku
If i * balik <= naklad Then Cells(29, 2).Value = balik Else Cells(29, 2).Value = poslednibalik
ActiveSheet.PageSetup.CenterFooter = ("&B&8 strany: " & i & " / " & baliku)
ActiveSheet.PageSetup.LeftFooter = ("&B&8Uživatel: " & EnvironConst1)
''********* vloží do patičky listu - do levého oddílu ****&B&12 - font tučné velikost 8
'ActiveWindow.SelectedSheets.PrintOut ´******************Tisk na předvolenou
ActiveSheet.PrintOut Preview:=True '********************Ukázka před tiskem
Next i
End Sub
Totóók ? Či ?
Máte na mysli takéto niečo ?
Tento vzorec si dajte do D3 a pretiahnite ho až po D16.
=IFERROR(VLOOKUP(A3;'stary cennik'!$A$3:$C$14;3;FALSE);"")
=CHYBHODN(SVYHLEDAT(A3;'stary cennik'!$A$3:$C$14;3;NEPRAVDA);"")
EDIT: A ak chcete potom list "stary cennik" vymazať, tak samozrejme najskôr prehodte vzorce na hodnoty. Teda nap. označte D3:D16, stlačte Ctrl+C, kliknite pravým do oblasti a vyberte Vložiť hodnoty (ikonka s 123). Až potom mažte list.
Áno, to len, že treba sledovať stav zainteresovaných premenných ...
Pole JMFSE(32) má indexy od 0 do 32, nie od 1 do 32 ako ich voláte v cykle.
To pole JMFSE() má určite názvy, ktoré zodpovedajú reálnym súborom ?
PL nepresahuje hodnotu 32 ?
Dajte si do Watches premennú "i", "PL", "ERR", "JMFSE(i)", "MVPT" a krokujte makro.
Mne pri zachovaní toho, že pole JMFSE() má korektné názvy a PL nepresiahne počet názvov a zároveň hodnotu 32, to ide OK.
Akurát by som vypol ScreenUpdate a odstránil Select
S = Sheets(M).Range("B4:U199")
prípadne si ešte skúste celý kód obalit do On Error Goto CHYBA
a v časti CHYBA si BrakePointnite napr MsgBox alebo čo, aby Vám to stoplo, a pozrite si hodnoty zainteresovaných premenných.
Skúste či je to OK. Doplnte si do grafu napr legendu a pod.
Neviem či som zle opísal ja Vaše čísla alebo čo, lebo mi dáva iný celkový priemer.
Skúste
ActiveX ComboBox ?
Na dvoch miestach je treba zmeniť absolútne adresovanie na relatívne. Som zvedavý či to nájdete. Teraz je to tak, že len pretiahnete bunky 
Ako na to ? Ako píšem, možností je viac, MATCH/POZVYHLEDAT + INDEX, OFFSET/POSUN, INDIRECT/NEPŘÍMÝ_ODKAZ, CHOOSE/ZVOLIT, plnedynamický, polodynamický, statický, ...
Tento konkrétny príklad je polodynamický, teda napevno daný počet zoznamov, ale zoznamy môžu byť dynamicky dlhé.
-Je tam jeden vzorec v Definovaných názvoch, ktorý vyhľadá v prvom riadku listu Zoznam, na ktorom mieste sa nachádza zoznam podľa prvého výberu, a potom spočíta koľko je tam od druhého riadku po koniec zaplnených možností. A tieto potom číta druhý zoznam.
-Tieto zoznamy sú vložené cez Overenie dát
-Ako doplnok pre zvýraznenie, že sa v druhej bunke nachádza stále hodnota z predošlého zoznamu (pri zmene prvého zoznamu), je nastavené) Podmienené formátovanie.
Čo viac k tomu povedať. Ak nepotrebujete dynamický počet položiek, tak sa to dá nastaviť inak.
Viacero možností, napr. :
Pozrite sa na stránku Ron de Bruin
Každý deň sa Vám naťahajú do D7:E7 aktuálne info, ale tabuľku máte s dátami pre celý týždeň ? A odkiaľ má vzorec vedieť, ak je streda, koľko bolo vyrobeného v pondelok a v utorok, ak sa to nikde neznačí, aby to vedel neduplicitne správne spočítať ? Nemáte ani minulé požiadavky ani minulé reálne vyrobené, aby to aspoň podľa nejakého počiatočného stavu na začiatku týždňa vedel dopočítať podľa nich. Možno preto aby nešpatili graf. Neviem prísť na to, ako to má v tejto forme fungírovať :( Skúste ešte inak popísať.
-Prečo k skladu pripočítavate rozdiel medzi plánom a reálom ? Veď v minulom čase pripočítavate reálnu výrobu, a v budúcom čase ako prognózu zase plán, ale nie rozdiel medzi nimi. Ten vzorec by mohol byť skôr takto trošku upravený, vlastne jediný rozdiel je v hodnote aktuálneho dňa, a od toho sa ďalej odvádza (pri 23. to nieje 250 ale 300).
=IF(G$6<$G$5;NA();IF($G$5=G$6;$D7-$E7-G7+G9;F10-G7+G8))
=KDYŽ(G$6<$G$5;NEDEF();KDYŽ($G$5=G$6;$D7-$E7-G7+G9;F10-G7+G8))
-Odkiaľ sa berie počiatočný stav D7:E7 ?
-Ako sa mažú požiadavky, ručne či vzorcom ?
-Riadok KW sú dni mesiaca ? Ak áno, čo ostatné okrem tých 10? Ako sa posúvajú?
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