Příspěvky uživatele
< návrat zpět
Něco jsem zkusil, vyzkoušej.
Makro1 je nahrané, jako Data/Načíst externí data/Z textu - oddělovač středník. Tam je v makru napevno cesta k souborům D:\Temp, když jsou soubory jinde, je nutné to přepsat.
Makro Import vychází z mého souboru, kde načítám více *.csv Ukáže se adresář a makro z něho načte v cyklu všechny soubory csv. Upravil jsem na počet sloupců 7.
Data dá na aktuální list, který by měl být prázdný. Uložení a pojmenování souboru už je na tobě.
Třeba takto.
Skrýt nepoužívané sloupce, řádky?
Označit první sloupec ke skrytí. Stisknout a držet Shift, pak End, pak Šipka vpravo. Tím se označí sloupce do konce rozsahu, pak pravá myš, v menu vybrat Skrýt.
To samé pro řádky, jen se Šipkou dolů.
Děkuji. Objevily se přede mnou nové obzory, ale jsou hooodně daleko.
Nějak jsem to rozchodil, ale otázek by bylo... chtěl bych si ujasnit:
Set txt1.txtUni = TextBox1txt1 je název nově vytvořeného objektu?
txtUni je název nově vytvořené události v modulu class? nebo co tento název představuje?
Znám zápis: Set proměnná=objekt , proměnná.něco se vztahuje jen k tomu modulu Class nebo se dá použít vždycky, a na co?
lubo napsal/a:
Obvykle jde jen o pář řádků kódu a získáš univerzální jednotnou obluhu potřebných událostí na jednom místě.
Zapojím se do tématu. Takové řešení by mě docela zajímalo, ale tajenku od luba jsem nevyluštil, nemám na to potřebný level.
Uvítal bych, jestli je to možné, těch pár řádků kódu jako příklad.
Použil bych funkci SVYHLEDAT, ukázka v příloze.
Já o tom vím toto.
On Error Resume Next potlačí přerušení při chybě, pokračuje se dalším řádkem a umožní to vlastní zpracování chyby podle čísla chyby Err.Number
On Error Goto 0 zase zapne zachytávání chyb, nastaví kód chyby na Nothing
@Opičák:
Taky tu pilně studuju. Důkaz, že je to tak, je nejlíp vidět v právě v okně Locals, ve tvém makru. Tam je u NC Item 1,2,atd. uveden Typ Variant/Object/Range (a další údaje o buňce) , kdežto u NCA je Typ Variant/Double a víc nic. Nebo Variant/Text když se místo Cell.Value použije Cell.Text.
A zrovna se tu zeptám.
Kdy přesně bych měl použít Cell.Text. Pro jaké účely, jenom když chci dělit, spojit texty? Vždyť i Cell.Value mi dá text, když je text v buňce. Jsem samouk, něco použiju a když to ve výsledku funguje, víc to nepitvám. Zprvu jsem důsledně psal všude Cell.Value, nechal jsem toho, když jsem to okoukal ve zdejších nebo jiných kódech, že je zvykem to neudávat.
Tak tedy ještě vzorcem
Ano, to je to, co jsem potřeboval !! Děkuju. Teď si to musím víc rozebrat pro úplné pochopení, ale funguje to!
Zajímavé, navíc když jsem si nechal vypsat položky potřetí po kopii na konci makra, jsou zase 3 unikátní.
Ale nepomůžu, nevím. Snad něco se zdrojem colection držené v paměti??
Ta poznámka směřovala na Adosl.
Proč nejde použít kopii 16. řádku do 2., označit C1:P1, Přejít na-jinak/prázdné buňky, odstranit/posunout vlevo ? Je to moc klikání? Tak to nahrát do makra.
Jen poznámka: Když makro přidá 2 sloupce, kopíruje do nich datumy, (inteligentně rozdělí ty s čas.úsekem), seřadí, zase ty 2 sloupce odebere, jak to může ovlivnit konečný výstup?
Dík za odpověď.
Udržovat výšku tvaru jen v zobrazeném okně je dobrý nápad. Ale stejně mi uniká závislost součtu výšky řádků a výšky okna Excelu. Když jsem to zkoušel např. na 30 řádků a výšce 14,4 >> nastavím .Height = 432 a pak vidím jen 20 řádků a kousek. Nevím.
Do svého řešení jsem přidal zvýraznění řádku a možnost zapnutí/vypnutí na CheckBox. V ostrém sešitu to potom celkem jde používat.
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