Příspěvky uživatele
< návrat zpět
"MilanKop" napsal/a:
...nebo něco zapomněl vyplnit...
No veď práve. Pretože to býva často Výberový zoznam "ANO", "NE", ktorý umožňuje nezadať nič (alebo bunku zmazať), tak by som netestoval existenciu "NE" ale naopak neexistenciu "ANO". Aby sa za chybu považovalo aj nevyplnenie/zmazanie bunky.
If List1.Range("A1").Value <> "ANO" Then
Aj to niekto pochopil???
"Názorný výsledek" - no možno, ale treba širší popis.
Vo výsledku je stĺpec G nepodstatný? Alebo sa do toho počtu započítavajú práve tie čísla, ktoré v G sú? Teraz sú to 1, ale keby bola v G17 2, bol by výsledok aký? 81 5500?
Kam sa stráca hodnota stĺpca H? Tá sa ignoruje? Alebo sa jedná o kombináciu H&I 6040&5500, 6040&3800, 6040&3000 a z toho sa zoberú jedinečné, pričom sa H vynechá? Takže H bude vždy rovnaké pri určitom I? Alebo môže nastať že v H17 bude 6041? Aký by bol potom výsledok? Tiež 80 5500? Alebo 79 5500, a tá druhá 5500, čo má namiesto 6040 v H 6041, by bola nejako inak rozlíšená s počtom 1 5500?
Ak je stĺpcov v riadku viac, tak sú v riadku vždy rovnaké hodnoty? Ak nie, ako sa určí jedinečnosť? Vyššie popísaným spôsobom? 6040&3000&3000? Alebo môže J152 3001, a potom bude výsledok aký?
19 3000 3000
1 3000 3001
?
Alebo ak je raz kombinácia stĺpcov 6040&3000&3000, tak iná byť nemôže ? Napr. 6040&3000, 6040&3000&3000, 6040&3000&3001, 6040&3000&3000&3000&3000, ...
Jedná sa o obyč. tabuľku alebo o objekt Tabuľka?
Výsledok ma byť vzorcom, makrom, PowerQuery?
Možností bude mnoho, napr.:
= Table.AddColumn(Predchádzajúci_krok, "Vlastné", each Number.ToText(Number.From([AAA]=[BBB])*100 + Number.From([BBB]=[CCC]) *10 + Number.From([CCC]=[DDD]), "000"))
= Table.AddColumn(Predchádzajúci_krok, "Vlastné", each (if [AAA]=[BBB] then "1" else "0") & (if [BBB]=[CCC] then "1" else "0") & (if [CCC]=[DDD] then "1" else "0"))
"Začátečník" napsal/a:
...
EN: =DATE(YEAR(F10)+(F10>DATE(YEAR(F10);7;20));7;20)
...
No, to ale nie je EN vzorec. To je SK vzorec. EN vzorec má oddeľovače parametrov čiarku ",", naproti tomu majú CZ/SK vzorce oddeľovač parametrov bodkočiarku/středník ";".
CZ má väčšinu funkcií preložených, je teda väčšinou ľahko odlíšiteľný, no SK vs EN sa líšia iba v oddeľovačoch. Ja uvádzam vždy SK a CZ variant.
V tomto prípade by to teda bolo:
SK =DATE(YEAR(F10)-(F10<DATE(YEAR(F10);7;20));7;20)
CZ =DATUM(ROK(F10)-(F10<DATUM(ROK(F10);7;20));7;20)
EN =DATE(YEAR(F10)-(F10<DATE(YEAR(F10),7,20)),7,20)
a) v EN vzorci máte chybu -> dvojité úvodzovky
b) ja chápem požiadavku presne opačne -> najbližší 20.7.xxxx dozadu, nie dopredu, pr.:
=DATE(YEAR(F10)-(F10<DATE(YEAR(F10);7;20));7;20)
=DATUM(ROK(F10)-(F10<DATUM(ROK(F10);7;20));7;20)
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.
Uživatelské menu
\nMenu
Formulář 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