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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
Karrex
Master Level 9.5
Master Level 9.5
Příspěvky: 8559
Registrován: listopad 08
Bydliště: Brno
Pohlaví: Muž

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

Příspěvekod Karrex » 10 lis 2021 14:03

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!
Funguji už jen přes SZ a Skype. Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club

Reklama
Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13
Guru Level 13
Příspěvky: 21719
Registrován: březen 10
Pohlaví: Muž

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

Příspěvekod ITCrowd » 10 lis 2021 15:06

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.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
atari
Level 5.5
Level 5.5
Příspěvky: 2847
Registrován: říjen 08
Pohlaví: Muž

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

Příspěvekod atari » 10 lis 2021 15:21

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.

Uživatelský avatar
Karrex
Master Level 9.5
Master Level 9.5
Příspěvky: 8559
Registrován: listopad 08
Bydliště: Brno
Pohlaví: Muž

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

Příspěvekod Karrex » 10 lis 2021 15:30

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.
Funguji už jen přes SZ a Skype. Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club

Uživatelský avatar
atari
Level 5.5
Level 5.5
Příspěvky: 2847
Registrován: říjen 08
Pohlaví: Muž

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

Příspěvekod atari » 10 lis 2021 15:42

Měnit samotné datum lze tou funkcí DNES, takže to také lze řešit.

Uživatelský avatar
Karrex
Master Level 9.5
Master Level 9.5
Příspěvky: 8559
Registrován: listopad 08
Bydliště: Brno
Pohlaví: Muž

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

Příspěvekod Karrex » 10 lis 2021 16:04

Přes DNES z toho ale nedostanu takový formát? Nebo nevím jak?
Funguji už jen přes SZ a Skype. Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club

Uživatelský avatar
atari
Level 5.5
Level 5.5
Příspěvky: 2847
Registrován: říjen 08
Pohlaví: Muž

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

Příspěvekod atari » 10 lis 2021 17:20

Pomocí funkce "ČÁST" si z datumu vytáhneš požadované znaky, a pomocí funkce "CONCATENATE" si to spojíš dohromady tak jak potřebuješ.

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13
Guru Level 13
Příspěvky: 21719
Registrován: březen 10
Pohlaví: Muž

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

Příspěvekod ITCrowd » 10 lis 2021 20:13

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
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
Karrex
Master Level 9.5
Master Level 9.5
Příspěvky: 8559
Registrován: listopad 08
Bydliště: Brno
Pohlaví: Muž

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

Příspěvekod Karrex » 10 lis 2021 20:25

20210101-1 až 20210101-100
Funguji už jen přes SZ a Skype. Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13
Guru Level 13
Příspěvky: 21719
Registrován: březen 10
Pohlaví: Muž

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

Příspěvekod ITCrowd » 10 lis 2021 20:46

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
Nemáte oprávnění prohlížet přiložené soubory.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 300
Registrován: červen 13
Pohlaví: Muž

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

Příspěvekod elninoslov » 11 lis 2021 00:08

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

Uživatelský avatar
Karrex
Master Level 9.5
Master Level 9.5
Příspěvky: 8559
Registrován: listopad 08
Bydliště: Brno
Pohlaví: Muž

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

Příspěvekod Karrex » 11 lis 2021 12:16

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.
Funguji už jen přes SZ a Skype. Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Prolinkování dat mezi tabulkami podle data
    od Karol0102 » 25 srp 2021 10:23 » v Kancelářské balíky
    2
    322
    od Karol0102
    27 srp 2021 10:07
  • Excel/GSheets - odkaz do jiného listu podle buňky
    od kubasCZ » 14 kvě 2021 07:52 » v Kancelářské balíky
    4
    539
    od kubasCZ
    14 kvě 2021 13:53
  • Telefon sám volá pořád na to samé číslo
    od liszEt » 22 zář 2021 22:26 » v Mobily, tablety a jiná přenosná zařízení
    2
    386
    od Martab
    23 zář 2021 19:53
  • Tlačítko delete si dělá co chce. Prosím o radu.
    od sajxous » 01 úno 2021 09:27 » v Problémy s hardwarem
    3
    280
    od sajxous
    01 úno 2021 10:04
  • Tlačítko delete si dělá co chce. Prosím o radu.
    od sajxous » 01 úno 2021 09:50 » v Problémy s hardwarem
    2
    229
    od sajxous
    01 úno 2021 10:06

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host