Vyskúšajte toto. Je to taká "berlička", keďže pôvodný zámer s maticovou konštantou s aktuálne počítaným rokom nevyšiel, lebo do konštanty nejde vložiť vzorec, a pomocná tabuľka sa tiež nedá použiť, keďže nie je možné do nej vkladať rok, keď nevieme, či bude tabuľka napr pokračovať ďalším rokom, atď., tak som vydumal pomocný reťazec. Mrknite si podmienený formát.
EDIT: Napísal som to minútu po Lubovi, opäť som to nestihol :). Každopádne som zistil, že som zabudol v prílohe zbytočný pokusný list "Svatky" - NIEJE potrebný, tak si ho zmažte. Aktualizovaná príloha.
Vzorcovo je to asi jediné možné riešenie, čo poslal marjankaj, práve kvôli tomu, prečo je tam bod 3. Ak by ste to chceli robiť nejako často, môžete to zautomatizovať aj s voľbami počtu a zastúpenia, ale iba makrom. Napr. nejako takto.
Len pre zaujímavosť doplním...
Dá sa v pohode pracovať aj s milisekundami. Tu som Vám urobil prebliknutie nápisu, ktoré je zobrazené voliteľný počet milisekúnd. Absolútne mi ale uniká zmysel iba prebliknutia oznamu o skončení operácie, mrknem totiž okom a uvidím prd ... Preto som pridal aj Beep.
To Vaše makro mi príde zložité.
kopiruj2 - posledný riadok jedného listu
kopiruj3 - posledné riadky listov v poli
Za posledný riadok sa považuje posledný riadok v stĺpci A.
Vy nám ale dávate ... slovné úlohy v našom veku už moc nefrčia
Skúsim teda hádať. Máte tam 2 možnosti.
1. VLOOKUP / SVYHLEDAT - prehľadáva prvý stĺpec oblasti, a vráti hodnotu v zadanom stĺpci (Q) z riadku so zhodou.
2. MATCH / POZVYHLEDAT + INDEX - prehľadá hociktorý stĺpec, a vráti hodnotu v nájdenom riadku z iného hociktorého stĺpca.
Tipujem, že vyhľadávaná hodnota bude staticky umiestnená, čiže $E$1.
Ak tipujem zle, a v liste 2 budete mať viacero riadkov, pričom sa bude vyhľadávať vždy hodnota zo stĺpca E v danom riadku, tak zmente $E$1 na $E1.
??? Určite Vám niekto pomôže, len to skúste popísať v prílohe na konkrétnom príklade, pretože takto nevieme čo potrebujete.
@Richard99: To práve nepočíta s dňami ani so zápornými hodnotami.
Môj posledný návrh:
1. môj pôvodný vzorec (iba vynásobené 24*60 = 1440) (-d h m)
2. skrátený vzorec (-d h m)
3. miniaturizovaný vzorec, ale iba na minúty celkovo (-m)
4. vzorec s definovanými názvami, a skloňovaním (deň, dni, dní) všetkých 3 hodnôt (-dni hodiny minúty)
A už na to kafrem
No toto rozhodne nie. Vlúdila sa Vám tam jedna technická - ukončovacia zátvorka má byť pred čiarkou, nie na konci riadku
Zaujímavé, jediné na čo som prišiel, ako to vyriešiť je toto.
Ide vlastne iba o jeden riadok, ktorý naspäť selectne deselectnutú položku v prípade, že je checkbox = true. A pridal som tam ešte jeden príznak, ktorý vyradí zbytočné volania procedúr.
Napr. takto.
PS: Beriem späť vetu o vlastnosti Tag, tlačítka ju nemajú. To ale nieje problém.
EnableEvents nemá na OnTime vplyv. Tu som Vám pripravil jednoduchý test.
Vložte prílohu bez citlivých dát.
Možno v téme také niečo je, pozrel som lem ten jeden príspevok, a upravil by som ho asi takto (píšem z tabletu, za príp. technickú sa ospravedlňujem...):
Dim Rng as Range, s as Integer
For s = 3 To 24
If Cells(1, s).Value = 1 Then
If Rng Is Nothing Then Set Rng = Cells(s) Else Set Rng = Union(Rng, Cells(s))
End If
Next s
If Not Rng Is Nothing Then Rng.EntireColumn.Hidden = True
Ak chcete opätovným stlačením tlačítka zobraziť stlpce, tak si niekam pri skrytí uchovajte hodnotu, že bolo niečo skryté, aby tlačítko vedelo, ktprú časť kódu výkonať. Tlačítka mávajú napr vlastnosť Tag, kde sa dá uložiť hodnota,
Range("C:X").EntireColumn.Hidden = False
Zobrazí všetky riadky naspäť.
Ak dáte do bunky B2:
=INDEX(B:B;A1)
alebo spomínaný
SK
=INDIRECT("B"&A1)
CZ
=NEPŘÍMÝ.ODKAZ("B"&A1)
tak vzorec vráti hodnotu, ktorá je v riadku ktorý určuje hodnota v A1.
A ak by ste chcel meniť súradnice aj po stĺpcoch, napr stĺpec by určovala hodnota v B1 a riadok A1, tak napr.:
SK
=OFFSET(INDEX(A:A;A1);;B1-1)
CZ
=POSUN(INDEX(A:A;A1);;B1-1)
alebo, ak by ste poznal aspoň z brucha rozsah stĺpcov tak napr.:
=INDEX(A:XX;A1;B1)
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.