Příspěvky uživatele

Na námet od vovka.h som tam ešte pridal toto. V tomto prípade to nenastane, ale ošetril som tam pre ukážku aj možnosť rozdielu viac dní ako 31.

A ešte podotázka zo zaujímavosti: Dal by sa ešte najako inak získať počet minút?
Napr.
=RIGHT(TEXT(ABS(B2-B1);"h:mm");2)*1
=ZPRAVA(HODNOTA.NA.TEXT(ABS(B2-B1);"h:mm");2)*1
alebo
=MINUTE(ABS(B2-B1))
=MINUTA(ABS(B2-B1))
ale nejak lepšie by to nešlo?

Tak jednoduché počítanie to nieje. Ono totiž prevod na dni, hodiny, minúty hádže občas "zaujímavé" hodnoty. Ak nejaký čas odpočítate, zaokrúhli sa Vám niekde nejaká miliardtina, ak výsledok zobrazíte v bunke dá Vám často celé číslo (aj keď nieje), ale v ďalších sčítaniach to bude robiť nezrovnalosti. Viď vlákno Výpočty s dátumom a časom
Nemôžete ani stále pričítať nejaké číslo napr. +0,5 aby ste to potom dole zaokrúhlil, lebo pri zápornom čísle to +0,5 bude opačný problém. Tam som to vyriešil prepočtom času na dostatočne malé čiastky (tisíciny sekundy) a prirátaval +1, a z toho odsekol celú časť. Mrknite sa na to, možno nájdeme niečo sofistikovanejšie.

EDIT: Prílohu som vložil omylom do inej témy. Takže, mohlo by to byť takto ?

Alebo to ešte aj trochu zrýchlite a ošetrite:
Sub Obrazky()
Dim Data()
Data = Sheets("Sekce").Cells(4, 24).Resize(41, 5).Value
Application.ScreenUpdating = False
On Error GoTo POKRACUJ
With Sheets("Skladba jednotky")
For i = 4 To 44
If Not IsEmpty(Data(i - 3, 1)) Then
Sheets("Sekce").OLEObjects(Data(i - 3, 2)).Copy
.Paste
With .OLEObjects("image1")
.Top = Data(i - 3, 3)
.Left = Data(i - 3, 4)
.Name = Data(i - 3, 5)
End With
End If
Next i
POKRACUJ:
End With
On Error GoTo 0
Application.ScreenUpdating = True
End Sub

Je to napísané len tak z brucha, nemám na čom vyskúšať, a vymýšľať sa mi nechce :)

Vyskúšajte toto.

Nepotrebujete ani makro, stačil by maticový vzorec s tabuľkou hodnôt.
PS: Sem nejde vložiť príloha, tak príklad na uložto... Maticový výber položiek.xlsx

S tou "0" to nieje problém, stačí obaliť to čo je za ":&" do TEXT(blabla...;"00"), Ale s tým prepočítavaním máte pravdu. Vzniká to tým, že tam nevychádzajú (tak nejako logicky očakávané) čísla, ale čísla napr. s chýbajúcou 1 miliontinou, a už je vzorec v háji. Nemám absolútne čas. Neviem, kedy sa Vám na to mrknem... Teraz som tu len náhodou...

Iba doplním k čomu sme sa dopracovali v súkromných správach po pár úpravách. Problém bol s nefunkčnosťou podmieneného formátovania na danom Excel2007 a iné drobnosti. Tak keby niekoho zaujímalo niečo podobné ...

A odkiaľ sa tie čísla berú, keď tam postrádam stĺpec Sklad ? Či ... ?

Napr. niečo takéto ?

Tak aby bola ešte väčšia sranda, dnes som sa venoval prevážne Vám

"Trochu" som Vám to prerobil - prekopané je úplne všetko.

-podmienené aj normálne formátovanie
-vzorce
-dátumy
-nezáleží na mutácii SK či CZ
-všetok neporiadok okolo tabuliek preč
-správne upravovanie februáru aj s formátovaním, zlúčenými bunkami ...
-úprava nesprávnych areas v range v kopírovanej oblasti
-automatické skoky na zvolený mesiac (overenie dát)
-zbytočné riadky a stĺpce preč
-schovávanie a odkrývanie iba prázdnych riadkov a iba v tabuľkách

Ja vlastne už ani neviem čo všetko...
Mrknite, a povedzte, čo ste to tam ešte chceli formátovať tým
MOD(D5;7)<2
v podmienenom formátovaní ? Majú byť pracovné dni až po 2 týždňoch po novom roku, či čo ?

EDIT: upravené jedno zlé číslo stĺpca v makre.
Skontrolujte si, či máte v roku 2016 v bunke AK163 hodnotu True (potom si tú bunku zmažte). Ak áno tak Vám to formátovanie sviatkov fungovať musí.

Rýchlo som to testol. Vaše riešenie je určo elegantnejšie. Moje nemá ešte ošetrené vloženie 2 des. čiarok, takže Vaše je aj správnejšie. Nech si ho len dotyčný ak chce doplní o ENTER pre opustenie TextBoxu.

PS: Tiež Vám nejde Editovať predošlý príspevok v ktorom je CODE ? Moje staršie príspevky v ktorých nieje CODE majú voľbu "upravit", tie s CODE nie. Iba jeden krát som zazrel "upravit" na prisp. s CODE, opravil, dal Uložit zmeny, a namiesto opravy mi dalo nový príspevok s vlastnou citáciou. Rovnako na všetkých prehliadačoch. Win aktuálny, skúsim ešte Javu updatnúť...

@eLCHa: "vknullstring" ... samozrejme vbNullString

Aj by som to opravil, ale zmizla mi na tablete možnosť Edit.
A formát ešte checknem niekedy.
Ten Váš kód snáď dnes vyskúšam tiež.
A tem KeyCode : Ja som si to tiež neskôr uvedomil, že to nieje kód znaku ale klávesy. Človeka všetko nenapadne hneď, ale zrovna tie kódy som mal zistené pokusným stlačením ďaleko skôr ako z nápovedy.

3:26 Poďme už spať...

=IF(B2>C2;IF(B2-C2<D2;B2-C2;D2);0)
???

Tie kódy sú fakt divné, svätá pravda. Musel som si pre istotu každý vyčítať za behu. Ale snáď to bude fachať.

Ja som to tiež skúšal spracovať v jednom vzorci, cez SUBSTITUTE/DOSADIT v matici, no to sa mi nepodarilo. Ono totiž ten vzorček dáva pole už upravených znakov, a napadlo ma ho indexovať v SUBSTITUTE v matici a nahradiť nimi pôvodné, žiaľ neúspešne.

Riešenie je to zaujímavé.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje