Stránka 1 z 2

Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 14:03
od Karrex
Ahoj,
prosím vás, dá se nějak udělat, že když mám pořád ve stejné buňce (B6) číslo seskládané z data - 20211110 a za ním -1 jako pořadí v tom daném dni:
Tedy: 20211110-1

abych to tlačítkem měnil na další den a aby to ve stejném dni změnilo jedničku na další v pořadí? Víc než stovka za pomlčkou asi nebude.

Shrnutí:
v B6 mám 20211110-1, tlačítkem aby se to změnilo na 20211110-2, pak -3 a tak dále a jiný den, aby to ještě změnilo první číslo podle aktuálního data?
Tedy zase na 20211111-1, -2,...

Případně jiné dostupné řešení, aby to dávalo takové "ucelené" číslo?
Jestli to nejde, tak holt vymyslím něco jiného.

Díky!

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 15:06
od Uziv00
Možná napsat makro...
1. vzít levou stranu od pomlky a porovnat formát YYYYMMDD s dnešním datem, pokud nesouhlasí, nahradit dnešním dnem.
2. vzít pravou stranu a pokud levá strana je dnešní datum, inkrementovat o 1, jinak uložit 1.

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 15:21
od atari
Lze to také udělat vzorcem. Od pevného datumu (9.11.2021) vždy odečteš aktuální datum -funkce DNES(), a budeš mít každý den -1, -2, -3 atd.. A potom tento výsledek funkcí CONCATENATE() jenom přířadíš k tomu číslu 20211110.

Takhle se to budě dělat automaticky každý den, nebo si můžeš automatiku přepočtu vzorců vypnout a spustit to ručně. Nebo to lze spouštět přes makro. Tam těch možností pak máš daleko více. Tam to pak můžeš nastavit i jinak než podle akutálního datumu.

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 15:30
od Karrex
atari: Nevím, jestli jsme se dobře pochopili, 20211110 je právě to datum (dnešní), který potřebuju taky měnit.
ITCrows: Makro nevadí, budu to dělat na mém PC.
Dokázal bys to? VB jsem začal, ale ne v excelu, neumím tedy zakomponovat buňky, sloupce atp.

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 15:42
od atari
Měnit samotné datum lze tou funkcí DNES, takže to také lze řešit.

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 16:04
od Karrex
Přes DNES z toho ale nedostanu takový formát? Nebo nevím jak?

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 17:20
od atari
Pomocí funkce "ČÁST" si z datumu vytáhneš požadované znaky, a pomocí funkce "CONCATENATE" si to spojíš dohromady tak jak potřebuješ.

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 20:13
od Uziv00
Karrex píše:atari: Nevím, jestli jsme se dobře pochopili, 20211110 je právě to datum (dnešní), který potřebuju taky měnit.
ITCrows: Makro nevadí, budu to dělat na mém PC.
Dokázal bys to? VB jsem začal, ale ne v excelu, neumím tedy zakomponovat buňky, sloupce atp.

Klidně se do toho pustím.
Nutně ale potřebuji vědět jaký je formát data v B6:
např. 20210102-1, nebo 202112-2

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 20:25
od Karrex
20210101-1 až 20210101-100

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 10 lis 2021 20:46
od Uziv00
Tak tady to máš. Tlačítko "Uprav" je na pozici LM. vytvořeno v excelu 2016.
Vlastní makro vypadá takto:

Kód: Vybrat vše

Sub B6edit()
rok = Year(Now)
mesic = Month(Now)
den = Day(Now)
If mesic < 10 Then mesic = 0 & mesic
If den < 10 Then den = 0 & den
aktual = rok & mesic & den
bunka = List1.Cells(6, 2)
predek = Left(bunka, 8)
delka = Len(bunka)
zadek = Right(bunka, delka - 9)
If aktual = predek Then
   zadek = zadek + 1
Else
   predek = aktual
   zadek = 1
End If
Range("B6") = predek & "-" & zadek
End Sub

Re: Excel - tlačítko na číslo podle data + vlastní počítání

Napsal: 11 lis 2021 00:08
od elninoslov
Prípadne cez Format a Split

Kód: Vybrat vše

Sub B6edit()
Dim a() As String, aktual As String
    a = Split(List1.Cells(6, 2), "-")
    aktual = Format(Date, "yyyymmdd")
    List1.Cells(6, 2) = aktual & "-" & Format(IIf(a(0) <> aktual, 1, a(1) + 1), "00")
End Sub

Re: Excel - tlačítko na číslo podle data + vlastní počítání  Vyřešeno

Napsal: 11 lis 2021 12:16
od Karrex
ITCrowd i elninosov funguje to oboje dobře! :-)

Jenom od elninosov byl formát 00 za pomlkou, tak jsem to upravil na 0 a vypadá to stejně.

Díky oběma.