Příspěvky uživatele
< návrat zpět
???
=IFERROR(AVERAGEIF(E63:E93;"<>0";E63:E93);"žiadne meškanie")
alebo
=IF(COUNTIF(E63:E93;"<>0")=0;"žiadne meškanie";AVERAGEIF(E63:E93;"<>0";E63:E93))
=KDYŽ(COUNTIF(E63:E93;"<>0")=0;"žiadne meškanie";AVERAGEIF(E63:E93;"<>0";E63:E93))
Príklad.
Všetko má svoje pre aj proti, a aj svoje podmienky.
List1 - vzorce v pomocných 10 stĺpcoch (na 10 prekladov)
List2 - vzorce v pomocných 10 stĺpcoch, ľahko natiahnuteľných na potrebný počet
List3 - UDF funkcia, ľahko použiteľná, ale netestoval som to napr. na 10 000 prekladoch.
Ale tá moja ukážková funkcia je holý nezmysel. Nikto nevieme, či M125 potrebuje/chce funkciu alebo procedúru, ani či je Y vo výpočtoch "něco1"/"něco2" menené alebo nie. Išlo len o príklad IF, a dokonca ani výsledok VYPOCET nám na nič nieje, keď nepoznáme odpoveď na predošlú vetu. Proste išlo len o ukážku jednoduchého IF. Máte pravdu s možnosťou použitia Opakuj ako oboch parametrov FOR, ale je to fakt zvláštne, ešte som to nevidel. O tom, že >=W7 nepracuje s Int som nemal páru. IIF nám bude stačiť iba v obdobnom prípade ako môj vymyslený výpočet "něco". Možno to bude výpočet na 5 riadkov, a to bude blbo zapísané v IIF. Test na pár/nepár pomocou AND je dobrý.
Vzhľadom na dátum, to vyzerá, že sa zase bavia sami tí, ktorí chcú pomôcť - teda bez zadávateľa :(
Určite áno, ale vložte nejakú prílohu, nech si ju nemusíme vytvárať/vymýšľať sami...
Jednoduchší variant, počíta rozdiel medzi vyplnenými bunkami "por číslo" a "splněno".
Ahá, no jasné už viem. Keď niekedy poobede prídem, tak Vám na to mrknem.
Predpokladajme, že za splnené pokladáme ak je v stĺpci "splněno" napísané čokoľvek - teda bunka nieje prázdna. Lebo inak, ak by tam mohli byť aj iné texty popísané, ale neznamenali by, že je splnené, tak by zisťovania neznámeho dátumu v neznámom počte ks, neznámeho formátu, neznámo čím oddelených medzi neznámym iným textom, bolo takmer nemožné.
Je to Overenie dát
Čo myslíte pod "Import"? To akože karta Údaje - Získať externé údaje - Z Webu ? Tam nieje žiadne nastavenie kódovania textu. Alebo máte nejaký súbor ?
Príklad:
Inak povedané, nie je možné spoľahlivo určiť, v ktorom liste sa bude skúmať aká oblasť. Ak by ste mal tie oblasti vždy rovnaké, tak napr.:
Sub Kontrola()
Dim SH As Worksheet, Polozka As Range, Pocet As Byte
For Each SH In Worksheets
With SH
Pocet = 0
For Each Polozka In .Cells(2, 2).Resize(13, 1).Cells
Pocet = Pocet + ((Not IsEmpty(Polozka.Offset(0, 1).MergeArea.Cells(1))) And 1)
Next Polozka
Select Case Pocet
Case 13: .Tab.Color = vbGreen
Case 12: .Tab.Color = vbYellow
Case Else: .Tab.ColorIndex = xlColorIndexNone
End Select
End With
Next SH
Set Polozka = Nothing: Set SH = Nothing
End Sub
Ak tie oblasti rovnaké nemáte, dodajte, čo je smerodajné, pre určenie počtu riadkov. Napr. prvý vzorec v niektorom stĺpci ? Alebo niekde v liste je počet položiek ? ...
Chcete súčet alebo počet ?
Pod súčtom rozumiem, že máte dátumy a k nim priradené nejaké hodnoty, a chcete súčet hodnôt priradených k dátumom v prac. dňoch zadaného obdobia.
Pod počtom rozumiem, počet pracovných dní v zadanom období.
Vyskúšajte aj filter rušiť inak (viď príklad). Toto minimakro nebude asi jediné vzhľadom na neexistujúce makro na tlačítku.
A čo tých cca 1000 definovaných názvov a 200 prepojení (alebo koľko tam toho máte) ? To všetko je tam potrebné ?
Veľkosť bude narastať možno aj kvôli "prázdnym" riadkom a stĺpcom, ktoré často ostávajú v listoch, ale nie sú úplne dealokované. Ak máte napr posledný používaný riadok 50, vľavo-hore kde je názov bunky/oblasti napíšte 51:1048576, označia sa úplne všetky riadky dole, pklik na ušká (čísla) riadkov - Odstrániť. To isté stĺpce napr. AA:XFD, a všetko pre všetky listy. Keď súbor potom uložíte, uvidíte, či máte nejakú úsporu veľkosti.
Po každom
Set ws = Sheets(nazev)
by na konci malo nasledovať uvoľnenie pamäti
Set ws = Nothing
Skúste to teda niekam upnúť, nech to skúsime na x64...
Skúsil som to aj pre Office 2016 Pro x64, no škoda, nepodarilo sa mi pomocou tohto opraviť pády. Nainštalovať odtiaľ môžem iba KB3178673. Ostatné buď nieje určené pre 2016, alebo treba pridať to tlačítko do Office, no to sa mi nepodarilo ani pomocou Deployment Tool, ani gpedit, a samotný WinUpdate to nenájde (s povolenými aktualizáciami ďalších MS produktov). Počkám na nejakú automatickú KB, nechce sa mi pátrať hlbšie...
Výsledok (?):
Žiadne púšťanie sa do veľkých projektov, ukladať čo 5 min :)
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