Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  4 5 6 7 8 9 10 11 12   další » ... 228

K ostatnému, čo píšete, sa pozriem niekedy neskôr. Teraz len rýchlo k tomu, že to nefachá v Roote disku. To je preto, lebo Win v Roote každého disku vytvorí skrytý adresár "System Volume Information" s vyhradeným prístupom. Nastane chyba pri získavaní počtu obsiahnutých súborov (obmedzený prístup), a keďže tam máte možnosť prerušenia makra (formou vyvolania a odchytu chyby), tak vlastne táto chyba prístupu, vyvolá rovnaké ukončenie ako ESC. Preto by som navrhol testovať cez Len(Dir()) cestu, a ak sa jedná o takýto adresár, dostanete 0, tak sa to dá obísť aj so zachovaním umelého prerušenia makra cez ESC pomocou vyvolania chyby, a zároveň to nekrachne na adresároch s obmedzeným prístupom.
pred riadok
Count = objFolder.Files.Count
dajte toto
If Len(Dir(objFolder.Path, vbDirectory)) = 0 Then Exit Sub

No elninoslov má funkčný základ napísaný, akurát mám pracovné veci. Momentálne píšem z auta...

EDIT 13.7.2021 22:36:
Už som konečne doma. Tu máte rýchlo beta verziu...
V najbližších dňoch, no neviem neviem, asi nepomôžem, uvidím ako sa mi to tu bude vyvíjať ...

Uvažoval som aj nad možnosťou to urobiť tak, že sa urobí najskôr zoznam súborov, aby sa vedelo koľko ich je, a potom by sa začali načítavať info. Kvôli zobrazeniu ProgressBaru. Na to som zatiaľ pre nedostatok času zanevrel.

Na to treba rekurzívnu metódu, nie vnáranie cyklov. Už som sem také niečo dával X krát. Ale skôr ako to nájdem, to znovu napíšem. No upresnite to, nech to nerobím zbytočne. Ten Váš kód práve postráda to hľadanie o ktorom píšete. Jedine, že by niečo porovnávala tá metóda "PrintFiles". Čo má byť účelom? Máte nejakú časť názvu, a chcete vypísať cestu k súboru, ktorého názov obsahuje daný text, či čo? Alebo chcete vypísať celú adresárovú štruktúru? To potom nieje hľadanie súboru.
...

V prílohe je ale napísané toto:
Prodleva ve zpracování
(pokud bylo založeno v:
pátek -48 hodin
sobotu -48 hodin
neděli -24 hodin)

Tak ako je to?
Pre ten Váš popis vyššie, kde ŠT/PI je -48 a SO/NE je -24 môže byť napr.
=J2-(WEEKDAY(G2;2)>3)*48+(WEEKDAY(G2;2)>5)*24
=J2-(DENTÝDNE(G2;2)>3)*48+(DENTÝDNE(G2;2)>5)*24

???
=J2-((WEEKDAY(G2;2)>4)*48-(WEEKDAY(G2;2)=7)*24)
=J2-((DENTÝDNE(G2;2)>4)*48-(DENTÝDNE(G2;2)=7)*24)

=SUBSTITUTE(B4;"dddd";TEXT(G10;"d.m.")&YEAR(G10))
=DOSADIT(B4;"dddd";HODNOTA.NA.TEXT(G10;"d.m.")&ROK(G10))

Naschvál som rozdelil dátum na "d.m." a YEAR(), aby to nerobilo problém pri inej jazykovej mutácii Excelu. V CZ totiž rok nie je "yyyy" ale "rrrr", a to robí pri prípadnej multijazyčnosti problém.

Aleb dajte tej bunke vlastný formát
"V Praze, dne" d.m.yyyy
a do bunky iba vzorec
=G10
prípadne si to ošetrite na možnosť nevloženia žiadneho dátumu
=IF(G10="";"";G10)
=KDYŽ(G10="";"";G10)

prípadne to ošetrenie môžete urobiť priamo v tom formáte
"V Praze, dne" d.m.yyyy;;;
možností je habadej ...

Google prvý odkaz

Riešením by bolo aj to, aby ten text bol vo formáte bunky, a nie pred vzorcom. Takže Vlastný formát
"Celkový zisk v CZK:"•
# ##0,00

kde namiesto tej guličky • dáte Alt+010. V bunke bude následne iba číslo podľa vzorca
=SUBTOTAL(9;F2:F1000)
Nevýhoda je (neprišiel som na to ako to obísť), že musíte tie 2 stĺpce so SUBTOTAL rozšíriť na celkovú šírku takú, akú by mal vypisovaný text s číslom spolu, aj keď sú pod sebou. Odhadom asi o 1,5 cm.

Jednoducho pomocným stĺpcom

Milan-158 napsal/a:

...anebo v momentě když si to nepřejeme, to potlačit pomocí Application.EnableEvents = False...

Musím Vás opraviť. Toto pri formulári VBA nefunguje. Na nevykonanie onChange používam globálnu premennú napr.
Dim bEnableEvents as Boolean
a následne v onChange hneď na začiatku testujem či je
If bEnableEvents Then
... vaše makro onchange ...
End If

a pritom bEnableEvents nastavím na False vždy pred volaním procesu, ktorý spôsobí "nechcenú" zmenu. Po dokončení naspäť na True.

Sub Ocisluj()
Dim N As Long
N = 1
Worksheets("Hárok1").Range("A1").Resize(N).Value = Evaluate("=ROW(1:" & N & ")*10")
End Sub

Prílohu som nevidel, skúsim od boku z mobilu bez skúšky:
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)

A čo je na tom príklade inak, ako píšete ???

Sub TiskDoPdf()
Dim Mesic As Integer
Mesic = Sheets("Měsíc").Range("A1").Value

Sheets("Doplnění").PageSetup.PrintArea = Range("A1:G50").Offset(0, (Mesic - 1) * 8).Address
Sheets(Array("sm. A", "sm. B", "sm. C", "sm. D", "Doplnění")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Sheets("Měsíc").Range("A2").Value & Mesic & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Docházka").Select
End Sub

Evidentne sa jedná o rovnako veľké oblasti a sú len posunuté. Ak sú posúvané rovnomerne, tak stačí jednoduchý Offset.
Niečo na spôsob:
PRVÁ_CIEĽOVÁ_OBLASŤ.Offset(0, X - 1).Value = ZDROJOVÁ_OBLASŤ.Value
a nie je treba pole...


Strana:  1 ... « předchozí  4 5 6 7 8 9 10 11 12   další » ... 228

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

Vodorovný teploměr v buňce

GeorgeK • 1.12. 12:26

Vodorovný teploměr v buňce

elninoslov • 1.12. 10:21

Vodorovný teploměr v buňce

Stalker • 1.12. 10:01

Vodorovný teploměr v buňce

GeorgeK • 1.12. 9:15

Spustit makro v určitý čas

Baja • 28.11. 20:11

Spustit makro v určitý čas

elninoslov • 28.11. 17:09

Spustit makro v určitý čas

Baja • 28.11. 12:51