Risultati da 1 a 6 di 6

Discussione: Userform: convalida dati e totale valori inseriti in un textbox



  1. #1
    L'avatar di Lcbsm
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Italia
    Messaggi
    46
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    21

    Userform: convalida dati e totale valori inseriti in un textbox

    Buondì a tutti,

    mi scuso per la "cripticità" del titolo del post ma non ho saputo fare meglio ;).

    Tempo fa ho iniziato ad interessarmi anche agli user form e, spulciando su internet, ho trovato qualche esempio che mi ha aiutato a capire come utilizzarli (almeno ad un livello "base").

    Ora avrei bisogno di qualche info in più, vi spiego cosa voglio fare.

    Ho una userform come quella che vedete nell'immagine



    Quello che vorrei riuscire a fare è:

    1) inserire una sorta di convalida dati per i primi tre text box: valore compreso tra 0 e 1;
    2) far comparire nel quarto text box (quello con etichetta "totale") la somma dei valori inseriti nei primi tre textbox; dovrebbe essere dinamico, nel senso che non appena inserisco 0,2 nel primo textbox subito mi compare 0,2 in totale, non appena poi inserisco 0,5 subito nel totale mi calcola 0,2+0,5=0,7. Ho provato con un banale

    Codice: 
    Me.txtPeso4.Value = Me.txtPeso1.Value + Me.txtPeso2.Value + Me.txtPeso3.Value
    Ma ovviamente non funziona...

    Idee??

    Grazie!!

  2. #2

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1011
    Versione Office
    .
    Likes ricevuti
    365
    Likes dati
    0
    Ciao,

    Idee?
    Una buona idea sarebbe quella di postare un file di esempio: l'iimmagine da sola è come servire in tavola la foto di un piatto di spaghetti anziché il piatto di spaghetti :166:

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Lcbsm
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Italia
    Messaggi
    46
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    21
    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Ciao,


    Una buona idea sarebbe quella di postare un file di esempio: l'iimmagine da sola è come servire in tavola la foto di un piatto di spaghetti anziché il piatto di spaghetti :166:
    E pure tu c'hai ragione... :176:
    File Allegati File Allegati

  5. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978
    Senza scomodare @Scossa (:23:) ecco la routine:
    Codice: 
    Private Sub txtPeso1_Change()
    With txtPeso1
        .Value = Replace(.Value, ".", ",")
        If .Value < 0 Or .Value > 1 Then
            MsgBox "Devi inserire un valore tra 0 e 1", vbCritical + vbOKOnly, "Valore errato"
            .SelStart = 0
            .SelLength = Len(TextBox1)
            .SetFocus
            Exit Sub
        End If
        If IsNumeric(txtPeso1) And IsNumeric(txtPeso2) And IsNumeric(txtPeso3) Then
            txtBox4 = CDbl(txtPeso1) + CDbl(txtPeso2) + CDbl(txtPeso3)
        End If
    End With
    End Sub
    
    
    Private Sub txtPeso2_Change()
    With txtPeso2
        .Value = Replace(.Value, ".", ",")
        If .Value < 0 Or .Value > 1 Then
            MsgBox "Devi inserire un valore tra 0 e 1", vbCritical + vbOKOnly, "Valore errato"
            .SelStart = 0
            .SelLength = Len(TextBox1)
            .SetFocus
            Exit Sub
        End If
        If IsNumeric(txtPeso1) And IsNumeric(txtPeso2) And IsNumeric(txtPeso3) Then
            txtBox4 = CDbl(txtPeso1) + CDbl(txtPeso2) + CDbl(txtPeso3)
        End If
    End With
    End Sub
    
    
    Private Sub txtPeso3_Change()
    With txtPeso3
        .Value = Replace(.Value, ".", ",")
        If .Value < 0 Or .Value > 1 Then
            MsgBox "Devi inserire un valore tra 0 e 1", vbCritical + vbOKOnly, "Valore errato"
            .SelStart = 0
            .SelLength = Len(TextBox1)
            .SetFocus
            Exit Sub
        End If
        If IsNumeric(txtPeso1) And IsNumeric(txtPeso2) And IsNumeric(txtPeso3) Then
            txtBox4 = CDbl(txtPeso1) + CDbl(txtPeso2) + CDbl(txtPeso3)
        End If
    End With
    End Sub

  6. I seguenti utenti hanno dato un "Like"


  7. #5
    L'avatar di Lcbsm
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Italia
    Messaggi
    46
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    21
    Grazie rubik!

  8. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978
    Se hai risolto il problema, segna questa discussione come "RISOLTO".
    Vai sul menù "Strumenti Discussione" (all'inizio del thread) e scegli la voce ""Segna questo thread come risolto...".

Discussioni Simili

  1. [Risolto] Calcolo totale - Sommare valori positivi o sottrarre valori negativi
    Di kasar nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 16/11/17, 10:11
  2. [Risolto] Scartare valori già inseriti in altre celle
    Di misterlunick nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 04/01/17, 19:22
  3. Textbox userform che mi riposta un totale.
    Di Laura Belli nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 05/09/16, 19:21
  4. Cancella dati in textbox di una userform
    Di Snoopy nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 12/07/16, 08:39
  5. Come sommare valori inseriti in celle diverse.
    Di vitangelo nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 06/12/15, 19:28

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
  •