Příspěvky uživatele

Tahle část už mi taky trochu habrovala - takhle to asi moc napsat nejde :/ No to naozaj nejde. Priradenie hodnoty objektovej premennej sa totiž deje prostredníctvom inštrukcie Set, čiže:
Set SrcFile = Workbooks("abc.xls")
Set DestFile = Workbooks("123.xls")
Set SrcRng = SrcFile.Sheet1.Range("C:C")
Set DestRng = DestFile.Sheet1.Range("A:A")

Cyklus For-Next je možné písať napr. v tvare

For each x In SrcRng
..
Next x

Pokiaľ to píšeš s chybami, niet divu, že ti to nefunguje - budeš sa musieť doučiť syntax jazyka.

Mimochodom, ten kód od Palaa je funkčný, jediná vec, ktorá v ňom nie je zapracovaná, je to zvýrazňovanie nových položiek; to by sa dalo dorobiť v tej subrutine aUpload v časti If Not aRow Is Nothing, za ktorú je treba dopísať ešte časť Else. Ale je to dietko kolegu Palaa, tak to nechám na ňom. Inak skutočne klobúk dolu pred Paloom, je obdivuhodné, čo všetko v danej kvalite a objeme pre vás zadarmo tvorí...

Nie je o tom niekde popisane viac?
Určite je, ale že by som mal po ruke zoznam zdrojov, tak to teda nemám. Myslím si, že logika mnou uvedených dvoch vzorcov je pomerne čitateľná.

To mi chces rict ze pokud mas list 1 a list 2 a das vyhledat list1A:A,list2A:B,2,0 tak to vyhodi chybu :D Máš pravdu, beriem späť, naozaj to funguje

Kdyz zapisu vzorec standardne oznaceni listu je v apostrofech - 'list1'!
Ďalšia nepresnosť. Nájdeš rozdiel?
=Sheet2!C5
='Sheet 3'!C6
Prečo tam asi sú v druhom prípade apostrofy a v prvom nie?
Ako dostať do formule v kóde apostrofy?

@wh1:
funkci svyhledat znám velice dobře :)
Zas tak dobre asi nie. Prvým argumentom musí byť hodnota (myslí sa tým jednotlivá hodnota, napr. z bunky), ty sa do nej snažíš dostať pole (celý stĺpec). Pokiaľ ti to, ako tvrdíš, funguje, tak to pokladám za zázrak a neviem prečo si Pavlus nestál za svojim

@marjankaj
IFERROR som zámerne neuvádzal z 2 dôvodov:
1. neviem, či má Lados verziu excelu, ktorá IFERROR podporuje, a bol by som naozaj rád, keby bolo toto nekonečné vlákno, venujúce sa triviálnemu problému, už ukončené
2. kloním sa k názoru Luba, že IFERROR by sa malo používať v prípadoch, kedy nie je lepšia voľba, nakoľko schová i neplánované chyby

dalo by se nějak docílit toho, aby když by v tom řádku nebyla 1, tak aby to nepsalo "Není k dispozici" ale byla tam prostě prázdná buňka?
Dalo, iste, samozrejme. Ale to je už skutočne základ a bolo by pre teba samého rozhodne lepšie sa o to pokúsiť sám, než spoliehať na to, že to niekto bude riešiť za teba. To ťa totiž premýšľať nad vzorcami nenaučí. Je to vec pár sekúnd, daný vzorec upraviť a pridať doňho ďalšiu podmienku. Je mi protivná pohodlnosť niekoho, kto radšej bude čakať na odpoveď niekoľko hodín, než by sám trochu zauvažoval a dal to za pár minút...
=KDYŽ(COUNTIF($A$6:$J$6; 1)=0; ""; KDYŽ(INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0))=""; ""; INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0))))

Bohužel mi to ale píšu chybu "neplatný název" :(
To je samozrejme spôsobené tým, že máš českú lokalizáciu, užívatelia vo svete väčšinou asi nebudú pracovať s českým excelom, čo myslíš? Anglické názvy funkcií musíš v takom prípade pochopiteľne nahradiť českými.
=KDYŽ(INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0))=""; ""; INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0)))

Nemůžu ten soubor tady hodit, protože to má přes 7MBSúbor musíš zazipovať.
Ale OK, som si to teda stiahol. Síce si toho napísal spústu, ale podstatná informácia nezaznela. Otázka znie:
Jednička na liste tabulka bude vždy zapísaná iba v jednom stĺpci, t.j. iba u jednej položky? Pokiaľ áno, tak do bunky L6 si vlož vzorec:=IF(INDEX(slova!$F$3586:$O$3732;ROWS($L$6:L6);MATCH(1;$A$6:$J$6;0))=""; ""; INDEX(slova!$F$3586:$O$3732;ROWS($L$6:L6);MATCH(1;$A$6:$J$6;0))) Uprav si rozsahy a skopíruj dolu.

@Lados
Ty si fakt komik :). Vzor uložíš niekam, kde je potrebné pre jeho stiahnutie posielať nejaké smsky. To je žart? Buď sa zaregistruj a vlož prílohu priamo na wall alebo použi nejaký neplatenú službu, uložto, dropbox, sweb čo ja viem čo ešte existuje...

Medián z kladných hodnôt spĺňajúcich kritérium rozsahu:=MEDIAN(IF((('Market movers'!$E$4:$E$1000>Hárok3!F7)*('Market movers'!$E$4:$E$1000<Hárok3!E8)*('Market movers'!$I$4:$I$1000>0))>0; 'Market movers'!$I$4:$I$1000; ""))Medián zo záporných hodnôt spĺňajúcich kritérium rozsahu:=MEDIAN(IF((('Market movers'!$E$4:$E$1000>Hárok3!F7)*('Market movers'!$E$4:$E$1000<Hárok3!E8)*('Market movers'!$I$4:$I$1000<0))>0; 'Market movers'!$I$4:$I$1000; ""))Oboje maticovo. Čus.

Slúži k tomu podmienené formátovanie.

Šlo by to napr. takto:
Niekde za If Left(xFile, 1) = "A" Then Workbooks.Open (FilePath & xFile), t.j. v momente, kedy bude daný workbook ešte aktívny, ale až po tom, čo ho už spracuješ, volaj nasledujúcu rutinu:Sub Premenuj()
Dim wb As Workbook, oldName As String
Set wb = ActiveWorkbook
With wb
oldName = .Path & "\" & .Name
.SaveAs Filename:="x" & .Name
End With
Kill oldName
Set wb = Nothing
End Subalebo takto:Sub Premenuj1()
Dim wb As Workbook, oldName As String, newName As String
Set wb = ActiveWorkbook
With wb
oldName = .Path & "\" & .Name
newName = .Path & "\x" & .Name
.Close
End With
Name oldName As newName
Set wb = Nothing
End Sub

Pri mojej snahe vyhýbať sa volatilným funkciám takto:
=PRŮMĚR(INDEX(A:A;(ŘÁDEK()-1)*50+1):INDEX(A:A;ŘÁDEK()*50))

Ja neviem, či by to stačilo, ani nesľubujem, že sa tým budem zaoberať. Ty máš problém, pokiaľ chceš, aby ti ho niekto pomohol riešiť, tak príloha je základ. Príloha s popisom, čo sa presne chce. Tak si trochu lám hlavu a nepýtaj sa zbytočne, čo by stačilo a čo nie. Pokiaľ máš problém vytvoriť vzor bez citlivých údajov, tak asi o pomoc príliš nestojíš, resp. si ju nezaslúžiš...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje