Příspěvky uživatele
< návrat zpět
Naučte lidi, ať nevkládají pomocí vložit, ale vložit hodnoty
Sloupec AColumns(1).specialcells(xlcelltypeblanks).cells(1).select
=COUNTIFS(V0F6!K2:K1000;">=38,99";V0F6!K2:K1000;"<39,00")
Protože 15 čísel je maximální přesnost excelu.
Kód přece nemusí být přímo v tomto sešitě...
Musí to být makro?=ČÁST(C2;NAJÍT("-";C2)+1;5)-ZLEVA(C2;NAJÍT("-";C2)-1)Chybu jsem neřešil
Chcete spustit kód v excelu a neotevírat přitom excel? Ne, to nejde.
Navíc na toto je lepší script - PowerShell, VBS, ...
Díky za reakci.
Ještě jsem se k tomu nedostal. Ale, pokud neexistuje jiná cesta, budu se muset spokojit s ADO + VBA
Funkcím DATEADD,DATEDIFF apod. nevěřím. Bylo už tu řešeno. Raději používám toto FY_PERIODA = "201805"
Debug.Print Format$(DateSerial(Val(Left$(FY_PERIODA, 4)), Val(Right$(FY_PERIODA, 2)) - 3, 1), "yyyymm")
@JoKe
FALSE nebo NEPRAVDA čili TEXT
Nikoliv text, ale logickou hodnotu
Přesouvám - není excel
1) Rada - Nepoužívejte v názvech procedur, proměnných atp diakritiku
2) Tyto věci řeším jedním tlačítkem a v proceduře odkazem na aktuální polohu kurzoru
3) Když už byste na tom trval, tak ano - toto lze udělat - všem tlačítkům přiřaďte 1 proceduruSub Sluzobna_cesta()
Dim rCell As Range
Set rCell = ActiveSheet.Cells(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row, 1)
If InStr(rCell.Value, "služobná cesta - ") > 0 Then
rCell.Value = Replace(rCell.Value, "služobná cesta - ", "")
Else
rCell.Value = "služobná cesta - " & rCell.Value
End If
Set rCell = Nothing
End SubPak už záleží pouze na správném umístění tlačítka.
@Martinxlsm
A to i přesto, že jsem si na otázku odpověděl sám...
Přesně toho jsem chtěl dosáhnout ;)
@Martinxlsm
Prosím, pro lepší čitelnost kód vkládejte do tagu code (to je ten $) - děkuji
S tímhle bych byl opatrný:powershell -Command "(gc in.csv) -replace ';;;;;;;;;;;;'Pokud rozumím, chcete nahradit pouze v prvním řádku.
@marjankaj
Je lepší, že je sem vložen funkční kód - třeba to někdo někdy využije a nebude se ptát, jak to dopadlo.
Pobavil jste mě, nic ve zlém... :-)
Jsem rád, ale docela by mně zajímalo čím. Nevím co máte za verzi excelu (nedávno tu řešil xlnc) - ale pokud je originál v UTF8 bez BOM - umíte ho stejně uložit v excelu? Toto je totiž pro mnoho programů zásadní problém - prostě pokud to má sloužit jako import, po úpravě v excelu se vám to velmi často nepovede. A to nemluvím o dalších problémech, jako chybný import číselných oddělovačů atp (když se vám z 1 koruny stane 40000 a ani si toho nevšimnete ;) ) . No - nedělám to ;)))
Ta rada je skrytá ve větě
jedná se o textový soubor - na to není potřeba otevírat v excelu
Způsobů je více => Hledejte například OpenTextFile pro FileSystemObject nebo Open FilePath For Mode As FileNumber
Já vím, že PowerShell je součástí - jinak bych vám ho tu nenavrhoval.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články