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

Příspěvky uživatele

Základní problém je v počítání týdnů
(53/20 a 1/21 = jeden týden;
nebo lépe: poslední týden v roce nekončící nedělí a první týden v novém roce je jeden týden).
Proto bylo doporučeno použít ISOWEEKNUM

GOOGLE:
definuje norma ISO 8601. Pro první týden v roce je důležité, kterým dnem týdne daný rok začíná. Pokud začíná ve čtvrtek či dříve, jde o první týden v roce. První týden v roce tedy obsahuje minimálně jeden pracovní den. Pokud však rok začíná až v pátek či později, první týden v roce začíná až následující pondělí. V tom případě první dny nového roku patří ještě do posledního týdne minulého roku
Zdroj (12. 7. 2020): https://kalendar.beda.cz/cislo-tydne

Range("A7:D7").Formula = Range("A3:D3").Formula

=DATUM((2000+ZPRAVA(C6;2))-1; 12; 31) + 7 * (ZLEVA(C6;NAJÍT("/";C6)-1)-1) - DENTÝDNE(0;2)+5

Edit:
záleží, jak jsou týdny číslovány
jestli 1. týden je týden, který obsahuje
a) 1. ledna - zde u některých roků může být i 54 týdnů
b) první lednový čtvrtek (ISO)

ve VBA

Function JK_Pondeli(Tyden, Rok) As Date
Dim TheDate As Date
TheDate = DateSerial(Rok - 1, 12, 31) + 7 * (Tyden - 1) - Weekday(TheDate, vbMonday) + 2
JK_Pondeli = DateSerial(Year(TheDate), Month(TheDate), Day(TheDate))
End Function

Nemám teď soubor k dispozici, ale mám zato, že na listu nebyl nastavený formát buňky všeobecný.

Na listu nastavit formát # ##0,0 a v PF # ##0
mělo by fungovat pro všechna čísla

ThisWorkbook.Sheets(Array("leden", "unor")).Copy

Do podmíněného formátování nastavit formát # ##0

Mám zato, že do vlastního formátu funkce nejde dát.
Takže s podmíněným formátováním je to zřejmě nejjednodušší cesta.

http://wall.cz/index.php?m=topic&id=1695

https://proexcel.cz/generator-menu-vlastni-commandbar/

tahle varianta?

je v tom chyba
správně by asi mělo být

NE(JE.PRÁZDNÉ($B$1:$B$20)) * ( ($B$1:$B$20)<>hodnota )

Není mi jasné odkud se bere "hodnota"
do příkladu jsem dal napevno "5"

...
'když bude v ActiveCell jakýkoliv text
ElseIf WorksheetFunction.IsText(a) Then
...
...
Else
'a až zde umístit výpočet
c = a * b * 1000
i = MsgBox(Format(a * 1000, "#,##0" & " €") & " = " & Format(c, "#,##0.00" & " Kč"))
...

Takto?

v definovaných názvech je ve funkci POSUN
pevně jednička -

POSUN('Dynamický graf'!$A$1;Scroll;0;Zoom;1)
tj. první sloupec vpravo od A

Nejdřív naformátovat oblast (prázdnou), pak vkládat hodnoty. Bez naformátování /pokud může/ převede na datum.
Z číselné klávesnice vkládá ".,"
z písmenné (vedle "M") jen čárku.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje