Risultati da 1 a 14 di 14

Discussione: Cancella dati in textbox di una userform



  1. #1
    L'avatar di Snoopy
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Longare
    Messaggi
    14
    Versione Office
    OFFICE 2010
    Likes ricevuti
    0
    Likes dati
    0

    Cancella dati in textbox di una userform

    Buongiorno
    In una TextBox di una UserForm ho il seguente codice:

    Codice: 
    Private Sub NMS_Change()
    
    If NMS ="" Or Not (IsNumeric(NMS.Text)) Then'controlla che il textbox non sia vuoto o non numerico,se Ŕ vuoto o testo allora
    
    MsgBox "Inserire Numero"'avvisa con un messaggio
    
    NMS.SetFocus'posiziona il focus sul textbox1
    
    Exit Sub'ed esce dalla routine senza completare il resto delle istruz.
    
    End If
    
    End Sub
    Succede che quando sul TextBox uso la freccia a Sin per cancellare il dato sbagliato inserito mi riappare l'avviso e devo premere ancora OK.
    Non riesco a pulire la Textbox senza che mi appaia ancora l'avviso.
    Come posso fare?
    Grazie per collaborazione
    Ultima modifica fatta da:cromagno; 11/07/16 alle 19:43 Motivo: Inserito codice tra i tag CODE...

  2. #2
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    309
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    17

    Re: Cancella dati in textbox di una userform

    Se vuoi assicurarti che nella textbox vengano inseriti solo valori numerici puoi usare anche questa modalitÓ.
    Codice: 
    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc("-")
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or Me.TextBox1.SelStart > 0 Then
                KeyAscii = 0
            End If
        Case Asc(".")
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then
                KeyAscii = 0
            End If
        Case Else
            KeyAscii = 0
    End Select
    End Sub
    
    Cuc¨:Saluto:

  3. #3
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1100
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Cancella dati in textbox di una userform

    prova cosý
    Codice: 
    If Not IsNumeric(NMS.Text) And NMS.Text <> vbNullString Then

  4. #4
    L'avatar di Snoopy
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Longare
    Messaggi
    14
    Versione Office
    OFFICE 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Cancella dati in textbox di una userform

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Se vuoi assicurarti che nella textbox vengano inseriti solo valori numerici puoi usare anche questa modalitÓ.
    Codice: 
    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc("-")
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or Me.TextBox1.SelStart > 0 Then
                KeyAscii = 0
            End If
        Case Asc(".")
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then
                KeyAscii = 0
            End If
        Case Else
            KeyAscii = 0
    End Select
    End Sub
    
    Cuc¨:Saluto:
    Grazie per la risposta.
    Ho provato ad inerire il codice ma, dopo la parentesi chiusa della prima riga mi dice "Errore di compilazione - Previsto fine istruzione. Ho sbagliato qualcosa? l'ho inserita al posto della precedente sub .

    ----------Post unito in automatico----------

    Grazie Patel
    Funziona ma non benissimo nel senso che se sbagli 2 volte il cursore si sposta e non riesci ad inserire il dato.

  5. #5
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Cancella dati in textbox di una userform

    Ciao,
    spero che Cuc¨ non se la prenda se rispondo al Suo posto.

    Porta in riga 2 quanto dopo la parentesi.

    Ciao
    Frank


    Codice: 
    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc("-")
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or Me.TextBox1.SelStart > 0 Then
                KeyAscii = 0
            End If
        Case Asc(".")
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then
                KeyAscii = 0
            End If
        Case Else
            KeyAscii = 0
    End Select
    End Sub
    Excel 2007 win7 - Ogni Progetto Ŕ composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  6. #6
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Livorno
    EtÓ
    72
    Messaggi
    1100
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Cancella dati in textbox di una userform

    @ Snoopy
    con un minimo impegno avresti potuto accorgertene che mancava soltanto un ritorno accapo, esiste anche l'help per vedere a cosa servono i vari comandi

  7. #7
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    309
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    17

    Re: Cancella dati in textbox di una userform

    Citazione Originariamente Scritto da tanimon Visualizza Messaggio
    Ciao,
    spero che Cuc¨ non se la prenda se rispondo al Suo posto.

    Porta in riga 2 quanto dopo la parentesi.

    Ciao
    Frank
    Giusto, ovviamente devi omettere anche

    Codice: 
    Cuc¨:Saluto:
    Bye e scusate ma non sono pratico con questo forum!

  8. #8
    L'avatar di Snoopy
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Longare
    Messaggi
    14
    Versione Office
    OFFICE 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Cancella dati in textbox di una userform

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    @ Snoopy
    con un minimo impegno avresti potuto accorgertene che mancava soltanto un ritorno accapo, esiste anche l'help per vedere a cosa servono i vari comandi
    L'impegno non c'entra nulla. Io sto studiando da un mese e voi mi dite con l'impegno... esiste l'help...
    Se siete cosý cazzuti perchÚ postare qualcosa di inesatto e pretendere che gli altri siano cosý arguti da accorgersene.
    Ringrazio tutti perchÚ ho sicuramente tutto da imparare ma non devo imparare nulla in merito a tenacia e impegno. A 58 anni posso comunque insegnare qualcosa anch'io anche se non Ŕ Vba.

  9. #9
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Binasco
    EtÓ
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Cancella dati in textbox di una userform

    Scusami, perchŔ non hai allegato un file. perchŔ non lo alleghi?
    Non mi dire "dati privati o pesante", pensavo una "cosa", mÓ non ero certo

  10. #10
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    309
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    17

    Re: Cancella dati in textbox di una userform

    Citazione Originariamente Scritto da Snoopy Visualizza Messaggio
    L'impegno non c'entra nulla. Io sto studiando da un mese e voi mi dite con l'impegno... esiste l'help...
    Se siete cosý cazzuti perchÚ postare qualcosa di inesatto...
    Cos'Ŕ un ringraziamento per l'aiuto dato?

  11. #11
    L'avatar di Snoopy
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Longare
    Messaggi
    14
    Versione Office
    OFFICE 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Cancella dati in textbox di una userform

    Ecco il file.
    Comunque oltre a quanto segnalato non scrive sul foglio 1 il fluido nella casella e non cambia textbox con il tasto TAB.

    Grazie
    File Allegati File Allegati

  12. #12
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Binasco
    EtÓ
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Cancella dati in textbox di una userform

    >>>non scrive sul foglio 1 il fluido nella casella
    Altra domanda

    Scusami
    Private Sub NMS_Change()
    If NMS = "" >>>secondo Te cosa dovrebbe fare?

    Sarebbe meglio un If NMS = "" then exit sub

  13. #13
    L'avatar di Snoopy
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    Longare
    Messaggi
    14
    Versione Office
    OFFICE 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Cancella dati in textbox di una userform

    aprendo la sub del file che ti ho inviato avresti potuto vedere che le note a fianco di ogni riga spiegano cosa deve fare.

    Private SubNMS_Change()
    If NMS = "" Or Not(IsNumeric(NMS.Text)) Then'controllache il textbox non sia vuoto, se Ŕ vuoto allora
    MsgBox "Inserire NMS"'avvisa con un messaggio
    NMS.SetFocus'posiziona il focus sul textbox1
    Exit Sub'ed esce dalla routine senza completare ilresto delle istruz.
    End If
    End sub
    In pi¨ dovrebbe anche pulire la textbox (questo non Ŕ scritto).

    Grazie

    ----------Post unito in automatico----------

    Per Cu^cu^ e Tanimon
    Grazie funziona perfettamente. E il controllo non si muove dalla Textbox se il dato non Ŕ corretto.
    Ottimo
    Scusate ho risposto al posti di Tanimon ma il msg Ŕ stato unito qui. Non so cm si fa.

  14. #14
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Cancella dati in textbox di una userform

    ciao,
    tengo buona la soluzione di CuC¨:
    per quello che ne s˛ e visto il Tuo titolo alla discussione, una TextBox Ŕ una casella di testo.
    Potresti inserire un numero con tutte le cifre del mondo...... sempre testo sarebbe

    come vorresti che riconoscesse e che hai inserito un numero?


    Citazione Originariamente Scritto da Snoopy Visualizza Messaggio
    Codice: 
    If NMS = "" Or Not(IsNumeric(NMS.Text)) Then'controllache il textbox non sia vuoto, se Ŕ vuoto allora
    ciao
    Frank

    ----------Post unito in automatico----------

    potresti al limite, dopo il Tuo If,
    convertirne il contenuto in numero con

    Codice: 
    Textbox1 = Val(TextBox1)
    e con la giusta formattazione della cella di destinazione,
    avresti un numero nel passaggio sul foglio lato utente.

    ma la TextBox rimarebbe testo.

    Ciao
    Frank
    Excel 2007 win7 - Ogni Progetto Ŕ composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

Discussioni Simili

  1. [Tutorial VBA] Popolare UserForm Con dati di una tabella ed inserire dati in un altro foglio
    Di dracoscrigno nel forum Imparando Excel & VBA - Tutorial di Excel-
    Risposte: 3
    Ultimo Messaggio: 05/04/17, 23:13
  2. [UserForm] button modifica e cancella in userform con dati da listbox selezionati
    Di aurelio125 nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 13/11/16, 17:54
  3. Salvataggio dati in una TextBox
    Di giugar nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 18/10/16, 12:45
  4. 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
  5. Userform: convalida dati e totale valori inseriti in un textbox
    Di Lcbsm nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 16/03/16, 20:30

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
  •