< návrat zpět

MS Excel


Téma: vložit do bunky datum rss

Zaslal/a 24.1.2023 12:18

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ěď >

#054280
elninoslov
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 Sub
citovat
#054283
avatar
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
#054285
avatar
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
#054287
avatar
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
#054310
avatar
Díky za tip.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Výmaz řádku podle hodnoty v konkrétním sloupci

elninoslov • 7.2. 21:49

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 14:02

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 11:44

plán 12 h směn na celý rok

PE1PA • 6.2. 14:56

plán 12 h směn na celý rok

elninoslov • 6.2. 14:16

plán 12 h směn na celý rok

elninoslov • 6.2. 14:15

plán 12 h směn na celý rok

elninoslov • 6.2. 13:21