Příspěvky uživatele
< návrat zpět
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
Mrknite, či by mohol byť ten deň napr. takto. Ak áno, tak keď bude čas, dorobím Vám aj týždeň.
Pozrite sa, či by mohlo byť niečo takéto.
-Skrytý stĺpec A
-Iba jeden ComboBox, posúvaný/schovávaný podľa kliku.
-Všetko ostatné robia vzorce
-Ošetrené je aj, keď chcete zmazať položky, kľudne, vzorec sa obnoví.
-Nastavená dynamická oblasť dát (bez zbytočných prázdnych buniek na konci).
-Reaguje na zmenu v liste "export" v stĺpci C.
-Problém ale stále vidím v prípade, keď sa zmení kód položky, ktorá už je v "kalkulace" vybraná, a tým pádom prestane fungovať väzba, čo má za následok, že sa síce nič nezobrazí, ale v skrytom stĺpci stále ostáva kód, ten zmizne až pri označení danej bunky, v ktorej sa zobrazí korektne ComboBox, a pri tejto príležitosti sa starý kód zmaže.
Pozrite si to.
Prosím, upresnite, čo Vám tam nefunguje ako má, nechce sa mi zase až toľko rozmýšľať a hľadať čo máte asi na mysli. Mne sa totiž zdá, že to funguje...
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