syd(10.2.2018 19:44)citovat#039438 
Dobry den,
nastavit to nejde. Co se napise do textboxu, bude string - textovy retezec - i kdyz tam napisete cislo.
Je potreba provest nejake overeni.
Kris(10.2.2018 19:55)citovat#039439 ahaa.. skoda.. z textboxu mi jde ta hodnota do bunky C10 a i kdyz provedu overeni dat v teto bunce tak se mu prez textbox povede do bunky zadat i pismena a to ja nechci..
Honza53(10.2.2018 19:55)citovat#039440 Nastav to pomocí události KeyPress onoho textboxu, kde nechtěné znaky (ASCI kódy) nahradíš nulou. Pak už bude snadné v události Change ověřovat hodnotu zadaného čísla.
Kris(10.2.2018 20:08)citovat#039441 Honza53: dľkuji za radu bohuzel netusim o cem pises nejsem tak dobra v tehle vecech...
Kris(10.2.2018 20:29)citovat#039442 neco sem vy googlila a funguje
If Not IsNumeric(TextBox2.Value) And TextBox2.Value <> vbNullString Then
MsgBox "Není číslo."
TextBox2.Value = vbNullString
End If
Kris(15.2.2018 22:12)citovat#039547 Dekuji panove, chci se zeptat potrebuju v textboxu ve formulari psat pouze datum (1.1.2018) atd. nic jineho. je mozne nejak upravit na overovani pouze datumu?
If Not IsNumeric(TextBox2.Value) And TextBox2.Value <> vbNullString Then
MsgBox "Není číslo."
TextBox2.Value = vbNullString
End If
Datum z textboxu pujde do bunky A1 na List1
Díky moc za radu
Mozna něco jako
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text <> "" Then
If IsDate(TextBox1.Text) Then
TextBox1.Text = Format(TextBox1.Text, "mm/dd/yyyy")
Else
MsgBox "Please enter a valid date!"
Cancel = True
End If
End If
End Sub
39443_userform.zip (17kB, staženo 73x)
RSS nejnovější články