Příspěvky uživatele
< návrat zpět
@AL
No neviem. Ja by som taký kód (35000 riadkov) ani nečítal nieto ešte skúšal pochopiť.
A netuším ani tabuľku s 35000 riadkami, ktorá sa 9 krát denne aktualizuje. Veď jeden ani nezaregistruje zmeny, ktoré sa medzitým udejú.
Samozrejme ak nejde o sledovanie menových kurzov alebo akcií. To je zase iný svet. A na to asi nebude excel najvhodnejší.
VBA v exceli má byť krátky(väčšinou, samozrejme sa nájdu aj výnimky). Excel je v prvom rade tabuľkový procesor a nie programovací jazyk.
Radek-Klepacek napsal/a:
Mám makro cca o 35 000 řádcích, které cca 9x za den kontroluje plán.
No na toto by som ja zo zadania ani nepomyslel. A myslím, že aj odhad xlnc bol dosť pod touto hodnotou.
No niektoré dosť podstatné veci je vhodné uviesť aj do zadania. Človek by bol aspoň trochu v obraze.
@ALL
Ten problém poznám. Tiež to nepoužívam. V práci mám excel 2010, doma excel 2007.
Teraz mi doma nejde ani CTRL+; ani CTRL+SHIFT+H. Našiel som F2 a potom už CTRL+; funguje.
Tiež si myslím, že toto jednoúčelové makro je na draka. Pár klikov a mám to manuálne tak ako potrebujem. Ale keď sa niekto potrebuje pocvičiť v programovaní, tak to môže účel splniť. Iný význam tam nevidím.
No mne sa celkom páči možnosť c). Je to oveľa lepšie ako kilometrový kód VBA.
Dáš automatický filter.
Vyberieš hodnoty 1 2 a 3
V stĺpci B vyznačíš myškou príslušnú oblasť
dáš CTRL + ;
a na záver CTRL + ENTER
Akurát CTRL + ; nefunguje vo všetkých verziách excelu. Napríklad mne to v excel 2007 nejde.
Už som na to prišiel, pred CTRL+; treba stlačiť F2
No syd na to urobil makro.
Koľko tam bude takýchto oblastí?
Čo ak budú za sebou dve prázdne? Súčet bude 0?
Myslím, že toto vzorcom nepôjde.
Asi som nemal napísať "pozri si SUBSTITUTE" ale "naštuduj si SUBSTITUTE" 
No neviem v akej reči je zadanie, ale skús si pozrieť funkciu SUBSTITUTE.
Predpokladám, že kopírovať a vložiť ako hodnotu by ti nemalo robiť problém.
Teda pre číslo 12800 ma byť 0 alebo 50????? To môže byť problém.
@syd
No podľa mňa "daný výraz" nie je neznáme číslo. To oznámil až dodatočne, že to myslel inak. Ale ja neviem ako niekto myslí. Co je psáno, to je dáno.
No jeden by si myslel, že DANÝ výraz(8ciferné číslo) je napríklad "12345678". No potom teda tento HĽADANÝ reťazec("12345678") proste vypíše.
No ale keď má niekto problém s vyjadrovaním....
No ak bunka obsahuje ten text(8ciferné číslo), tak ho proste napíš(to 8ciferné číslo)
Ak ho neobsahuje, tak nenapíš nič. 
Tak teda ešte raz a pomaly.
1. vyznač na 1.liste kopírovanú oblasť. napríklad A1:X100
2. daj kopírovať formáť. to je taký šteteček.
3. klikni na list2, stlač SHIFT a zároveň klikni na posledný list30
4. klikni na bunku A1.
5.hotovo
A keby si tak veľmo chcel makro, tak nech sa páči.
Sub Makro()
Sheets(1).Range("A1:x100").Copy
Sheets(Array(2, 3, 6)).Select
Sheets(2).Range("A1").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
Ja som na to potreboval cca 6 klikov.
Veď to nekopíruj po jednotlivých bunkách. Kopíruj celé oblasti, napríklad A1:X100.
Tiež nedávam prílohu. Naozaj nie je potreba.
@stejzi
To makro aj tak bude iba jednorazové.
Pre nový zošit ho budeš musieť upravovať.
To ti za tých pár klikov naozaj stojí?
No zapni si nahrávanie makra
A postup som už uviedol.
A makro si už iba "učešeš".
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