Příspěvky uživatele
< návrat zpět
Lze k tomu využít příkaz Application.Dialogs(xlDialogPrint)...
P.
Např.:
Sub Tisknout_pojmenovanou_oblast()
Dim tisknout As Variant
Sheets("List1").Select
Sheets("List1").Range(Sheets("List1").Range("A1").Value).Select
tisknout = Application.Dialogs(xlDialogPrint).Show(, , , , , , , , , , , 1)
End Sub
Používá se tam funkce Format, která má výstup limitovaný na 255 znaků.
K vyřešení problému s dlouhými názvy otázek tak bude stačit pouze nahradit toto (v kódu dvakrát): Format(Trim(Worksheets(NazevOkruhu).Cells(Adr, 4).Value))tímto:
Trim(Worksheets(NazevOkruhu).Cells(Adr, 4).Value)Pro ošetření délky odpovědí pak analogicky provést úpravy v dalších příkazech...
P.
A jaký je tedy dotaz? Čeho chceš konkrétně dosáhnout?
Takové ne úplně dokonalé řešení (z poslední věty to ale chápu tak, že jsi něco podobného zkoušel):
1.) Do druhu skla dáš vzorec (nastav požadované kritické rozměry):
=KDYŽ(NEBO(B5>100;C5>100);$C$1;"")2.) Do stejné buňky pak dej ověření dat - Seznam (předpokládám, že hodnota v C1 je také součástí tohoto seznamu).
Výsledek bude takový, že řádky s kritickým rozměrem nebudou mít druh skla zadaný, ale budou umožňovat výběr ze Seznamu. Problémem je samozřejmě to, že se výběrem ze seznamu vzorec smaže. Pokud se jedná o "jednorázové" řešení, tak by neměl být problém...
P.
1.) Podruhé naskenovaný kód bych ukládal na nový list. (Možná by bylo lepší nejdříve naskenovat všechny kontrolované kódy, a až pak provádět "analýzu".)
2.) Žluté podbarvení v případě shody kódů jde přes Podmíněné formátování.
3.) Datum si můžeš odříznout do nového sloupce přes funkci ZLEVA (příp. ČÁST). Červené formátování podle data jde opět přes Podmíněné formátování.
P.
Zkus vložit excelovou přílohu.
P.
Řešením může být funkce RANK.
P.
Bez přílohy to nebudeme vědět ani my ;-)...
P.
Takže tam máš asi nějaký číselník. Pak je to případ o jedné funkci - SVYHLEDAT... Musí to být nutně makrem?
P.
Tak s tou novou podmínkou ohledně řetězení textu to je ještě vyšší liga. Vyřešení takovéto problematiky může trvat hodiny a hodiny, to určitě nedám ;-)...
P.
Budeš to muset podstatně více a lépe popsat, nejlépe s přílohou...
P.
Principiálně by nemělo být nic složitého. Je to pak převážně o tom, jak kvalitní mám zdrojový slovník. Přepočet bude samozřejmě vždy chvíli trvat, ale dá se to vyřešit i na běžném PC.
Postup:
1.) Vezmu slovo ze slovníku, rozsekám jej po písmenkách přes ČÁST.
2.) Následně ověřím přes COUNTIFS, zda mám dostatek písmen (a ta správná písmena) v zadaném číselníku.
3.) Vyhodnocení provedu přes KDYŽ.
4.) Výstup získám vyfiltrováním sloupce.
P.
Př. (čárky a případné další vychytávky jsem neřešil):
Je zjevné, že nemá smysl (resp. v domácích podmínkách nelze) vytvářet všechny variace slov dle zadání z 16 písmen, podle mých výpočtů by jich bylo 56 874 039 505 920, což by naplnilo všechny buňky v 3310 listech Excelu...
Ale co na to jít z druhé strany?
Kdybych vyloženě musel řešit, tak bych si obstaral nějaký slovník daného jazyka, ten může mít třeba cca "jen" 200 000 slov, no a v tomto seznamu bych pak přes vzorce ověřoval, zda lze, či nelze, ze zadaných písmen slova sestavit.
P.
Bez přílohy těžko říct...
P.
Bez přílohy těžko říct, předpokládám ale, že ti to zpomaluje velké množství dat či vzorců v sešitě.
S každým zápisem vzorce do buňky se totiž provádí znovu přepočet, což při velkém množství dat může velmi zpomalovat. Řešit lze tak, že se na začátku makra vypnou přepočty, a až se zapíšou všechny vzorce, tak se opět přepočty zapnou.
P.
Př.:
'Na začátek makra:
Application.Calculation = xlManual
'Na konec makra:
Application.Calculation = xlAutomatic
Možná by si šlo pomoci i tím, že by se dokument uložil jako CSV (oddělený středníkem)...
P.
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