Příspěvky uživatele
< návrat zpět
Tak se mi podařilo kód upravit soubory se nyní ukládají jako *.xlsx, tedy bez maker.
Pokud by někoho napadlo elegantnější řešení, podělte se prosím.
PS: Možná tvou nabídku protislužby využiji, jinak SZ 
Darbujan napsal/a:
Mám se jich zeptat, kolikrát jste jim za pět let nabídl odměnu sám od sebe? Může za to vlastně podoba fóra, že jo? Kdybyste odměnu za rady jen Vám měl dát adminovi wall.cz, měl by zaplacený hosting i doménu na 30 let! Vypráskat Vás odsud bičem!
Né že bych se chtěl do téhle debaty nějak více angažovat. Nevím jak jsou na tom ostatní, ale za sebe mohu říct, že fin. odměna mi byla nabídnuta (soukromou zprávou). Když jsem ji odmítl byla nabídnuta pomoc z oblasti pracovní (sleva na výrobek), zatím jsem ji nevyužil.
Co se týče dotazu: Nějaký funkční kód sem vyplodil, není to sice 100% ošetřeno proti chybám a ještě bych se chtěl zbavit maker v sešitech pokud bude čas.
Např. takto:
Chyba je, že jméno pracovníka se musí vyskytovat v celém roce na stejném řádku.
funguje ale musím si do prázdných buněk ve sloupci C vložím mezery čeho se chci vyhnout
Tak proč ve vzorci hledáš mezery a neupravíš si ho podle toho druhého?
Napadlo mě tohle hulvátský řešení:
=ČÁST(SUMA(A1:B1);1;KDYŽ(MOD(SUMA(A1:B1);1)<>0;5;4))*1Otestuj zda vrací očekávané výsledky.
S výpisem do okna immediate
Debug.Print Worksheets("JmenoListu").Index
S načtením hodnoty do proměnné
i = Worksheets("JmenoListu").Index
Můžeš použít maticový vzorec (jeho zadání se ukončí trojkombinací CTRL+SHIFT+ENTER. Do buňky J1 se zadá kýžený rok. Rozsah buněk si uprav podle svého.
=SUMA((C1:C3="Incident1")*(ROK(G1:G3)=J1))
Nebo se dá použít funkce součin.skalární - není nutné zadávat maticově.
=SOUČIN.SKALÁRNÍ((C1:C3="Incident1")*(ROK(G1:G3)=J1))
Liší se proto, že sem měl zobrazené pouze dvě desetinná čísla. Tedy číslo bez zaokrouhlení vypadá takto
43679,7315856482
Jinak poslední otázce nerozumím, jak si dospěl k názoru, že tebou udávaná hodnota se má zobrazovat zrovna jako zvolené datum?
Edit: uvedené číslo se vzalo z tvého data 2.8.2019 .....
Edit2: Studuj
https://office.lasakovi.com/excel/funkce/ms-excel-datum-a-cas/
http://web.natur.cuni.cz/~jmakov/ExcelStranky/DatumCas.html
Co kdybys poskytnul ten vzorek dat jak žádá elnino, místo toho spamování a zakládání dalších dotazů na jiných poradnách
Vlastní formát buňky rrrr.mm.dd h:mm:ss
Jinak tomuto datu a času odpovídá číslo 43679,73
Tak sem si s tím nějakou dobu hrál, bohužel výsledek není ideální => je to pomalé jak sviňa 
. Na nic lepšího sem nepřišel. Vyčkej na někoho dalšího.
Přikládám svůj pokus, řeší požadavek vrácení sloupců do původního stavu (opětovným spuštěním makra).
Sub UpravSloupce()
Dim SloupceH As String
Dim SloupceW As String
SloupceH = "C1, E1, G1, I1, K1, M1, O1, Q1, S1, U1, W1, Y1"
SloupceW = "B1, D1, F1, H1, J1, K1, N1, P1, R1, T1, V1, X1"
Range(SloupceH).EntireColumn.Hidden = True = Not Range(SloupceH).EntireColumn.Hidden = True
With Range(SloupceW)
If .ColumnWidth = 20.71 Then
.ColumnWidth = 18.71
Else
.ColumnWidth = 20.71
End If
End With
End Sub
Samozřejmě, že šlo. Jen tak v rychlosti bez optimalizace.
Ověření dat nenabízí tuto funkcionalitu.
Možné řešení viz: https://www.youtube.com/watch?v=6ZHR8TFK1rg
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články