< návrat zpět

MS Excel

Téma: TextBox - omezeni hodnot rss

Zaslal/a Kris 10.2.2018 19:18

Dobry vecer, chtela bych sezeptat jestli je mozne ve VBA formulari v Textboxu nastavit aby tam sli vepsat jen cisla a to od 1 do 99. Pripadne poradit v jakym poli to zadat. Dľkuji

Zaslat odpověď >
syd(10.2.2018 19:44)#039438
avatar
Dobry den,

nastavit to nejde. Co se napise do textboxu, bude string - textovy retezec - i kdyz tam napisete cislo.
Je potreba provest nejake overeni.citovat
Kris(10.2.2018 19:55)#039439
avatar
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..citovat
Honza53(10.2.2018 19:55)#039440
avatar
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.citovat
Kris(10.2.2018 20:08)#039441
avatar
Honza53: dľkuji za radu bohuzel netusim o cem pises nejsem tak dobra v tehle vecech...citovat
Kris(10.2.2018 20:29)#039442
avatar
neco sem vy googlila a funguje

If Not IsNumeric(TextBox2.Value) And TextBox2.Value <> vbNullString Then
MsgBox "Není číslo."
TextBox2.Value = vbNullString
End Ifcitovat
Stalker(10.2.2018 20:40)#039443
Stalker
Nástřel možného řešení
Příloha: zip39443_userform.zip (17kB, staženo 69x)
citovat
elninoslov(11.2.2018 3:20)#039445
elninoslov
Alebo
Příloha: zip39445_39443_userform.zip (20kB, staženo 49x)
citovat
Kris(15.2.2018 22:12)#039547
avatar
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 raducitovat
Merlin99(16.2.2018 15:15)#039549
Merlin99
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 Subcitovat
Merlin99(16.2.2018 19:21)#039550
Merlin99
neco posilam v priloze. Nicmene stejne datum i kdyz neni datum tak se propise do bunky (coz by nemel) ale hodi aspon hlasku..
Příloha: rar39550_datum.rar (18kB, staženo 37x)
citovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje