Risultati da 1 a 8 di 8

Discussione: una TexBox che contiene un numero decimale il valore trasferisce il suo contenuto come testo



  1. #1
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    una TexBox che contiene un numero decimale il valore trasferisce il suo contenuto come testo

    Buongiorno, avrei un quesito da porvi:
    con questa macro quando trasferisco i valori della variabile E e F (... la TextBox3 e TextBax4 contengono numeri con un decimale) vengono trasferiti come formato testo
    Ho anche provato a cambiare E/F da String a Double , ma mi segnala un errore nella riga: If E = "" Then
    .... dov'è l'errore ????
    Grazie per gli eventuali suggerimenti


    Codice: 
    Private Sub CommandButton1_Click()
    'definisce mese
    x = ComboBox3
    If x = "" Then
    MsgBox ("Devi prima selezionare il MESE!")
    Else
    'Definisci Variabili Entrate
    Dim A As Byte, B As String, C As String, D As Double, E As String, F As String, G As String, H As String, I As String
    End If
    'Carica dati
    A = ComboBox1
    B = ComboBox2
    C = ComboBox5
    D = TextBox2
    E = TextBox3
    If E = "" Then
    MsgBox ("Devi inserire nella MEDIA almeno un carattere!")
    Else
    F = TextBox4
    If F = "" Then
    MsgBox ("Devi inserire nella VEL.MAX almeno un carattere!")
    Else
    G = TextBox5
    If G = "" Then
    MsgBox ("Devi inserire nella TIME almeno un carattere!")
    Else
    H = TextBox6
    If H = "" Then
    MsgBox ("Devi inserire nella CALORIE almeno un carattere!")
    Else
    I = TextBox7
    ' Carica il mese
    Sheets(x).Select
    riga = 3
    'Trova prima riga libera partendo dalla 2
    
    
    While Cells(riga, 3) <> ""
    riga = riga + 1
    Wend
    'Trasferisci Dati
    Cells(riga, 1) = A
    Cells(riga, 2) = B
    Cells(riga, 3) = C
    Cells(riga, 4) = D
    Cells(riga, 5) = E
    Cells(riga, 6) = F
    Cells(riga, 7) = G
    Cells(riga, 8) = H
    Cells(riga, 9) = I
    End If
    End If
    End If
    End If
    Sheets(x).Select
    End Sub

  2. #2
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    48
    Messaggi
    4894
    Versione Office
    Office 2013
    Mi Piace ricevuti
    725
    Mi Piace dati
    738

    Re: una TexBox che contiene un numero decimale il valore trasferisce il suo contenuto come testo

    Ciao Roberto
    come da regolamento i codici VBA vanno messi tra i Tag [CODE] adesso ci ho pensato io se non sai come si fa guarda QUI

    un saluto

    Non mandate messaggi privati per problemi di excel, usate il forum per rishieste di aiuto
    Scarica il nuovo Add-ins per inserire griglie ed intervalli di Excel con il BBCode Clicca qui

  3. I seguenti utenti hanno dato un "Mi Piace"


  4. #3
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2026
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    256
    Mi Piace dati
    39

    Re: una TexBox che contiene un numero decimale il valore trasferisce il suo contenuto come testo

    Ciao Roberto

    Una textbox restituisce un "valore" di tipo "Stringa".

    Prova ad usare una delle funzioni di conversione: per te dovrebbe essere CDbl.

    Per esempio

    Codice: 
    Range("a1").Value = CDbl(Me.TextBox1.Value)
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."

  5. I seguenti utenti hanno dato un "Mi Piace"


  6. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    36
    Messaggi
    2595
    Versione Office
    2016
    Mi Piace ricevuti
    706
    Mi Piace dati
    624

    Re: una TexBox che contiene un numero decimale il valore trasferisce il suo contenuto come testo

    Ciao a tutti,

    @robertopiro
    se dichiari le variabili come Double dovresti usare la conversione CDbl().

    Per l'errore che riscontri... prova a verificare il valore della TextBox e non quello della variabile:

    Si:
    Codice: 
    If TextBox3 = "" Then
    No:
    Codice: 
    If E = "" Then
    Per suggerimenti più precisi, allega un file d'esempio...

    [EDIT]
    Scusa Alfredo, non avevo visto la tua risposta

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  7. I seguenti utenti hanno dato un "Mi Piace"


  8. #5
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    Re: una TexBox che contiene un numero decimale il valore trasferisce il suo contenuto come testo

    Scusa alfrimpa (sappi che sul VBA sono molto limitato...) ma come devo modificare la macro ???? inoltre perchè la variabile D che ho dichiarato Double mi trasferisce il valore regolarmente ???
    Ciao e grazie

  9. #6
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    Re: una TexBox che contiene un numero decimale il valore trasferisce il suo contenuto come testo

    ...scusate no avevo visto l'ultimo suggerimento , ora provo.

  10. #7
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Lugo(Ra)
    Messaggi
    30
    Versione Office
    Excel 2016
    Mi Piace ricevuti
    0
    Mi Piace dati
    14

    Re: una TexBox che contiene un numero decimale il valore trasferisce il suo contenuto come testo

    Grazie del suggerimento ... così funziona.
    ...come faccio a chiudere la discussione con [Risolto] ????

  11. #8

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    36
    Messaggi
    2595
    Versione Office
    2016
    Mi Piace ricevuti
    706
    Mi Piace dati
    624

    Re: una TexBox che contiene un numero decimale il valore trasferisce il suo contenuto come testo

    Citazione Originariamente Scritto da robertopiro Visualizza Messaggio
    ...come faccio a chiudere la discussione con [Risolto] ????
    Faccio io
    L'utente deve solo indicare quando la discussione è terminata (come hai appena fatto)

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

Discussioni Simili

  1. [Risolto] Ricerca contenuto testo in colonna
    Di xGeKox nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 03/10/16, 19:29
  2. Valore texbox
    Di Ciro72 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 27/09/16, 15:05
  3. cerca verticale se cella contiene testo
    Di Lety88 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 09/03/16, 15:08
  4. formula di previsione valore decimale mantenendo una predeterminata media
    Di sergi0 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 04/01/16, 20:58
  5. Colorare una Texbox di colore diverso a secondo del contenuto
    Di giovanni.mastellone nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 30/10/15, 07:56

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •