Příspěvky uživatele
< návrat zpět
Už vidím tú personalistku, ktorá "dekóduje" v životopise:
Úroveň znalostí:
Excel - hotový
...
Jedna vec je, že hneď na začiatku nemáte dávať INDEX(AB3:AB33... ale INDEX(AB:AB...
Druhá vec je otázka, či to zadávate ako maticový vzorec, čiže Ctrl+Shift+ENTER.
Tretia vec je, že nevidíme Vašu reálnu prílohu, ako presne vyzerajú tie dátumové rozsahy, či nieje treba upraviť vzorec, aby bol prichystaný na nejaké "neštandardnosti".
Vyskúšajte body 1 a 2, ak neuspejete, pošlite reálnu prílohu.
Google - "cz en excel" - http://office.lasakovi.com/excel/funkce/ms-excel-funkce-cz-en/ - Ctrl+F - "Left" - prvé sa mi ukázalo VLEVO ale tiež sa mi to nepozdávalo. Tak oprava+omluva, ale myslim, že som k tomu prišiel korektne.
Prečo máte 2 rôzne preklady ? Čo robí potom ten druhý ? Nemám ako vyskúšať.
@Hokuston:
Dalo by sa to zmeniť tak, že mu to tam môže ostať:
SK/EN
=SUMIFS(List2!$D$2:$D$100;List2!$A$2:$A$100;List1!$A2;List2!$C$2:$C$100;VALUE(LEFT(List1!C$1;FIND(" ";List1!C$1)-1)))
CZ
=SUMIFS(List2!$D$2:$D$100;List2!$A$2:$A$100;List1!$A2;List2!$C$2:$C$100;HODNOTA(ZLEVA(List1!C$1;NAJÍT(" ";List1!C$1)-1)))
Nebol tu už náhodou takýto istý problém prednedávnom riešený ?
A nemohli by ste poskytnúť prílohu na vyskúšanie a prezretie makro procedúr ?
OT: Akékoľvek upozornenie na chybu, by mal človek brať ako pomoc/radu. Možno sa to niekedy zle počúva (číta), ale s odstupom času, si (snáď) každý uvedomí, že mu aj keď možno nešťastnejšími slovami podaná rada/pomoc/výtka/upozornenie, niečo priniesla. Tak to beriem. Tak sa predsa učíme celý život:
V škole : Ferko, 2+2 nieje 5, ale 4.
V puberte : Fero nelez na plot, lebo si nabiješ držku.
V práci : Fero, Ty d..l, nestláčaj to červené tlačítko!
V domove dôchodcov : Pán František, pomaličky po tých schodoch, chcete sa nám tu dolámať?
V márnici : No vidíš Ferko, bolo ti treba prechádzať cez tú cestu...
PS: Keď tu vidím niektoré EXCELentné riešenia od skúsených borcov, a ja som si stým lámal makovicu, tak si pripadám ako úplný blb. Tomu verte. Ale to vôbec nevadí, ja mám Excel iba ako príležitostné hobby.
Takže v pohode, ale kto toto tu bude čítať ...
Niekedy sú odpovede dosť narýchlo, a keď človek raz za mesiac či dva skúšobne použije Select, okamžite ho kameňujú. Au. 
Nikto niesme (chvalabohu) neomylný.
Sub SkocNaDatum3()
Dim V
On Error Resume Next
With Worksheets("List1")
V = WorksheetFunction.Match(Format(Date, "d.m.yyyy"), .Rows(1).Value, 0)
If Err Then MsgBox ("Dátum " & Date & " sa na List1 nenachádza.") Else Application.Goto .Cells(1, V)
End With
End Sub
Aby niekto nepovedal, že Application.Match je pomalšia ako WorksheetFunction.Match, tak som to vymenil a adekvátne zmenil odchyt chyby. Pridané zjednodušenie With a samozrejme podnet na opravu od xlnc.
Nieje nič zlé na tom, ak užívateľ chce tlačítko namiesto aktívneho textu. Naozaj nič. Tlačítko je oproti aktívnemu Shape do očí bijúce, a každý okamžite očakáva udalosť. To že tlačítka vyzerajú predpotopne, no kvôli tomu novú Class vytvárať nebudem. Ak chce niekto GlassButton, nech si vloží obrázok z netu, či vytvorí v PS, a aktivuje.
OT: Či sa bude v dnešnej dobe pýtajúci sa snažiť prísť veci na kĺb? Máte opäť pravdu, je to naivná idea. Teraz nemám na mysli konkrétne užívateľa Merlin99. Dnes, keď má každý možnosť napísať dotaz na 10 fór, kde mu dobrovoľníci zadara tŕn z päty vytrhnú, tak v 50% prípadov to dopadne tak, že sa ani neunúva odpovedať, nieto ešte študovať riešenie.
Kde sú tie časy keď som sa učil Basic z časopisu Elektrón, a keď som úplne sám naprogramoval v Assemblery na PMD-85-3 môj prvý skutočný program, obrovské digitálne hodiny, pamätám si aký som bol šťastný, pyšný, a áno aj "obdivovaný". Dnes je to iné ... Neviem, či prichádzate do styku s mladou dženerejšn, ak nie, tak verte, že by ste sa divili, aké sú predstavy mladých o tom, čo všetko musia dostať, okamžite, zadara, všade, vždy, a čo oni nemusia (učiť sa už vôbec nie). Asi do smrti budem spomínať na mladého administrátora, ktorý za svet nevedel dostať pár mailov z jedného do druhého PC.
Nikto z neba múdry nespadol, ale nie každý by musel do neba aj hlúpy znova vystúpať. Takže, ak je aspoň nejaká odozva od užívateľa, hneď to beriem pozitívne.
To je presne to čo mi nešlo, transponovať vnútorné vzorce. Treba na to ísť len inak, a ono to ide krásne. Palec hore.
To čo som Vám minule poslal funguje či nie ? Teraz som to doplnil o roslišovanie, či sa jedná o prázdnu bunku H alebo 0, previedol na ExcelTable. Pridávanie vzorca v G funguje automaticky, vyhodnocuje to správne, tak neviem, podľa mňa OK.
Tým makrom si môžete naformátovať aj ExcelTable, nemusí byť farebná, zvýraznená ob-riadok, ani mať filtrovacie tlačidlá, ani orámovanie..., stĺpce môžu mať inú šírku alebo rez písma.
Ak ExcelTable nechcete, a chcete mať dynamické pridávanie toho vzorca, tak jedine použitím Worksheet_Change metódy, v ktorej si podľa toho ktorý riadok bol pridaný vyplníte vzorec. Chcete aj toto predviesť ?
Na liste B je v I1 teraz aktuálny dátum vložený funkciou, ak si tam chcete napísať iný dátum, len funkciu prepíšte iným dátumom.
@Tartyf: Skúste toto. Vysporiada sa to aj s hromadnou zmenou. Posledné AKTIVACE sú vždy na konci. Na konci makra si len zvoľte či to chcete mať na druhý list, alebo na ten istý (v tomto prípade premiestnite apostrof z toho Cells... na to Worksheets...).
@marjankaj: "nová záložka" Tartyf tým myslí nový list.
@xlnc: uživateľa Pitr tiež nechápem.
@Pitr: Skúste dať prílohu. Váš popis je pre Vás zrozumiteľnejší ako pre nás.
@xlnc: Dobrý návrh. Ak bude vyhovovať takéto riešenie, tak tu je jeden návrh:
=HYPERLINK("#'List1'!"&ADDRESS(1;MATCH(TODAY();List1!$1:$1;0));"Skok na List1")
Tak ?
Ak áno, tak si môžete previesť tabuľku na ExcelTable, a ten vzorček Vám bude samé pridávať do nových riadkov.
alebo niečo takéto bez cyklu:
Sub SkocNaDatum2()
Dim V
V = Application.Match(Format(Date, "d.m.yyyy"), Worksheets("List1").Rows(1).Value, 0)
If IsError(V) Then MsgBox ("Dátum " & Date & " sa na List1 nenachádza.") Else Worksheets("List1").Activate: Worksheets("List1").Cells(1, V).Select
End Sub
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