Příspěvky uživatele
< návrat zpět
Tak se ukázalo, že to je problém neregistrované verze MS Office, kde chybí čeština. Byl tam i problém s referencemi, ten se povedlo pořešit, ale ta čeština se stáhnout nedaří. Už jen se dopracovat k tomu stahování je porod, a nakonec to hlásí nekompatibilitu - a to jak u pokusu doinstalovat 32bit, tak i 64bit verze.
No nic, asi bude potřeba zakoupit na Aukru bezproblémovou registrovanou verzi. 
Ahoj, dlouho jsem tu nebyl, tak nevím zda se to tady probíralo. Vyhledávání "diakritika" mi nic letošního nenašlo, tak otvírám téma:
Jde o to, že v projektu VBA se mi přestala regulérně zobrazovat diakritika, třeba "psč" se mi zdeformuje na "psé" a z toho pramení tuny problémů. Závisí to zřejmě od nějaké jazykové sady na tom kterém windows, neboť na pracovním PC to funguje, ale na domácím PC ne.
Samozřejmě, že v kódu používám diakritiku výlučně pro komentáře, ale když kód pracuje s textem na listě (ten už diakritiku obsahuje), tak při debugování vidím, že v textové proměnné to už mám s pokřivenou diakritikou
Věděl by někdo, kde ve Windows se toto nastavuje?
No vida, umělec (El Ňiňo) se pozná, takže ten to umí i s tím klasickým. V přiloženém souboru jsem zkoušel napsat proceduru na listování comboboxem ActiveX a po inspiraci taky tím klasickým.
Jde to s oběma, ale fakt tam jsou rozdíly, viz komentáře
google drive nebrat. Ten prvek, co máš v sešitu je svými osekanými možnostmi zcela nevhodný pro účel co popisuješ. Možná by to nějaký umělec dokázal, ale spíš ne. Pokud bys místo toho použil velmi podobný prvek ze škály ActiveX, (ribbbon Vývojář - Vložit), tak tam je plná škála možností jak to ovládat kódem.
Bylo mi předem jasné, že další požadavky na listbox budou přibývat. Pokud bys chtěl do listboxu posílat jenom některé sloupce, tak i to jde, ale lze tam poslat celou tabulku, akorát některé sloupce dostanou nulovou šířku, takže v listboxu nebudou vidět. Třeba takhle (jak jsi chtěl, pouze sloupce A;N;O):
With .ListBox1
.ColumnCount = iSloupcu 'urči počet sloupců
.ColumnWidths = "100pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;100pt;100pt;0pt;0pt;"
.RowSource = rgOblast.Address
End With
Ale počet sloupců máme proměnlivý, kdežto šířky sloupců jsou dány natvrdo - což není zrovna košér. To jen pro ilustraci, správně by se ten řetězec pro šířky musel vytvořit ve smyčce... Ale máš zde odpověď na svojí otázku ohledně šířky sloupců v listboxu.
Spíš jsem očekával, že z povahy listboxu v něm budeš potřebovat zvolit některý řádek (nebo více řádků: podle nastavení vlastnosti MultiSelect) a po kliknutí na nějaký button s tím výběrem pak něco udělat.
Mělo by to jít. Pokud si aktivuješ např. tuto free službu https://www.t-mobile.cz/e-mail-do-sms,
tak ta umožňuje posílat SMS na základě e-mailu. A excel umí vytvořit a odeslat e-mail (minimálně v Outlooku), zde na fóru najdeš mnoho řešení.
Ale nevím, jestli to není omezeno pouze na SMS pro T-Mobile SIM karty.
Tak to prozkoumej a poděl se s námi o výsledek
V příloze je doplněný kód pro to cos popsal
V příloze jednoduchý soubor, který:
1. otevře texťák test.txt v adresáři kde bydlí tento excelový soubor
2. vezme prvních 7 buněk prvního řádku, hodnoty oddělené středníky načte do jednoho řetězce a ten pošle to do texťáku jako nový řádek
3. toto zopakuje pro 80 řádků
Data zadává na každé směně 11 lidí, každý zadá to svoje. Mám na starosti celkem 4 směny tedy 44 lidí. Proto bych Rád aby se zadaly údaje z každého formuláře do jednoho listu. Který má hromady vzorců a proto si nemůžu dovolit jim to nechat odblokované. Ale tak asi jiná možnost není, protože je nepřijatelné, abych jim dával heslo, aby list odemkli. Ale nevadí nechám to plavat. Jen si matně pamatuji, ze školy, že existoval zápis ve VBA, který mi při otevření formuláře odemkl list vložil data a poté zase po stisknutí tlačítka pro uložení se list opět zamkl. Chtěl jsem si jen urychlit práci.
Teď to funguje tak, že oni mi to zadávají do obyčejného excelu napsané a já to přepisuji do finální tabulky za ně pomocí formuláře Chtěl jsem jen aby to psali oni rovnou do té hlavní tabulky, protože je toto celkem dost položek a údajů, tak jsem chtěl aby to dělali sami, ale s odemčeným listem si to na triko nevezmu. Ale i tak moc děkuji.
Tak takovouhle situaci řeším tak, že uživatelé mají svůj excel, který obsahuje zadávací formulář a jenom obslužnou logiku, která data zvaliduje a odešle do databáze access někde na ethernetové síti. Uživatelé vůbec netuší kam. No a pak si data natáhnu z DB do svého excelu ... Výhodou je, že žádný uživatel nemusí čekat až bude excel "volný". Nevýhodou je, že tu DB na serveru může někdo najít a pozměnit či smazat.
Dík!
Sice v řešení marjankaj (bez PF) úplně nechytám ten trik, ale fachčí to dobře
Přece jenom bych se ještě zeptal: funguje to skvěle, pokud je časový údaj >= nule. Pokud bych ale třeba chtěl zapsat chybějící (tedy záporné) hodiny, tak to háže eror.
Dalo by se i toto nějak, formátově či jinak, ošetřit?
Děkuji
Ahoj, pošli oba soubory s několika daty.
Nejdřív to bude chtít vyladit aby to dělalo co to má.
Máš tam např. proměnnou materialExists, ale vůbec s ní nepracuješ. Zřejmě to mělo sloužit na opuštění cyklu pomocí Exit For, ale to tam taky nevidím. Takže počet smyček bude vždy maximální (lastRowJG * lastRowVer1), což je často zbytečné...
V druhém kroku by se hodilo nahradit "Range operace" na operace v rámci array, které jsou násobně rychlejší. Tipuji, že po optimalizaci se dá dostat ze 3 hodin na desetinu...
Ahoj,
možná triviální věcička, ale nedaří se mi. Potřebuji zobrazit časovou hodnotu ve formátu hodiny:minuty, což funguje dobře jen do hodnoty < 24 hodin, dál už to zobrazuje jen hodiny a minuty dalšího dne. Já ale potřebuji zobrazit čas pro vyčíslení hodin a minut trvání nějaké události. Např. abych mohl zadat údaj 34,75 a v buňce by se zobrazilo 34:45
Ty podmínky jak jsi je sepsal jsou divné, ale je to jak jsem tomu porozuměl. Šak si to ve VBA upravíš podle potřeby.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články