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
    42
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes 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Ó
    50
    Messaggi
    5388
    Versione Office
    office 365/2016
    Likes ricevuti
    1274
    Likes dati
    1341

    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
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  3. I seguenti utenti hanno dato un "Like"


  4. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    9756
    Versione Office
    2013
    Likes ricevuti
    1017
    Likes dati
    274

    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"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  5. I seguenti utenti hanno dato un "Like"


  6. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    38
    Messaggi
    4748
    Versione Office
    2013
    Likes ricevuti
    1501
    Likes dati
    1052

    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 "Like"


  8. #5
    L'avatar di robertopiro
    Clicca e Apri
    Data Registrazione
    Oct 2016
    LocalitÓ
    Lugo(Ra)
    Messaggi
    42
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes 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
    42
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes 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
    42
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes 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Ó
    38
    Messaggi
    4748
    Versione Office
    2013
    Likes ricevuti
    1501
    Likes dati
    1052

    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] Eliminare contenuto cella se contiene una parola specifica
    Di Cristina1 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 03/01/17, 12:57
  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
  •