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í.
Nebude to tím, že
Private Sub Worksheet_SelectionChange
je jen pro List1
a po Obnovit zůstane aktivní List2 ?
Funkce TISKARNA
vrací název tiskárny bez cesty.
Funkce TISKARNA2 je sloučení všeho dohromady do jedné funkce. Výsledek stejný, méně přehledný.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.