Příspěvky uživatele
< návrat zpět
Možno si pre väčšiu zrozumiteľnosť korekciu deliteľnosti 28 (+12), zmeňte za korekciu pomocou referenčného dátumu (-ref. dátum). Aby ste vedel, že v tento dátum je daná sekvencia smien, a od neho sa odvíja striedanie tých smien. Prípadne rozdeliť sekvenciu 28 smien na 14, tie sa vymieňajú v D/N (alebo aspoň opticky predeliť vymieňanie tých 14).
Worksheets("List1").Shapes("Drop Down 3").OLEFormat.Object.ListIndex = 1
Aha. A s čím máte problém? Veď to sú tisíce a tisíce riadkov kódu! Extrémne komplikovaná aplikácia o ktorej logike nemáme páru, návod ako dizertačka...
To študovať a hádať, o čo Vám ide, rozhodne nejdem.
Skúste konkrétne popísať problém a možno sa niekto nájde.
Alebo o žiadny problém nejde, a toto je free ponuka na stiahnutie a používanie pre tých, ktorý vedia "vo čem to je"?
???
To je cesta k zložke na Vašom PC, interná cesta. Čo my s tým? My sa tam nedostaneme nikto, ani nevieme, čo znamená, že je odkaz OK ... (aké sú podmienky, že nieje OK???)
Rozpíšte Váš problém inak.
alebo InStrRev
Range("B1") = Left(jmenoSouboru, InStrRev(jmenoSouboru, ".") - 1)
Pár vecí ma hneď napadá...
Takže v "název listu" je názov kopírovaného listu v zdroji alebo je to názov, ako sa premenuje ten 1. zdrojový nakopírovaný list (akokoľvek sa bude bude volať, ale vždy 1.), vložený v konsolidačnom súbore?
Keď sa bude kopírovať celý list, ako nový list do konsolidačného súboru, znamená to, že sa najskôr musia z konsolidačného súboru zmazať všetky ostatné listy okrem "zadání"?
Čo ak príde ku kolízii názvov listov?
Treba teda zachovať rôzne vzorce, orámovania a formáty?
To pôjde jedine makrom, a aj to iba postupným otváraním súborov.
Alebo stačí iba nakopírovať hodnoty (bez vzorcov, formátov, orámovaní) do predformátovaných stĺpcov ? (*s tým súvisí ďalšia otázka)
Je rozsah stĺpcov (teda šírka dát) vždy rovnaký, a sú stĺpce rovnako pomenované s rovnakým typom dát?
BAT bude rýchlejší, jasne to v poslednej vete píšem, ale tu sa jedná o mizivé počty, spomína 5 ks. Čo znamená, že najzdĺhavejšia časť, ktorá musí prebehnúť v oboch prípadoch, je vytvorenie zoznamu prechádzaním buniek (napr. Intersect zo Selection a/alebo SpecialCells). Pochybujem, že stačíte 2x mrknúť pri takom počte foldrov 
Ale BAT bude vždy rýchlejší, to áno.
No hej, ale reálny rozdiel/prínos bude aký? Aj tak si makrom musí urobiť zoznam z vybranej oblasti, a keď už makro beží, rovno sa názov môže poslať ako parameter do MkDir. Namiesto toho aby som si niekde uložil zoznam a potom ho nakopíroval do BAT (alebo makrom vytvoril BAT súbor). Aký bude časový rozdiel vykonávania operácie (spomínaných 5 foldrov)? 0,01 sek v prospech BAT?
Vložte prílohy s príkladmi rôznorodosti zdrojových súborov a z nich požadovaného výsledku. Nejako to zautomatizujeme ...
Dospel som k tomu, že makrom to cez Msxml2.XMLHTTP, zo serverov ako Google a Msn nepôjde. Načíta totiž kód stránky s nastavením Cookies, a nie to čo dotazujeme. Powerquery to zatiaľ dokáže obísť, a kód stránky načíta. Dostať odtiaľ hodnoty je potom už jednoduché.
Bez makra, obnovuje sa každú 1 minútu.
Z akej stránky čerpáte ten kurz?
To by bolo asi lepšie urobiť makro alebo PowerQuery dotaz, aby ten kurz vytiahol zo stránky napr. niekam do bunky. Takto mi to príde divné...
EDIT:
Niečo ako napr.:
Function KURZ_AED_CZK() As Double
Dim a() As String
Application.Volatile
With CreateObject("MSXML2.ServerXMLHTTP")
.Open "GET", "https://www.kurzy.cz/kurzy-men/prevodnik-men/AED-CZK/", False
.Send
a = Split(Split(.ResponseText, "</span> CZK (česká koruna)")(0), ">")
End With
On Error Resume Next
KURZ_AED_CZK = Val(a(UBound(a)))
End Function
Môžete taký PDF priložiť?
Ak dám v PDF iba Table001, tak mi to načíta iba časť, ak dám Page001 tak všetko ale nezmyselne rozsekané na riadky a stĺpce.
Záleží na Vašom konkrétnom druhu PDF.
Nejaký príklad som urobil, ale tento "browser" má veľké obmedzenia (skripty, cookies, nezatvoriteľné časti stránok, nefunkčnosť...). Záleží na tom, k čomu to presne bude.
návod na YT
+ upraviť reg
na YT
ovládate makrom
Sub Pocet()
Dim Soubor As String, Hledej As String
Dim PocetVyskytu As Long
Soubor = "abc\def\ghi"
Hledej = "\"
PocetVyskytu = Len(Soubor) - Len(Replace(Soubor, Hledej, ""))
End Sub
alebo
...
PocetVyskytu = UBound(Split(Soubor, Hledej))
...
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