Dobrý den,
v buňce (D6) mám funci =nyní() a formátem času, v buňce (E6) sousední bych potřeboval vyhodnocení dle aktuálního času zda se jedná o ranní, odpolední nebo noční směnu.
Použil jsem vzorec s pomocí když, ovšem zde funguje v tomto zadání =KDYŽ(F6 14;"O";KDYŽ(F6>21;"N"))) v podstatě pouze pro ráno a dopoledne, protože logicky noc je větší než druhá podmínka 14.
Jak prosím porvést toto vyhodnocení. Děkuji.
Urceni smeny dle casu - Excel (nyni + format bunky)
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Urceni smeny dle casu - Excel (nyni + format bunky)
odpoved mas jiz na Poradna Zive.cz - autor festerus,
prevod na ceskou lokalizaci Excelu prikladam:
prevod na ceskou lokalizaci Excelu prikladam:
Kód: Vybrat vše
=KDYŽ(A(HODNOTA.NA.TEXT(D6;"HH:MM")>="06:00";HODNOTA.NA.TEXT(D6;"HH:MM")
<"13:50");"Ranni";KDYŽ(A(HODNOTA.NA.TEXT(D6;"HH:MM")>="14:00";HODNOTA.NA.TEXT(D6;"HH:MM")<"21:50");"Odpoledni";KDYŽ(NEBO(HODNOTA.NA.TEXT(D6;"HH:MM")>"22:00";HODNOTA.NA.TEXT(D6;"HH:MM")<"05:50");"Nocni";"Prestavka")))
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Urceni smeny dle casu - Excel (nyni + format bunky)
Toto můžeš vyřešit i s pomocí vlastní fce (vzorečku)
1. Do buňky D6 vlož následující vzorec: =hodnota.na.text(nyní();"hh:mm")
2. Stiskni klávesovou zkratku Alt+F11
3. V menu VBA vyber Insert --> Module a do prázdného okna napravo nakopíruj tuto fci:
3. VBA zavři.
4. Do buňky E6 vlož tento vzorec: =smena(D6)
1. Do buňky D6 vlož následující vzorec: =hodnota.na.text(nyní();"hh:mm")
2. Stiskni klávesovou zkratku Alt+F11
3. V menu VBA vyber Insert --> Module a do prázdného okna napravo nakopíruj tuto fci:
Kód: Vybrat vše
Function smena(cas As Date) As String
Select Case cas
Case TimeValue("06:00:01") To TimeValue("14:00:00"):
smena = "Ranní směna"
Case TimeValue("14:00:01") To TimeValue("22:00:00"):
smena = "Odpolední směna"
Case TimeValue("22:00:01") To TimeValue("23:59:59"):
smena = "Noční směna"
Case TimeValue("00:00:01") To TimeValue("06:00:00"):
smena = "Noční směna"
Case Else:
smena = ""
End Select
End Function
3. VBA zavři.
4. Do buňky E6 vlož tento vzorec: =smena(D6)
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 2247
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
-
- 3
- 2288
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
-
- 7
- 1341
-
od Gerete
Zobrazit poslední příspěvek
23 led 2024 21:27
-
- 2
- 1054
-
od TomiDomi
Zobrazit poslední příspěvek
26 čer 2023 22:44
-
- 16
- 6844
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů