Co takto:
Nebo můžeš použít funkci DATEDIF viz zde
http://www.office4you.cz/rady-a-navody-ms-excel/268-excel-tajna-funkce-datedif.html
Netuším jestli je to přesně co potřebuješ, ale šel bych na to přes vlastní formát buňky a to :
"00:"##":00"
Co třeba tohle?
Já na to šel s využitím pomocných sloupců E,F. Iritovalo mě to upozornění na chybu (zelený trojuhelnik)
Co tohle:
Sub Workbook_Open()
Dim cesta As String
Dim Nazev As String
Dim nahodne As Long
nahodne = WorksheetFunction.RandBetween(1000, 10000)
Nazev = "TMP" & nahodne
cesta = ThisWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs cesta & "\" & Nazev
Application.DisplayAlerts = True
End Sub
Dejme tomu, že šešit se jmenuje "Pokus" má koncovku *.xls a hypertextový odkaz má odkazovat na List2 do buňky B5 a je zobrazen jako "Skok na list 2"
Napíšeš:
=HYPERTEXTOVÝ.ODKAZ("[Pokus.xls]List2!B5";"Skok na list 2")
"Hlásí chybu 1004, metoda ShowDataForm třídy Worksheet selhala."
Tuhle chybu mi to hlásí, když se pokouším otevřít formulář na prázdném listě. Vyplň pár údajů a bude to fungovat. K té změně vzhledu, můj osobní názor je, že to nelze. Jedině si ve VBA vytvořit vlastní UserForm.
Ahoj, taky jsem nedávno řešil, jak vést seznam filmů kdyžtak koukni na přiložený soubor
Pokud jsem to dobře pochopil, tak x=20 a |=0
Jestli je to tak správně tak bych to udělal následovně:
=KDYŽ(COUNTIF(D5:AA5;"x")*20=0;"-";COUNTIF(D5:AA5;"x")*20)
Hm co jsem zkoušel na tom vzorku co jsi poskytnul tak korektního převodu do číselného formátu sem dosáhnul pouze tak, že jsem "hodnoty" tedy sloupec C označil dal kopírovat a vložil (volba vložit jinak - hodnoty) do sloupce D a použil makro z odkazu
http://wall.cz/chyba-cislo-je-ulozeno-jako-text.a177.html
Jelikož ty "částky" jsou psány s oddělením tisíců (2 860), tak se mi to podařilo udělat pouze "s pomocným" sloupcem B, který můžeš poté skrýt.
Možná někoho napadne elegantnější řešení.
Pak je ještě možnost vytvořit si UserForm s hláškou který se na začátku makra zobrazí a na konci skryje, ale musí se tam nastavit nějaká hodnota (už si nepamatuju jaká). Zkus pohledat ve starších vláknech už seto tu řešilo.
Edit: tak sem to našel
http://wall.cz/index.php?m=topic&id=2820
Dá se umístit zpráva o běhu makra do stavového řádku (otázka je jestli si toho obsluha PC všimne).
Např: na začátku makra
Application.DisplayStatusBar = True
Application.StatusBar = "Makro pracuje"
na konci makra
Application.DisplayStatusBar = False
Něco takového?
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.