• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Niečo som vymyslel, uvidíme, či sa to bude dať použiť.
Nastaví sa aby každých nap 30s prebehla kontrola.
1. Bude sa kontrolovať, či nieje terajší dátum menší ako pri poslednej kontrole - ak áno koniec
2. A teraz to dôležité. Bude sa kontrolovať počet týchto 30s intervalov, ak sa dosiahne maximálny nastavený počet 30s intervalov - tak koniec.

Táto kontrola prebehne ihneď po štarte a potom každých 30s keď je aktívny formulár. Ak aktívny nieje, intervaly sa neprirátavajú, ale zapisuje sa čas (pre porovnanie).

Veľký pozor na skúšanie. Ak by ste prekročili počet intervalov, súbor neotvoríte, ani aby ste to zmenili (iba vyskúšať zmeniť iným súborom bez otvorenia).

Po vyskúšaní, dorobení, nastavení, treba dať list Tick na VeryHidden, zaheslovať makrá. Samozrejme povoliť 2 riadky v Overload() a 1 riadok v Workbook_BeforeClose.
To je zároveň nevýhoda, že vždy musí Workbook_BeforeClose uložiť súbor, kvôli tomu aby nabudúce vedel, koľko Tick-ov (intervalov) už bol Form otvorený.

Je to aspoň podobné tomu čo je v zadaní.

PS: Tú kontrolu času si takmer nevšímajte, je druhoradá.

EDIT: Ešte som urobil malé opravy...

Treba si pozrieť makrá, v samotnom zošite nič podstatné nevidno.
V skratke:
-Prehľadajú sa súbory v zadanom adresári
-Vyhľadajú sa v nich zadané polia a k nim adekvátne hodnoty
-Tie sa zapíšu do sumárneho listu

A ešte verzia so zapínaním a vypínaním Visible, pretože je veľký rozdiel, či ich potrebuješ dynamicky vytvárať a mazať, tak ako píšeš, alebo budú vytvorené permanentne a nemenne, len sa budú schovávať.
Pekný deň.

Mám ti ten kód aj popísať ?
Tým "5.1" si asi myslel zadané číslo 5,1 (rozdiel v zápise Excel/makro - čiarka/bodka)
Prečo CheckBoxy vkladáš do A4,C4,E4 a LinkedCell dávaš nie pod nimi ale A4,B4,C4 ??? Upravil som to.
Toto by malo fungovať aj keď budú na liste iné CB ako tie tebou podmienene vytvorené.
Nastavuje to aj priesvitný formát textu TRUE/FALSE v LinkedCells.
Bude to fungovať, aj keď sa hodnota v B2 zmení inak ako Tvojou rukou, pričom sa uchová predtým použitý výber (Selection).
Celý hlavný problém je v tom, že potrebuješ uložiť niekde mená vytvorených CB Form (Ty nevytváraš CB ActiveX, ale CB Form), ktoré sa stále menia, ktoré budeš mať k dispozícii aj po znovuotvorení zošita (globálna premenná sa použiť nemôže). Ja som použil uloženie mien v Definovanom názve. Ďalšia možnosť je použiť pomocný list, či nejaký TXT súbor.
Žiadaj o prípadnú úpravu.

Iný variant. Kopírovanie cez pole. Pridaná možnosť pridávať riadky do výstupu k tým, čo tam už sú.

Alebo jedným riadkom :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C6:AD36")) Is Nothing Then MsgBox "podminka splnena"
End Sub

Ak by bolo z nejakého dôvodu treba používať VBA tak :
Sub Tlačidlo1_Kliknúť()
Dim B As Excel.Button, s As String
ActiveSheet.Columns("H:J").Hidden = Not ActiveSheet.Columns("H:J").Hidden
If ActiveSheet.Columns("H:J").Hidden Then s = "Odkryť" Else s = "Skryť"
Set B = ActiveSheet.Buttons(Application.Caller)
ActiveSheet.Buttons(B.Name).Caption = s
End Sub
potrebný je iba jeden riadok, ostatné sú tam pre zmenu popisu tlačítka
ActiveSheet.Columns("H:J").Hidden = Not ActiveSheet.Columns("H:J").Hidden

Nič nieje schované. Je to vložené do "Názvov".
Menu Vzorce - Správca názvov - tam vidíš všetky vzorce a "podvzorce". "Podvzorce" sú využité kvôli zjednodušeniu pochopenia hlavných vzorcov. Proste klasika...

Čistý pokus :
Skús otvoriť tento súbor. Je v ňom makro, ktoré pri otvorení označí A1:A3, skopíruje do B1:B3, odošle Escape. Aj po tomto ti to stále označuje viac buniek ?

Private Sub Workbook_Open()
Range("A1:A3").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
SendKeys (ESC)
End Sub

Mne sa Excel 2013 otvára tak ako potrebuješ - na posledom uloženom aktívnom liste. Čiže niečo bude u teba inak, nejedná sa o "vylepšenie". Prezrel som snáď všetko nastavenie ale nikde nič nevidím. Skús posťahovať ešte všetky aktualizácie na Office. Na nete aj tu na fóre som zatiaľ narazil len na riešenie pomocou VBA - to je ale blbosť pre všeobecné použitie.

Pomocou pomocného stĺpca, alebo potom pomocou makra.

EDIT: Sorry, kým som to ja napísal .... už je tu fundovaná odpoveď

Prvé tlačítko ti vytvorí Test tak, že sú z každého okruhu 2 náhodné po sebe. Ak majú byť premiešané aj okruhy, použi druhé tlačítko.

Myslíš takto ?

Ak som správne pochopil tie nedobre vysvetlené podmienky tak napr. takto.

Ahoj.
A čo poviete na toto ? Otestujte to niekto a dajte vedieť. Ktoré presne bunky sa to majú zrátať do "Stav hodin za kalendářní rok:" ? Zatiaľ som tam dal stĺpec "AI".

A ten list "Seznam" by som dal preč, je tam zbytočný, presunul som to do Setup.

Určite mi dajte vedieť. Pekný deň.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse