Příspěvky uživatele
< návrat zpět
Samozrejme, v podmienenom form. (PF) ide vždy o výraz vracajúci logickú True/False (Pravda/Nepravda). PF sa vykoná iba ak je True. To ale nieje všetko zmenil som Vám aj výpočet Min/Max, ktorý teraz eliminuje 0 ak tam sú aj iné hodnoty. V PF je to potom ľahšie.
Ešte poznámka : Na to aby som rozšíril stĺpec nepoužijem zlúčenie 4 stĺpcov, ale iba rozšírenie jedného. Aj som Vám takú verziu už nachystal, len som už iba na tablete, a zajtra prídem k PC asi až poobede...
EDIT: V prílohe pridávam, tie jednoduchšie stĺpce...
Presne to robí ten môj prvý kód. Čiže ak to chce mať na jeden klik, tak je makro jediná možnosť. Z pamäti teraz neviem, či označením oblasti tlače docilime spojenie listov na jednu stranu, overím keď budem doma. Inak je riešením môj druhý variant.
Skúste.
EDIT: A môžem sa opýtať čo chcete dosiahnuť v tomto vzorci ?
=IF(D2=$V$2;"ano";IF(D2=$W$2;"ne";"ne"))
pretože časť
IF(D2=$W$2;"ne";"ne")
je nezmysel, lebo nikdy nedá inú hodnotu ako "ne"
A ten kód si vete teda makrom stiahnuť do takejto podoby? Inak je fuk či to má príponu RTF/TXT.
Nieje to dokonalé, ale narýchlo môže byť.
Presne som to chcel napísať, že to vyzerá ako indexované obrázky, napr. bar0.png, bar25.png, bar50.png ...
Inak ScreenShot začiatku kódu naozaj nestačí. Treba poslať uložený kód stránky, či by sa dal rozlúskať "primitívnou" textovou metódou. Napr. podľa názvu obrázku v určitom mieste kódu, alebo v najhoršom prípade odčítaním počtu modrých pixelov v riadku v obrázku. Rovnako podľa názvu obr. v kóde by sa dalo zistiť možno aj zaplnenie papiera. Ak nám pošlete čo najdetailnejší kód, možno ...
EDIT: Aha, až teraz som si pozrel druhý obr. Áno je to jasné, je to pomocou 25%-ných obrázkov (trieda BarGraphImage). Čiže ak je tento kód stiahnuteľný do VBA v textovej forme, tak nieje problém si to v texte vypreparovať, a ak poznáte názvy tých obrázkov pre každý z dostupných stavov, nemal by byť problém.
Radšej si ten obrázok premenujte. Pri spustení kódu na inej jazykovej verzii Excelu to rado robí problémy ak sa ponechá predvolený názov. Napr. takto:
Sub Rename()
Dim old As String
On Error GoTo CHYBA
old = Selection.ShapeRange.Name
Selection.ShapeRange.Name = "pic1"
MsgBox ("Premenovaný objekt " & old & " na " & Selection.ShapeRange.Name)
Exit Sub
CHYBA:
MsgBox ("Chyba !")
End Sub
Myslíte takto ? Je tam potom vypnutá chybová hláška v overovaní dát, aby ste mohli zadať aj neexistujúci text, viď ukážka.
Tak ?
Marekkoc napsal/a:
V tom test1 zůstane tabulka z test2. Mě jde o toto: nech se jen přilepí první strana z test2 k první straně test1, ale pouze ve výsledném pdf klidně jako obrázek. Bylo by fajn kdyby to bylo v rámci jedné stránky pdf, protože tabulky jak z test1 tak test2 mají max 25 řádků.
Prvou vetou odporujete druhej. Ja som Vám to urobil tak, že sa druhá tbl prilepí k prvej, vyexportuje sa to spolu na jednej stránke, a prilepená tbl sa znovu "odlepí". Pričom to prilepenie berie do úvahy vždy aktuálne veľkosti tabuliek.
Ale snaha vyriešiť to sám sa cení. Chválim.
Ak poodpovedáte na otázky od xlnc, tak pošlite prílohu, pretože nemáme na čom to želané makro postaviť. Ale tiež si myslím, že ak nepotrebujete data uchovávať, tak prečo nepoužiť nachystanú čistú šablónu ? Ale nieje problém makro napísať. Len tú prílohu, aby sme videli štruktúru tej tbl, prípadné formáty, orámovania, vzorce, prepojenia, okolité bunky ... . Citlivé info zmente.
Urobil som Vám tam teda aj dynamické adresovanie zaplnenej oblasti (skôr ako sa opýtate ). Inak je naozaj dobré si otázku/y premyslieť trošku lepšie, ale tiež chápem, že to nieje vždy úplne možné.
OT @xlnc: To je ešte vcelku v pohode. To že Lubošovy zatiaľ nejde moc Excel alebo komunikácia na fóre ... no niekto vie zasa niečo iné. Manželka by napr. rada aby som vedel variť, ja tiež (a že som sa iniciatívne pokúšal), ale "štipka" ? "trochu povariť" ? "tak akurát na zub" ? Čo to je za výrazy ??? No proste na to niesom.
Stále to beriem z tej lepšej stránky. Zatiaľ Peace.
Konečne som sa po čase dobre zasmial. A to nieje sarkazmus, tá konštrukcia
If blnNalezeno = True Then Ponozky.Navlect
, no akoby som to ... skoro som sa ... 
No ale chudák pýtajúci sa, si môže myslieť, že si tu z neho robíme srandu, ale tak to nieje. Tak snáď nieje suchár a chápe to. Aby sa neurazil, pretože nie každý vôbec odpovedá ako problém vyriešil, a už vôbec nie každý sa ho snaží aj sám riešiť.
Palec hore za ten frk.
EDIT: A ak by ste mali tie názvy dní naformátované ako dátum vo formáte "dddd", tak napr (maticovým vzorcom - Ctrl+Shift+Enter) :
SK
=SUM((WEEKDAY(POKLADNA!E2:E1253;2)=1)*(POKLADNA!H2:H1253))
CZ
=SUMA((DENTÝDNE(POKLADNA!E2:E1253;2)=1)*(POKLADNA!H2:H1253))
Takto. A ešte som Vám tam doplnil výber druhu firmy cez Overenie dát, je to bezpečnejšie. Dodávam, že to Overenie máte iba v B2 zatiaľ.
No ešte tú tabuľku poprosíme...
a) buď je väčší súbor ako 256 KB
b) alebo ste ju nezabalil cez WinRAR, WinZIP, 7-ZIP, TC, ...
Priznávam farbu, ani ja som to veru poriadne nepreštudoval, pritom stačil 1 klik.
Zjednodušená verzia, ale ak niekto chce môže si tam elementy dopísať. Preklad je tam len pre prípad, že niekto tých pár fráz po EN neovláda.
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