Ahoj,
možností bude určitě více, nabízím dvě .-)...
Aktuálně ti to pracuje s řetězcem, takže jedna možnost bude využití funkce Val.
Private Sub CommandButton1_Click()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End SubA nebo třeba definovat datové typy.
Private Sub CommandButton1_Click()
Dim cislo1 As Integer
Dim cislo2 As Integer
cislo1 = TextBox1.Value
cislo2 = TextBox2.Value
TextBox3.Value = cislo1 + cislo2
End SubP.citovat
možností bude určitě více, nabízím dvě .-)...
Aktuálně ti to pracuje s řetězcem, takže jedna možnost bude využití funkce Val.
Private Sub CommandButton1_Click()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End SubA nebo třeba definovat datové typy.
Private Sub CommandButton1_Click()
Dim cislo1 As Integer
Dim cislo2 As Integer
cislo1 = TextBox1.Value
cislo2 = TextBox2.Value
TextBox3.Value = cislo1 + cislo2
End SubP.citovat
RSS nejnovější články