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

Příspěvky uživatele

Případně jednoduchá úprava, ale pak to bude spíše takový Gantt - nebude to v jedné linii

Můžete si pomoct kontingenčním grafem. Nicméně nebude v popisku ta činnost.

V příloze je pouze ukázka, jak na to. Musel jsem upravit tabulku aby obsahovala i období, kdy pole leží ladem. Toto by se ale krásně dalo udělat pomocí power query, takže by vstup vypadal v podstatě stejně, jak ho máte vy.

Vlákno promazáno - zbytečné příspěvky o tom, jak se vkládá příloha byly smazány.

No, tak když tu nedáte přílohu, tak to můžete řešit ještě rok. Protože tam máte něco pokažené a z koule to nevyvěštíme.

Ano, je to prkotina. Jelikož funkce COUNTIF vrací celé číslo, které je buď kladné, nebo 0, tak je zbytečné dávat vlastní formát, který rozlišuje zobrazení pro kladné nebo záporné čísla. Takže nastavte
#
nebo pokud chcete oddělit tisíce, tak
# ###

Jen pro inspiraci. Já používám pojmenovanou buňku (v tomto případě 'Soubor') a následně. Dotaz pojmenovaný Soubor:let
name = Excel.CurrentWorkbook(){[Name="Soubor"]}[Content],
value = name{0}[Column1]
in
valueV tomto případě je odkaz na soubor jehož cestu z názvem mám uloženu v buňce

Následně soubor načítám pomocíSource = Excel.Workbook(File.Contents(Soubor), null, true)

Musel jsem si přehrát data, protože máte novější verzi PQ

https://exceljet.net/formula/count-unique-values-in-a-range-with-countif

=SOUČIN.SKALÁRNÍ(1/COUNTIF(A1:A4;A1:A4)*(B1:B4="Milan"))

Tak jsk jste to napsal, tak to jde. Ale ne bez přílohy.

=MIN(DATUM($B$1;$B$2+1;0);MAX(DATUM($B$1;$B$2;0);E2))-MAX(DATUM($B$1;$B$2;1);D2)+1

Zdravím
Kdysi jsem programoval doplněk pro excel pro 2 monitory (ještě v době, kdy jsem měl excel, který neuměl SDI)
ke stažení zde https://elcha-en.blogspot.com/2014/12/excel-and-dual-monitor.html
Tam mám vyřešenu i identifikaci monitoru. Nemám teď chuť to hledat, ale je to jedna z následujících API funkcí:
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As modCommon.typeRectangle) As Long
Private Declare PtrSafe Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Long, ByRef lprcClip As Any, ByVal lpfnEnum As LongPtr, ByVal dwData As Long) As Boolean
Private Declare PtrSafe Function GetMonitorInfo Lib "user32.dll" Alias "GetMonitorInfoA" (ByVal hMonitor As Long, ByRef lpmi As modCommon.typeMonitorInfo) As Boolean
Private Declare PtrSafe Function MonitorFromWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal dwFlags As Long) As Long
Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long
Private Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare PtrSafe Function GetClientRect Lib "user32" (ByVal hwnd As Long, ByRef lpRect As modCommon.typeDimensions) As Long
Private Declare PtrSafe Sub ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As modCommon.typeCoordinates)
Private Declare PtrSafe Sub OffsetRect Lib "user32" (lpRect As typeDimensions, ByVal X As Long, ByVal Y As Long)
Public Declare PtrSafe Sub ClipCursor Lib "user32" (lpRect As Any)

Záleží na verzi - pak můžete použít funkci SEQUENCE
=SEQUENCE(1;DEN(DATUM($B$1;MĚSÍC("1."&$B2)+1;0));DATUM($B$1;MĚSÍC("1."&$B2);1)) Oblast si pak naformátujete na datum
SEQUENCE function
Excel for Microsoft 365 Excel for Microsoft 365 for Mac Excel for the web Excel for iPad Excel for iPhone Excel for Android tablets Excel for Android phones

Pokud nemůžete použít SEQUENCE, použil bych raději PowerQuery.

V ani jednom případě pak nemusíte řešit počet sloupců a počet dní v měsíci (únor)

Zkusil jsem úpravu a v letech 1900-3000 a sedí=(KČ((DATUM(ROK(DNES());4;0))/7+MOD(19*MOD(ROK(DNES());19)-7;30)*14%;)*7-6)+2

Pokud už máte zkušenost s powerquery, tak bych to asi řešil tímto způsobem. Mám něco podobného (data jsou uložena na sql serveru a načítá je procedura).

1) Ve zdrojovém souboru si vytvořte tabulku s oprávněními. Použijte uživatelské jméno windows - nebudete potřebovat žádný login, žádné heslo.
2) Tuto tabulku propojte s reportovanými daty.
3) Vytvořte report a uložte tak aby nebyla načtena žádná data. U nás si uživatelé obnovují sami (proavé tlačítko - Obnovit) ale lze nastavit tak, že se data obnoví po otevření.
4) Pozor, soubor musí být uložen pouze pro čtení, aby ho nikdo nemohl uložit s daty.

Funguje spolehlivě.

Do buňky F2 vložte=ZVOLIT(A(F$1>=$B2;F$1<=$C2)+(F$1=$C2)+1;0;8;MOD($E2;8)) případně pokud nechcete 0=ZVOLIT(A(F$1>=$B2;F$1<=$C2)+(F$1=$C2)+1;"";8;MOD($E2;8)) a rozkopírujte

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse