MS Excel

Téma: součet hodnot textboxů

Zaslal/a TEDO 31.10.2015 17:18

ahoj, prosím o pomoc. ve formuláři mám 2 textboxy kde se zadávají čísla a já potřebuji do bunky dostat součet těch dvou hodnot. Pokud napíšu cells(1,1)=Me.TextBox1.value + Me.TextBox2.value tak výsledek je pouze spojení obou čísel do jedné řady např. 50 a 4 spojí do 504.

Zaslat odpověď >

elninoslov(31.10.2015 17:45)#027763

Private Sub CommandButton1_Click()
On Error Resume Next
Worksheets("Hárok1").Cells(1, 1) = CInt(Me.TextBox1.Value) + CInt(Me.TextBox2.Value)
If Err Then MsgBox ("Chybné hodnoty !"): Err.Clear
End Subcitovat

kp57(1.11.2015 0:04)#027771

Já bych se zeptal "IsNumeric" ?citovat

elninoslov(1.11.2015 0:27)#027772

Áno, samozrejme môže byť, len sa musí testovať každý TB zvlášť, lebo ak ich najskôr spočítate, a naraz vyhodnotíte, tak aj pri iba jednom zadanom čísle dostanete True. Ale "" nemusí byť vždy 0. Záleží na konkrétnom použití a vkuse.
Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1.Value) And IsNumeric(Me.TextBox2.Value) Then Worksheets("Hárok1").Cells(1, 1) _
= CInt(Me.TextBox1.Value) + CInt(Me.TextBox2.Value) Else MsgBox ("Chybné hodnoty !")
End Subcitovat

Vovka(2.11.2015 11:59)#027778

Obsah TextBoxu je vždy a zásadně textový. Nelze dopředu nastavit, aby TextBox pracoval numericky. Pokud chci mít jistotu, že v textboxu není nenumerický obsah, měl bych při každém opuštění TextBoxu obsah testovat, aby v něm nemohly být nesmysly (událost Exit). IsNumeric je pro ten účel dobrý test. Pak bude jednoduché s takovou informací pracovat.citovat

eLCHa(2.11.2015 13:33)#027780

@Vovka
Je to jedno, ale efektnější je prostě nedovolit zadat nečíselnou hodnotu. Např.:Private Sub TextBox1_Change()
Static sVal As String
If IsNumeric(TextBox1.Text) Then
sVal = TextBox1.Text
Else
TextBox1.Text = sVal
End If
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

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.