Příspěvky uživatele

Ahoj,

měl bych dva dotazy ...
1) V KT mám Filtrované pole, to když rozbalím, tak můžu vybírat jednu z více položek, ale zároveň je dole checkbox "Vybrat více položek", který umožní vícenásobný výběr. No a moje otázka je, jestli lze tuto možnost zakázat, znepřístupnit uživateli tento checkbox?

2) Nad KT lze použít tzv. průřezy (Slicery), kde uživatel může rychle vybrat nějaký filtr nad KT. Problém je, že bych rád daný list zamknul, ale tak aby uživatel pořád mohl provádět výběry přes Průřez, ale zároveň aby s daným průřezem nemohl hýbat, co do velikosti, či do pozice. Otázkou je, jestli to vůbec jde? Aby mohl uživatel vybírat, tak mu musím povolit úpravu objektů, což mu umožní i jeho přesun, či změnu velikosti :-(.

Díky
M@

Normálně pomůže zavřít a znovu otevřít soubor, ale dá se to zrušit i "natvrdo" v možnostech daného listu...
https://www.get-digital-help.com/2013/11/22/remove-print-preview-lines-page-breaks/

M@

to pak ale znamená, že input otevřen není, proto přistupuje dle podmínky k fázi, kdy si soubor otevírá.

Zkuste před ten žlutý řádek vložit
Application.Wait Now + (1 / 24 / 3600)

Nevím proč to dělá, ale třeba mu prodleva pomůže :-).

M@

Tak ještě verze 3 a 4 :-).
Obě verze mají navíc ověřování, jestli je soubor input otevřen, pokud ne, tak si ho otevřou a zavřou, pokud otevřen je, tak si data berou z otevřeného, což znamená že soubor input není potřeba s každou změnou ukládat.
Verze 3 pak data kopíruje, tzn. využije schránku, což někdy může být nepříjemné, pokud ji zrovna využíváte.
Verze 4, pak jede v Input souboru v dané tabulce buňku po buňce a zapisuje rovnou do outputu. Nevyužívá to schránku, ale je to o něco pomalejší, což pak záleží na velikosti dat.

M@

To by chtělo vidět při čem konkrétně ji to hodí, každopádně by se mohlo dát ošetřit pomocí error handleru Onerror.

Co se týká třeba změny jména, tak aby se to promítlo do výstupu, tak je potřeba soubor Input s každou změnou, kterou chcete vidět na výstupu, uložit.

M@

To by mohl být problém.

Zkusil jsem verzi 2, ta nefunguje na power query, jako dotaz, ale prostě čistě makrem si na pozadí otevře zdrojový soubor, načte si data a soubor zase v tichosti zavře.

M@

Radši se ještě zeptám na verzi Office, jinak na to budeme muset jinak :-). Zkoušel jsem u sebe na jiném pc a tam mi to jde taky bez problémů.

Mrkněte do souboru OUTPUT na list ZDROJ, jestli je tam správná cesta k souboru INPUT. Pokud ano tak zpět na listu DATA, pravým tlačítkem kliknout někde na tabulku dat a vybrat možnost OBNOVIT.
Co to provede.

M@

Však to by pak mělo být správně.
Do souboru Input, zapisujete výsledky (já to mám momentálně makrem, abych tam nemusel nic vymýšlet). S každým zápisem se mi soubor uloží.
Druhý soubor si spustíte na druhém monitoru a dáte tlačítko START, čímž se spustí časovač po 5s.
Časovač načte aktuální data ze souboru Input a tyto zobrazí, pokud je záznamů víc než 20 (tzn. víc než na jednu stránku), tak se nejprve zobrazí prvních 20 a po 5s se objeví dalších (pokud tam jsou). Funguje to jako automatické stránkování.

M@

Takový pokus v příloze ...
Nejsou tam ošetřeny případné chyby apod.
Velikost stránky (počet řádků) se nastavuje v souboru output na listu ZDROJ.

v souboru input je pak makro které cvičně přídává řádky, které by se v intervalu 5s měly objevovat v souboru output.

Předpokladem jsou oba soubory ve stejné složce.

M@

Druhým monitorem je myšlen stejný pc, ale druhý monitor, nebo jiný pc s vlastním monitorem (něco jako vizualizační pc)?

Otázkou pak je i formát dat, pokud je výsledkem třeba graf, kdy v souboru jich máte několik, všechny stejné, jen jiné hodnoty, tak je pak otázkou jestli je potřeba jich mít několik, nebo stačí-li jeden, kterému se budou v daném intervalu měnit data. Pokud se nejedná o grafy, ale něco jako výřez oblasti dat, kdy každá oblast (stránka) má zobrazovat něco úplně jiného, tak pak bych zvážil funkci fotoaparát - Vytvořit si pomocnou tabulku oblastí a makrem pak v cyklu (ontime) měnit zdrojovou oblast obrázku dle tabulky oblastí, s tím že vizualizován by byl vždy stejný obrázek, kterému by se měnil zdroj.

Možností je více a záleží na struktuře dat.

M@

Ono by asi mělo být jedno jestli je zamčený, nebo ne, když znáš to konkrétní makro.

Application.Run ("'Cesta k souboru'!NazevMakra")

jen je pak potřeba ho po sobě zase zavřít.

m@

Posílám přílohu.
+ jsem na konec přidal i all in one Insert.

M@

Má být výsledkem jeden insert se spoustou hodnot, nebo to může být spousta insertů (SQL zkousne obojí).

Příklad viz. níže. Před spuštěním je potřeba smazat hodnoty z listu výsledek.

Public Sub MakeInserts()
Dim wsi As Worksheet
Dim wso As Worksheet
Dim rdo As Single

Set wsi = List1
Set wso = List2

For rdi = 2 To wsi.UsedRange.Rows.Count
For sli = 2 To wsi.UsedRange.Columns.Count
If wsi.Cells(rdi, sli) = "o" Then
rdo = wso.UsedRange.Rows.Count + 1
wso.Cells(rdo, 1) = wsi.Cells(rdi, 1)
wso.Cells(rdo, 2) = wsi.Cells(1, sli)
wso.Cells(rdo, 5) = "INSERT INTO cn_xy (SLOUPEC1, SLOUPEC2) VALUES('" & wsi.Cells(rdi, 1) & "', '" & wsi.Cells(1, sli) & "')"
End If
Next
Next

End Sub

M@

Ale tak výsledek je pořád dobře :-), jen se automaticky snaží aby nižší číslo rozsahu bylo vždy na začátku viz. například =SUMA(A5:A2), taky ho otočí. To že už pak nedodrží přesně fixování v tomto případě není podstatné, protože dle dané logiky to vyjde pořád stejně, což je to hlavní.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje