Příspěvky uživatele
< návrat zpět
Ono sa to asi v Chránenom zobrazení otvorí v druhej inštancii Excelu, čistý tip. Čo potrebujete robiť v tej Deactivate ? Či sa to nedá len preskočiť v On Error, alebo treba podúmať nad API, alebo či nemôžete proste Chránené zobrazenie úplne vypnúť.
Tak som Vám nakoniec prerobil všetky vzorce a def. názvy.
Pre maticový vzorec by to nemal byť problém bez pomocných buniek. Rozsahy si upravte, s tým už sa mi nechcelo ...
Vy chcete vypočítať počet čísel v pyramíde, pri zadanej hodnote X ?
Neviem či príklad výpočtu počtu čísel čo som uviedol vo vzorci a v makre zodpovedá, ale tak nejak mi to vyšlo. Je to v oboch prípadoch aj s ukážkou pyramídy, ale výstrel do tmy ...
peto22 napsal/a:
...ked to poslem do excelu..
Moje nervy, takéto vysvetlenie nemôžete myslieť vážne. Príklad toho, čo od Vás chceme:
-Otvorím si internetový prehliadač, prihlásim sa, a v menu Výpis si zobrazím pohyby na účte. Mám s toho krásnu tabuľku.
-V mojom InternetBankingu mám také hranaté tlačítko, "Uložiť výpis", ktoré mi uloží kam len chcem súbor "VYPIS_4_2017". Ten súbor má príponu "CSV".
-Keď tento súbor "VYPIS_4_2017.CSV" otvorím v Poznámkovom bloku, tak obsahuje aj diakritiku.
-Keď tento súbor otvorím dvojklikom, otvorí sa v Exceli, ale diakritiku nemá.
-Keď tento súbor dám v Exceli importovať cez menu Údaje - Z textu - kde si navolím Hlavičky, kódovanie Windows (ANSI), oddeľovače a typy dát v stĺpcoch, tak sa mi diakritika už nezobrazí.
Alebo postup čo som napísal hneď v prvom príspevku
Údaje - Získať externé údaje - Z Webu
Nikto nemá páru čo máte na mysli, a čo je pre Vás samozrejmosť, o ktorej sa nemusíte zmieniť.
Spočítajte si slová, ktoré ste venoval svojmu problému Vy, a koľko sme ich vymrskali na Vás mi. Musíte sa viacej snažiť popísať situáciu, inak to nepôjde.
Neviem ako to vysvetliť, môj posledný pokus o synchro myšlienok.
Nezabúdajte, že akonáhle je nejaká podmienka splnená, už sa na žiadne ďalšie v poradí nedostane. Preto som zdôrazňoval prioritu otázok.
Hneď po prečítaní ma napadlo, či Ernesto nemyslí náhodou na modálny vs. nemodálny form, ale potom ma nejako premohla myšlienka, vzhľadom na koncepciu použitých slov vo vete, že to asi bude myslené na bežiaci kód, takže DoEvents. No a vida, to čo sa hovorí o prvom dojme, predsa len niekedy kurňa bude pravda 
Nerozumieme si, alebo ja Vám vôbec nerozumiem.
- čo znamená "tak bude hodnota zo sumy z bunky A2 "0"" ? Znamená to "tak bude E2=0" ?
- "B2>=C2 a D2<C2" Max môže byť menší ako Min ?
- vety, tak ako ste ich odentroval, sú poradie priorít testov ? Čo ak bude napr. B2=D2 a zároveň B2<C2? Ktorý test/výsledok má prioritu ?
- stále mi chýba posledná fáza, ak nebude splnená žiadna zo série podmienok. To som minule nazval OKNO. A teraz opäť.
napr.:
=IF(B2<C2;0;IF(AND(B2>=C2;D2>C2);A2/2;IF(B2=D2;A2;IF(AND(B2>D2;B2-D2>D2/10);A2*1,1;"OKNO"))))
=KDYŽ(B2<C2;0;KDYŽ(A(B2>=C2;D2>C2);A2/2;KDYŽ(B2=D2;A2;KDYŽ(A(B2>D2;B2-D2>D2/10);A2*1,1;"OKNO"))))
teda keď sa to dostane po poslednú podmienku, ale B2 nieje väčšie o 10%, ale napr. iba o 3%, čo sa má stať ? AKý bude výsledok. Opäť som to nazval OKNO.
Ste dobrý, o tom žádná. A práve preto by ste mal čítať, čo tazatel píše. Makro je naschvál urobené tak aby zdržovalo. Ide len o to získať čas, na kliknutie na Súbor-Otvoriť. Celé je to o jedinom slove "DoEvents". To užívateľovi dovolí "vliesť" do Excelu, počas behu makra. A vypisuje číslo práve preto, aby bolo vidieť, že makro pracuje, a že napr. uchopenie okna či označenie buniek, makro pozastaví.
Vaše rady sú cenné, ale spôsob dávkovania je hrozný. Veď keby išlo o jednoduchosť alebo rýchlosť dalo by sa použiť aj WorksheetFunction.CountIf a pod.
EDIT: No odoslal som to neskôr ako eLCHa...
No zreťazil som Vaše podmienky do série, a vyšlo mi, že nemáte niektoré podmienky dokončené. Napr. tam kde je teraz "OKNO"
=IF(B2<A2;0;IF(B2=C2;A2/2;IF(B2=D2;A2;IF(B2-D2>=D2/10;A2*1,1;"OKNO"))))
=KDYŽ(B2<A2;0;KDYŽ(B2=C2;A2/2;KDYŽ(B2=D2;A2;KDYŽ(B2-D2>=D2/10;A2*1,1;"OKNO"))))
Skúste popis ešte zrevidovať, prípadne inak popísať. Nejako som to nepobral 
Takže treba určiť prioritu podmienok (pretože niektorá môže úplne vylúčiť inú). Potom treba myslieť na to, že každá podmienka musí mať ošetrené oba stavy (ANO/NIE), a navyše treba myslieť na >, =, <.
Presne ako vraví eLCHa. Ja som voľakedy používal Font Creator, platený, ale keď zadáte do Googlu "Font Creator", určo nájdete aj niečo Free. Bol tam aj import vektorovej nachystanej grafiky napr. z CorelDraw-u či Illustrator-u. Urobíte si tam klasický TTF font, ktorý môžete distribuovať so svojou aplikáciou.
OT: Čo preboha robíte s PC, že je treba reinštal čo rok ? Ja inštalujem PC takmer denne, ale svoj si bez problémov udržím v kondícii 3-4 roky, a to na ňom skúšam všetko, čo potom robím zákazníkom...
Tak potom stačí upraviť poslednú bunku na napr. 1 000 000 000. Inak ak chcete počítať aj počet potrebných archov, tak napr takto.
Sub pokus()
Dim i As Long, C As Long, ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
With ws
For i = 1 To 20000
If .Cells(i, 1) = "" Then C = C + 1: .Cells(1, 1) = C
DoEvents
Next i
End With
Set ws = Nothing
End Sub
Počas behu makra možno otvoriť iný zošit pomocou Súbor Otvoriť, nie dvojklikom.
Zopár vecí som Vám vyriešil, ale všetko nie. "s DPH" funguje ako ste chcel. Upravený kód na vkladanie. Zadal som obmedzenia pre "bez DPH". Formátovať počas písania pole "bez DPH" mi príde príliš náročné, vzhľadom na prkotinu vo výsledku. Treba zohľadňovať starú pozíciu kurzora, prípadnú čiarku, neznámy počet oddeľovačov tisícov. To mi príde až príliš. Na DatePicker si asi zožente nejaký doplnok. Vyskúšajte, už sa mi nechce, idem spať...
Mám to pre Vás pripravené, ale stále pletiete 2 režimy zliav.
režim 1. :
1-20
21-50
51-100
101-200
201-500
501-1000
1001-2000
chýba kategória 2001-nekonečno
režim 2. :
chýba kategória 1-19
20-49
50-99
100-199
200-499
500-999
1000-1999
2000-nekonečno
Ktorý z režimov máte ? Máte totiž 7 stĺpcov, a potrebujete 8. Vy teraz tvrdíte, že máte 6 kategórií v režime 1, a siedmu kategóriu v režime 2 (posledná). V tom prípade ale chýba 1001-2000. Neviem, ako to mám inak vysvetliť.
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