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!
Excel - tlačítko na číslo podle data + vlastní počítání Vyřešeno
- Karrex
- Elite Level 10
- Příspěvky: 9600
- Registrován: listopad 08
- Bydliště: Brno
- Pohlaví:
- Stav:
Offline
Excel - tlačítko na číslo podle data + vlastní počítání
Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23625
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Excel - tlačítko na číslo podle data + vlastní počítání
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.
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
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
Re: Excel - tlačítko na číslo podle data + vlastní počítání
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.
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.
- Karrex
- Elite Level 10
- Příspěvky: 9600
- Registrován: listopad 08
- Bydliště: Brno
- Pohlaví:
- Stav:
Offline
Re: Excel - tlačítko na číslo podle data + vlastní počítání
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.
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.
Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club
Re: Excel - tlačítko na číslo podle data + vlastní počítání
Měnit samotné datum lze tou funkcí DNES, takže to také lze řešit.
- Karrex
- Elite Level 10
- Příspěvky: 9600
- Registrován: listopad 08
- Bydliště: Brno
- Pohlaví:
- Stav:
Offline
Re: Excel - tlačítko na číslo podle data + vlastní počítání
Přes DNES z toho ale nedostanu takový formát? Nebo nevím jak?
Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club
Re: Excel - tlačítko na číslo podle data + vlastní počítání
Pomocí funkce "ČÁST" si z datumu vytáhneš požadované znaky, a pomocí funkce "CONCATENATE" si to spojíš dohromady tak jak potřebuješ.
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23625
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Excel - tlačítko na číslo podle data + vlastní počítání
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
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
- Karrex
- Elite Level 10
- Příspěvky: 9600
- Registrován: listopad 08
- Bydliště: Brno
- Pohlaví:
- Stav:
Offline
Re: Excel - tlačítko na číslo podle data + vlastní počítání
20210101-1 až 20210101-100
Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23625
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Excel - tlačítko na číslo podle data + vlastní počítání
Tak tady to máš. Tlačítko "Uprav" je na pozici LM. vytvořeno v excelu 2016.
Vlastní makro vypadá takto:
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
- Přílohy
-
- karex.xlsm
- (19.13 KiB) Staženo 31 x
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
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
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Excel - tlačítko na číslo podle data + vlastní počítání
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
- Karrex
- Elite Level 10
- Příspěvky: 9600
- Registrován: listopad 08
- Bydliště: Brno
- Pohlaví:
- Stav:
Offline
Re: Excel - tlačítko na číslo podle data + vlastní počítání Vyřešeno
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.
Jenom od elninosov byl formát 00 za pomlkou, tak jsem to upravil na 0 a vypadá to stejně.
Díky oběma.
Sestava v profilu.
Watercooling Club EXOverclocker@HWBot league rank#1 Aprilia Shiver Club BMW ///M Club
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
-
-
ikona refresh a tlačítko aktualizovat zmizelo
od Dizzy66 » 27 lis 2023 23:59 » v Windows 11, 10, 8... - 0
- 1142
-
od Dizzy66
Zobrazit poslední příspěvek
27 lis 2023 23:59
-
-
- 2
- 582
-
od michal84
Zobrazit poslední příspěvek
01 čer 2024 14:01
-
- 4
- 2477
-
od ski1961
Zobrazit poslední příspěvek
08 říj 2023 11:40
-
-
Data science desktop cca 70k Příloha(y)
od Siderit » 24 srp 2023 12:02 » v Rady s výběrem hw a sestavením PC - 10
- 1751
-
od Siderit
Zobrazit poslední příspěvek
25 srp 2023 20:02
-
-
- 4
- 994
-
od jan l
Zobrazit poslední příspěvek
11 led 2024 20:15
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 17 hostů