Příspěvky uživatele

A tu máte návrh na dve metódy pomocou makra, na jeden riadok (s pomenovanými oblasťami pre každú z 3 buniek).

V Exceli by to bol takýto nejaký vzorec.
K tomu makru: Čo znamená Range("KAT"), Range("BODY") ? Máte také pomenované oblasti ? Jedná sa iba o jeden riadok, alebo ide o vzorec v celej tabuľke ? Je vo funkcii UDF (uživateľsky definovaná funkcia, použitá vo vzorci...)?

1. Presne tak, stále nad tým často rozmýšľam ako nad tabuľkou a nie Tabuľkou.
2. ComboBox sa mi na toto páči viac, je vyšší, čo pri množstve položiek je prehľadnejšie
3. frmStyleDropDownList som si nastavil, ale žiaľ na skúšobnom ComboBoxe, až potom som to prehodil na CB1 ale už bez toho.
4. Ja nemám problém s povolením makier, možno dotyčná užívateľka áno, ale jeden z dôvodov je bezobslužnosť čo sa týka vkladania vzorcov. Toto by sa ale tiež dalo asi vyriešiť prevodom tabuľky v liste "kalkulace" na Tabuľku, a odpadol by aj "zákerný" problém zisťovania počtu riadkov tabuľky, pod ktorou je ďalšia.

Je krásne vidieť skúsenosti matadora eLCHa, proste sa na veci pozerá inak, ako my amatéri.

@ZFRA: Skúste si to previesť na Tabuľku. Uvidíte, že Vám to bude vkladať vzorce a SeznamPoložek samé. Len mne by vadilo to čo som spomínal v 2, to ale pre Vás nemusí byť smerodatné.

Niekedy bývam pri slovným úlohách fakt natvrdlý, a toto je jedna z nich. Možno iba ja nechápem, čo potrebujete, neviem, ale každopádne by veľmi pomohla (Vám) príloha.

EDIT: Skúste použiť niečo z tohto, asi nie najlepšie, ale keďže netuším o čo ide, tak snáď aspoň nakopnem

No takto. To že chcete ešte vkladať nové riadky, je ohromná komplikácia, a to aj vzhľadom na to, že pod tabuľkou sú ďalšie dáta. Schovávanie/ukazovanie výberového zoznamu je totiž podmienené logicky tým, že je klik (kurzor) na riadku v určitom rozsahu. Tento rozsah bol pevne daný. Ale teraz ho chcete meniť, a teda je potrebné nejako zistiť či ste vložili/zmazali riadok, ďalej či ste klikli v oblasti (ktorej veľkosť ale nepoznáme, keď pridávate riadky), kde sa má zviditeľniť výber. Ďalšia komplikácia, ktorá z toho vyvstáva je nutnosť vložiť nové a upravené vzorce do nového riadku. Ďalej je potreba zabezpečiť, aby žiadne vzorce nevkladalo, ak vložíte riadok napr v tej spodne tabuľke, a to takisto nevieme.... Proste komplikácie na všetkých frontoch.
Takže, urobil som Vám takpovediac z vody uvarené riešenie, ktoré z veľkej časti eliminuje tieto problémy. Pozor dajte na to, že sa makro odkazuje na nové definované oblasti. Pod tabuľkou v ktorej máte tie dáta, a do ktorej budete prípadne aj vkladať nové riadky, tak pod touto tabuľkou MUSÍ byť v stĺpci C slovo "Mezisoučet", ktoré je hraničné pre vkladanie vzorcov do vložených riadkov. Takisto je tam použité hľadania prvého voľného riadku v stĺpci E, atď.

Vysvetľovať niečo takéto je nad moje (anti)pedagogické schopnosti, tak si to otestujte.

EDIT: A stĺpec A si zviditeľníte tak, že kliknete na spojnicu označenia riadkov a stĺpcov, označí sa všetko, kliknete napr. na hlavičku B pravým a vyberiete Odkryť. Schováte ho zase tak, že pravý klik na A a vybrať Skryť.

A ten fígeľ v schovávaní/zobrazení výberového zoznamu, no ak neovládate VBA (makrá), tak to vysvetľovať nemá cenu. V skratke, ak je kurzor v oblasti kde sa má zobrazovať zoznam, tak sa nastaví jeho vlastnosť Visible (viditeľnosť) na True (zapne sa), ak je mimo tejto oblasti, tak presný opak Visible = False (vypne ho).

Áno, samozrejme môže byť, len sa musí testovať každý TB zvlášť, lebo ak ich najskôr spočítate, a naraz vyhodnotíte, tak aj pri iba jednom zadanom čísle dostanete True. Ale "" nemusí byť vždy 0. Záleží na konkrétnom použití a vkuse.
Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1.Value) And IsNumeric(Me.TextBox2.Value) Then Worksheets("Hárok1").Cells(1, 1) _
= CInt(Me.TextBox1.Value) + CInt(Me.TextBox2.Value) Else MsgBox ("Chybné hodnoty !")
End Sub

Pozerám si objektový model ListBox-u a pochybujem, že to pôjde. Nikdy nehovor nikdy, ale ...

Presne tak, a keď sa pozriete na čas písania príspevku, tak je zabudnutie jedného LEN celkom v norme :). Ale super, že ste na to prišiel sám.
PS: Musím začať fičať na tom prekladači od eLCHa...

Private Sub CommandButton1_Click()
On Error Resume Next
Worksheets("Hárok1").Cells(1, 1) = CInt(Me.TextBox1.Value) + CInt(Me.TextBox2.Value)
If Err Then MsgBox ("Chybné hodnoty !"): Err.Clear
End Sub

Je nutné aby bolo X slov názvu firmy oddelených od Y slov popisu. Tu som použil pomlčku, ale vhodnejší by bol iný znak, lebo pomlčka môže byť ľahko aj v názve.
Do A1:
Rev.045 Lesní společnost Náchod, s.r.o-Chatička Zelenka elektro 1.6.2015
Do B1:
=LEFT(A1;FIND(" ";A1)-1)
=ZLEVA(A1;NAJÍT(" ";A1)-1)
Do C1:
=MID(A1;LEN(B1)+2;FIND("-";A1)-LEN(B1)-2)
=ČÁST(A1;DÉLKA(B1)+2;NAJÍT("-";A1)-DÉLKA(B1)-2)
Do D1:
=MID(A1;FIND("-";A1)+1;LEN(A1)-(FIND("-";A1)+1+LEN(E1)))
=ČÁST(A1;NAJÍT("-";A1)+1;DÉLKA(A1)-(NAJÍT("-";A1)+1+DÉLKA(E1)))
Do E1:
=TRIM(RIGHT(SUBSTITUTE(A1;" ";REPT(" ";LEN(A1)));LEN(A1)))
=PROČISTIT(ZPRAVA(DOSADIT(A1;" ";OPAKOVAT(" ";DÉLKA(A1)));DÉLKA(A1)))

PS: Keby ste písal čiarky vo vetách, nemusel som to čítať toľko krát

Upravil som Vám to makro od kolegu:
-Neprepíše hodnoty ak je pridaný alebo vymazaný celý riadok.
-Ak sa zmažú všetky údaje v A:K, zmaže sa aj čas.
-Čas sa nevytvorí pri náhodnom dvojkliku, alebo Del prázdnej bunky v prázdnom riadku.
-Na List2 som Vám dal krížom-krážom kopírovať tie hodnoty z daného riadku, nech lepšie vidíte, ako to Vovka myslel.
-Tieto hodnoty sa neskopírujú ak je bunka A prázdna (aj keď B:K sú plné).

Stačia Vám takéto úpravy ?

-Zrušte zatržítko "Zalomiť text"
-Zatrhnite "Prispôsobiť bunke"
-Znova zatrhnite "Zalomiť text" ("Prispôsobiť bunke" bude zaškrtnuté ale zašednuté)

Po tomto to funguje, inak neviem pomôcť.

Tak môže to byť aj cca takto. Zlúči sa to vždy pri aktivovaní listu "Souhrn".

Použite vlastný formát:
dddd"
"d.m.yyyy
proste medzi tými úvodzovkami je znak 10, čiže ak Vám to nepôjde skopírovať odtiaľto, tak vo vlastnom formáte dajte kurzor medzi úvodzovky, podržte ľavý Alt a napíšte 010

EDIT: V CZ bude namiesto yyyy asi rrrr

-Hľadá to prvý validný dátum (okrem sviatkov a víkendov).
-Sviatky sú uložené v skrytom liste "Nastavení" (zatiaľ takto).
-Parameter pri volaní určuje či sa pridá iba 1 deň, alebo sa dohľadajú validné dni pre posledný týždeň. Ak už niesú validné dni aktuálneho týždňa, tak sa pridajú všetky validné dni ďalšieho týždňa.
-Je jedno koľko bude riadkov v poslednom dni (ako deň sa berie zlúčená oblasť v B).
-Máte vyriešené aj zlučovanie čísla týždňa.
-Popis v makre máte.

Prvé použitie. Zmažte všetky riadky okrem prvého dňa (zlúčeného). Nastavte si počet riadkov a neviem čo ešte, ale musíte dodržať to, že bude dátum dňa zlúčený, rovnako aj týždeň. Od toho sa totiž makro odpichuje. Iná možnosť nieje.

Dúfam, že teraz nepoviete, že to chcete zase inak

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje