MS Excel

Zdravím
..mám formátovanou buńku jako datum 01.01.2023
Když do ní napíšu ručně např 1.1.23 po enter se doplní 01.01.2023
Chsi to provézt makrem, které ze zadání ve formuláři do textboxu doplní .. bunka.Value = TextBox6.Value
to se provede ale doplní se 1.1.23. Jak přinutit makro aby to doplnilo jako datum,tak když to dělám ručně, a nemusím ani vypisovat dvouciferné dny,měsíce a4cif.rok ?
Děkuji

Zaslat odpověď >

elninoslov(24.1.2023 13:05)#054280

Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Range("A1").Value = DateValue(Replace(TextBox6.Text, ".", "/"))
If Err.Number <> 0 Then MsgBox "Nie je zadaný dátum!", vbCritical, "Chyba !"
On Error GoTo 0
End Subcitovat

PavDD(24.1.2023 14:33)#054283

to je ono,díky.
Můžete popsat prosím příkazy , k čemu jsou..
On Error Resume Next a On Error GoTo 0

Chtěl bych si ošetřit další makra a napsat další podmínky, s tím , že když např. splněná není, neukáže se jen info:Nie je zadaný dátum, ale :
info s tlačítkem
"Ignorovat, nechci zadat" - bude pokračovat dále dalšími příkazy co následují
"Zavři" - ukončí makro bez dalších následujících příkazů.

Pcitovat

lubo(24.1.2023 18:19)#054285

elninoslov má svatou trpělivost, ale já už jsem to nevydržel...

Víte jak se používá klávesa F1?

Pokud je angličtina nesrozumitelná, zkusil jste zadat google dotaz, třeba "on error resume next statement česky" :

https://www.google.com/search?q=on+error+resume+next+statement+%C4%8Desky

Vrátí :

https://learn.microsoft.com/cs-cz/dotnet/visual-basic/language-reference/statements/on-error-statement

Zkuste také zadat dotaz na MsgBox.citovat

r13(25.1.2023 9:07)#054287

Lubo ano, aj ja som sa už neraz nestíhal diviť.
Ono to tu ani nie je poradňa, ale :"urobte mi to"
A s Tvojou prvou vetou naprosto súhlasímcitovat

PavDD(29.1.2023 19:47)#054310

Díky za tip.citovat

Téma: vložit do bunky datum

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje