Convertire stringa in numero

Hai un problema con Excel?

Nuova discussione

Convertire stringa in numero
di Qwerty (utente non iscritto) data: 14/05/2010
Salve, ho un problema... non riesco a capire dove sia l'errore in questo codice... in pratica dovrebbe convertirmi i valori che inserisco nei textbox 5 e 6 in numeri.... ma mi dà errore alla stringa:
prezzo_ordine_corrente = cint(textbox5.text)
dicendomi: "errore di run-time '13' tipo non corrispondente"
dovè che sbaglio?? grazie!

Private Sub CommandButton1_Click()
Dim Prezzo_Ordine_Corrente As Integer
Dim Prezzo_Quantità_ordinate As Integer
Prezzo_Ordine_Corrente = CInt(TextBox5.Text)
Prezzo_Quantità_ordinate = CInt(TextBox6.Text)
If TextBox5 = "" Then
Prezzo_Ordine_Corrente = Prezzo_Quantità_ordinate
Else: Prezzo_Ordine_Corrente = Prezzo_Quantità_ordinate + Prezzo_Ordine_Corrente
End If
End Sub

di Big ronnie (utente non iscritto) data: 14/05/2010
Ciao qwerty,
così sembra funzionare.provala e fammi sapere.

ciao big

Sub CommandButton1_Click()
Dim Prezzo_Ordine_Corrente As Integer
Dim Prezzo_Quantità_ordinate As Integer
If Me.TextBox5.Text = "" Then Me.TextBox5 = 0 '====================== Variazione ======================
Prezzo_Ordine_Corrente = CInt(TextBox5)
Prezzo_Quantità_ordinate = CInt(TextBox6)
'Me.TextBox5.ForeColor = vbWhite 'Attivala se non vuoi vedere lo 0 nella textbox5
Prezzo_Ordine_Corrente = Prezzo_Quantità_ordinate
Else: Prezzo_Ordine_Corrente = Prezzo_Quantità_ordinate + Prezzo_Ordine_Corrente
End If
End Sub

di Big ronnie (utente non iscritto) data: 14/05/2010
Scusa questa è quella giusta.

Sub CommandButton1_Click()
Dim Prezzo_Ordine_Corrente As Integer
Dim Prezzo_Quantità_ordinate As Integer
If Me.TextBox5.Text = "" Then
Me.TextBox5 = 0 '====================== Variazione ======================
Prezzo_Ordine_Corrente = CInt(TextBox5)
Prezzo_Quantità_ordinate = CInt(TextBox6)
'Me.TextBox5.ForeColor = vbWhite 'Attivala se non vuoi vedere lo 0 nella textbox5
Prezzo_Ordine_Corrente = Prezzo_Quantità_ordinate
Else: Prezzo_Ordine_Corrente = Prezzo_Quantità_ordinate + Prezzo_Ordine_Corrente
End If
End Sub

Convertire stringa in numero
di Qwerty (utente non iscritto) data: 14/05/2010
Continua a non funzionare... in prezzo ordine corrente mi dà sempre il valore 0

di Big ronnie (utente non iscritto) data: 15/05/2010
Prova questa.

ciao big

Private Sub CommandButton1_Click()
Dim Prezzo_Ordine_Corrente As Integer
Dim Prezzo_Quantità_ordinate As Integer
If Me.TextBox5.Text = "" Then Me.TextBox5 = 0 
Prezzo_Ordine_Corrente = CInt(TextBox5.Text)
Prezzo_Quantità_ordinate = CInt(TextBox6.Text)
If Me.TextBox5.Text = "" Then
Prezzo_Ordine_Corrente = Prezzo_Quantità_ordinate
Else: Prezzo_Ordine_Corrente = Prezzo_Quantità_ordinate + Prezzo_Ordine_Corrente
End If
End Sub

Convertire stringa in numero
di Qwerty (utente non iscritto) data: 15/05/2010
Diciamo che ho semplificato il codice in 3 righe e sono riuscito a farlo funzionare, grazie lo stesso ^^
Private Sub CommandButton1_Click() TextBox5.Text = Val(TextBox5.Text) + Val(TextBox6.Text) End Sub

Vuoi Approfondire?