Příspěvky uživatele
< návrat zpět
Heh, teraz som to akurát EDIT-ol, a nerefreshol som si predtým stránku. Bol ste rýchlejší. Len tá farba mi už nejde do hlavy...
Musíte mať min. Office 2010 a doinštalovaný doplnok Power Query.
Ale aj tak keď si doplním do Tymy A7="SPARTA".
Kolo 1 - A15="SPARTA" B15=13
Kolo 2 - A16="SPARTA" B16=14
Kolo 3 - A4="SPARTA" B=2
Kolo 3 - A12="PARMA" B12=10
Mala by mať SPARTA=2, ale má 14. Niečo som prehliadol.
EDIT:
Zaujímavý poznatok. Pri otvorení priamo zo ZIP-u to hodí 14, ale keď to uložím na disk a otvorím z disku, Aktualizujem, tak už to hodí správne 2.
Aj tak mi tam ešte nesedí drobnosť - dopísaná SPARTA v tabuľke Tymy, má rovnakú modrú farbu ako EINDHOVEN nad ňou. Pritom je to Tabuľka (ListObject) s pruhovanými riadkami, čiže nezmyselná farba, lebo riadok má byť biely.
Tie hodnoty viem vzorcom vytiahnuť, no zatiaľ som neprišiel na to ako poriešiť tie mená aby šli za sebou v danom poradí a počte.
To čo Vám píše AL bude asi jediná cesta. Možno nejako takto. Upravený vzhľad tabuliek aby bol rovnaký, výpočtový list je skrytý a počíta so 40 mužstvami a 40 kolami, upravené nezmyselné a nefunkčné podmienené formátovanie vzniknuté kopírovaním buniek. Všetko je navzorcované, nič nikde nemeníte, len dopĺňate mužstvá, výsledky a kolá. Predpoklad, že kolá sa volajú vždy rovnako teda kolo1, kolo2 ... kolo40, a rozloženie tabuliek je identické.
Takto to ale nieje príliš rýchle.
Ak by sa to previedlo na Tabuľky (ListObjects), tak by sa zrýchlil výpočet, lebo by sa nepočítali zbytočné riadky, ale musel by ste si pri kopírovaní listov odstrážiť aby sa Tabuľky rovnako číslovali po sebe, a to by sa integrovalo do INDIRECT/NEPŘÍMÝ_ODKAZ, lebo pri kopírovaní listov dostanú Tabuľky kvázináhodné meno.
Škoda, INDIRECT asi nejde použiť spôsobom, akým by ste potreboval (hádže mi to chybu akonáhle použijem v ňom pole). Snáď sa v niečom nemýlim ...
EDIT: @a.mlady:
To je dobrý nápad.
??? O aký typ ComboBox-u ide (Formulárový, Active-X) ? Koľko je tých ComboBox-ov ? Prehodiť 50 ComboBox-ov "chvíľu" trvá. Pre každý zvlášť musíte vypočítavať možné mená s vylúčením všetkých vybraných vo všetkých ComboBox-och OKREM SEBA SAMÉHO. Mám nejaké riadky kódu na vyfiltrovanie použitých či prázdnych, na výmaz a zmenu položiek v oboch typoch CB, ale narazil som na vyššie spomínané problémy. A čo už vôbec nechápem, je ten ListBox. Vy chcete mať možné mená okrem CB aj vedľa v LB ? Nezabúdajte, že každý CB má iný zoznam, líšiaci sa práve svojim vlastným výberom, a tento LB by sa musel aktualizovať pri označení každého CB...
Bezpodmienečne musíte dať reálnu prílohu, s lepším popisom.
Dajte sem prosím prílohu, kde farebne vyznačte a popíšte čo kde chcete mať.
Nájdi poslednú prázdnu bunku v C ??? To bude vždy posledná bunka, ktorú aktuálny Excel dokáže adresovať, čiže Rows.Count, čiže E2013 = 1 048 576.
Vy asi hľadáte poslednú neprázdnu bunku, nie prázdnu. V tom prípade tam máte toto dobre:
PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row
Potom teda doplnte:
If PosledniPlnyRadek > 4 Then Cells(5, "B") = Cells(PosledniPlnyRadek, "C")
Ak to chcete doplniť do predošlého kódu, tak:
Sub IncreaseNumber()
Dim Hodnota, Riadok As Long
With ThisWorkbook.Worksheets("Hárok1")
Hodnota = .Cells(5, 3)
If Hodnota = "" Or Not IsNumeric(Hodnota) Then
.Cells(5, 3) = "0001"
Else
Riadok = .Cells(Rows.Count, 3).End(xlUp).Row
If Riadok + 1 > 5 Then
.Cells(Riadok + 1, 3) = Format(Val(.Cells(Riadok, 3)) + 1, "0000")
.Cells(5, 2) = .Cells(Riadok, 3)
End If
End With
End Sub
Vykoná sa to ale iba keď sa bude meniť číslo na N+1. Záleží na tom, kde sa čo v kóde umiestni, neviem ako to presne chcete.
Píšem iba z tabletu, bez overenia...
No, budeme Vám veriť 
Mne to hodí #NEDOSTUPNÝ. O fnc PROB som ani netušil, a SOUČIN.MATIC/MMULT som videl v reále tuším raz (myslím, že tu na fóre). Skúmať sa mi to nechce. Hlavné je, že máte výsledok
Prečo nemôžete použiť takúto prevodnú tabuľku ? Hoďte ju opravenú (máte tam chybné relatívne adresovanie), na skrytý list a máte to bez makra, ktoré by Vám znemožnilo Undo, pretože by ste musel použiť OnChange udalosť.
EDIT: Napr takto. Len si buď dopredu rozšírte výberovú tabuľku, alebo pred zadaním nového mena, o jedno potiahnite dole pravý spodný roh.
A keby ste niečo také chcel, musíte použiť makro. Napr. takto. Parametrov zadajte koľko chcete sčítať TextBoxov. Musíte poznať meno TextBoxu. Je nanajvýš vhodné si ich premenovať. A potom ich zapíšete ako text spolu s názvom listu, tak ako je v ukážke.
No mňa porazí druhý krát! Tak to je potom poriadny průser! To som si vôbec nevšimol. Fujtajbl, to bude zase bordel v tom. 365-ťka je ekonomicky výhodnejšia. Tento model naozaj vo veľkom pred rokmi zaviedlo Adobe na svoje CC, a už sa to odvtedy vezie, kancelársky SW, hry, myslím, že už som počul o 3D SW. Aj voľakedy to tak bolo (také účto a iné), ale to bolo v malom merítku. 
Výpočet IBAN. Nikde mi to tu nenašlo, tak keď niekto potrebuje, vyskúšajte. Robil som to podľa tohto návodu a testoval na pár známych už prepočítaných číslach, aj podľa NBS, a sedí to.
Niet, čo viac dodať. Taká blbosť...
Úprava podľa SZ.
Tak skúste niečo takéto (Stĺpec C má formát Text):
Sub IncreaseNumber()
Dim Hodnota, Riadok As Long
With ThisWorkbook.Worksheets("Hárok1")
Hodnota = .Cells(5, 3)
If Hodnota = "" Or Not IsNumeric(Hodnota) Then
.Cells(5, 3) = "0001"
Else
Riadok = .Cells(Rows.Count, 3).End(xlUp).Row
If Riadok + 1 > 5 Then .Cells(Riadok + 1, 3) = Format(Val(.Cells(Riadok, 3)) + 1, "0000")
End If
End With
End Sub
Tak?
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