Příspěvky uživatele
< návrat zpět
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.
A čo Vám na tom nefunguje ? Veď keď dáte deklaráciu
Public aktivniBunka As Range
do Modulu, tak premennú aktivniBunka Váš Form krásne vidí. Snáď nedávate deklaráciu do formu ...
?
=SUBSTITUTE(SUBSTITUTE(H9;G9&", ";"");", "&G9;"")
=DOSADIT(DOSADIT(H9;G9&", ";"");", "&G9;"")
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články