Příspěvky uživatele
< návrat zpět
Ono stačí vykopírovat hodnoty vkládané funkcí DDE do jiného sešitu a to pak vložit. Nebo případně obrázek.
Ideálně upravit funkci DDE, aby vracela číslo.
@elninoslov
v SAP se dá oddělovač tisíců změnit z tečky na mezeru a pak máte klid.
Máte tam něco špatně. Asi nějaká chyba nebo co. Bez přílohy těžko říct.
Ale kdybych měl kouknout do křišťálové koule, tak vám DDE funkce nevrací číslo, ale text (nemáte tam desetinnou tečku?)
Prostě vypněte ověření ;)
Protože když už může být text, tak už v podstatě cokoliv.
Myslím, že to lze i bez makra. Jen si budete muset pomoc pomocným sloupcem (např s funkcí DNES). Pak byste neklikal na tlačítko makra, ale na tlačítko Použít znovu (Data -> Seřadit a filtrovat)
Abych to utnul.
Barevný název excel souboru "standardně" nelze.
"Standardně" proto, že v IT světě nic není 100% (může existovat alternativní file explorer, který toto umí - zase takový problém to naprogramovat by to nebyl)
Rozhodně to ale není věc excelu - ten to neumí a proto že toto je sekce excel, tak zamykám.
Lze to např. taktoarrPole = Application.Transpose(Oblast_FAST.Value)Ale transpose tuším pracuje korektně je 65 536 řádky
Takže pak raději cyklem (nebo cyklem s transpose po 65 536 řádcích ;) )
@Merlin99
Máte pravdu, zadání jsem špatně pochopil, respektive, špatně jsem četl.
Je to také tím, že smysl kolekce je právě v načtení jedinečných hodnot (a pak se volá právě názvem hodnoty - takže nemusíte projíždět cyklem). Pokud ty hodnoty nejsou jedinečné, pak to nedává moc smysl. Pak stačí použít pole (jak píše Stalker) a na testování funkci Filter.
Respektive - vůbec nechápu, proč načítat a pak znovu kontrolovat - to jsou 2 cykly. Buď to testuji při načítání nebo použiju funkci Match na listu a zjistím, jestli se hodnota v dané oblasti vyskytuje.
Ale snad víte, co vlastně chcete.
Není třeba testovat. Pokud dáte položce stejný název, jako hodnotu, tak už ji znova nepřidáte.For Each Cell In Oblast_FAST.Cells
On Error Resume Next
myCol.Add Cell.Value2, CStr(Cell.Value2)
On Error Goto 0
Next CellPsal jsem to rovnou, takže snad je to OK
Zároveň díky tomuto existenci hodnoty v kolekci zjistíte přes její název ;)
Položím jednoduchou otázku. Proč?
Možná je to zajímavé a je to i řešitelné, ale proč to dělat?
Navíc, pokud máte 2 instance, lze soubor otevřený v jedné instanci otevřít i v té druhé (jen pro čtení) a z něj kopírovat v rámci instance.
@lubo
Rozumím a nezpochybňuji ;)
Tady jsou data kopírována z externího zdroje v hodinách a seřazeny. Asi bych použil podobné řešení jako vy.
Ale jako vždy je více možností ;)
Upravil jsem vzorec takto a našlo mi to.=POZVYHLEDAT(ZAOKR.DOLŮ(C1;ČAS(0;0;1));$A$1:$A$6983;0)=MATCH(FLOOR(C1;TIME(0;0;1));$A$1:$A$6983;0)
Ano (vaše hodnota je v A1, rok se bere aktuální)
1)=ČÁST(A1;NAJÍT("-";A1)+1;1000)=MID(A1;FIND("-";A1)+1;1000)
2) Výsledek si naformátujte jako datum (tady jsem zapomněl na pondělí až pátek, ale s tím už někdo snad pomůže)=RANDBETWEEN(DATUM(ROK(DNES());ČÁST(A1;NAJÍT(".";A1)+1;1000)/1;ZLEVA(A1;NAJÍT("-";A1)-1)/1);ČÁST(A1;NAJÍT("-";A1)+1;1000)/1)=RANDBETWEEN(DATE(YEAR(TODAY());MID(A1;FIND(".";A1)+1;1000)/1;LEFT(A1;FIND("-";A1)-1)/1);MID(A1;FIND("-";A1)+1;1000)/1)
https://proexcel.cz/castka-slovne/
Vyzkoušejte ISOWEEKNUM
Pro tento soubor si přepněte nastavení na kalendářní systém 1904, který umí zobrazovat a sčítat i záporné časy.
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