Příspěvky uživatele
< návrat zpět
Fakt neviem, čo s Vami.
má byť rozpätie medzi bunkami C2 a D2 a len kontrola hodnoty medzi týmito bunkami k bunke B2
veď to je ďalší slovný nezmysel. Ja som na slovné úlohy praštený, a u Vás ma praštil asi tank.
"má byť ..." - myslíte "výsledok má byť" ?
"rozpätie ..." - myslíte "rozdiel" ?
"kontrola hodnoty" - a čo s výsledkom kontroly ? Vždy musíte mať zapísané 2 odpovede.
"medzi týmito bunkami k bunke B2" - Myslíte "skontrolovať, či sa hodnota B2 nachádza v rozpätí medzi C2 a D2" ?
L21 - Ako som písal, vždy musíte mať nachystané odpovede na oba druhy výsledku podmienky. Výsledok podmienky je vždy :
ANO/NIE
TRUE/FALSE
PRAVDA/NEPRAVDA
...
A vy musíte do vzorca napísať, čo sa udeje v prípade odpovede ANO :
A2*1,1 - výsledok podmienky je hodnota A2 zvýšená o 10%
aj v prípade odpovede NIE :
???
Čo má byť na mieste tých 3 otáznikov v prípade ak vyhodnotenie otázky
AND(B2>D2;B2-D2>D2/10)
bude záporné/NIE/FALSE/NEPRAVDA ?
Čo sa udeje ak to tam nezadáte - toto je zatiaľ posledná podmienka, nič už za ňou nieje, teda si tam Excel doplní predvolený výraz pre záporný výsledok, a teda budete mať v bunke napísaný text
v SK a EN Exceli
FALSE
v CZ Exceli
NEPRAVDA
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ť...
Uživatelské menu
\nFormulář 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