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

Příspěvky uživatele

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.

vypadá to na dvě věci:
čárku nezadávat z číselné klávesnice
vybranou oblast naformátovat - Formát buněk - číslo

pro vybranou danou oblast začínající na C13..D22
=NE(JE.PRÁZDNÉ($C13))

Mám zkušenost, že se mi to děje při kopírování především vlastností.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse