Příspěvky uživatele

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ť.

A nechýba Vám v cenníku cena za 1 ks, respektíve do 20 ks ? Predpokladám, že to je cenník
od 20 viac (vrátane) = cena x
od 50 viac (vrátane) = cena y
...
teda chýba cena pod 20 ks.

alebo je to ?
do 20 (vrátane) = cena x
do 50 (vrátane) = cena y
...
v tom prípade tam chýba cena nad 2000 ks

Upresnite...

Musíte konečne vysvetliť, čo znamená u Vás slovo Export, a čo znamená Import. Nikto netuší, do akého formátu a z čoho Vy exportujete. Neprezradil ste ani to, čo som sa priamo pýtal, že či chcete, importovať nejakú tabuľku s výpisom, priamo zo stránky s internet bankingom. Alebo či máte napr. PDF výpis a to sa pokúšate importovať do Excelu. Alebo či máte nejaký CSV alebo TXT súbor z toho Vášho "Exportu", a ten sa následne importuje do Excelu. Chápete, že nikto netuší čo máte, a o čom hovoríte ? Čo znamená "taham z uctu udaje o platbach a uzivateloch" ?

Potrebujete detailne popísať (najlepšie klik za klikom) čo robíte, a čo máte.
Prípadný riešiteľ potrebuje ale aj vzorový súbor, ak ho máte. Zmente v ňom údaje, ale formát zanechajte.

Filter nedokáže skrývať stĺpce, ale iba riadky. Váš problém by som riešil na samostatnom liste výberovým zoznamom a tabuľkou so vzorcami o dostatočnej výške. Príklad.

Z makra vymažte tuším v štvrtom riakdu od konca tento reťazec ".Offset(, 1)" a makro bude robiť to čo chcete.

Ten vzorec som Vám dal preto, aby ste nemuseli mať kvôli takejto prkotine XLSM súbor. Teda som predpokladal nasledovné (pár sekúnd práce).
-Vložte stĺpec, a natiahnite v ňom ten vzorec.
-Skopírujte hodnoty do Vašeho stĺpca s nevyplnenými dátumami
-Odstráňte pomocný stĺpec

2 príklady, vzorcom a makrom. V PowerQuery je na to priamo funkcia Vyplnit-Nadol

Pr.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje