Risultati da 1 a 8 di 8

Discussione: SetFocus su una TextBox



  1. #1
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    79
    Messaggi
    308
    Versione Office
    Office 2010
    Likes ricevuti
    1

    SetFocus su una TextBox

    Gent.mi,


    mi scuso per una richiesta puerile, ritengo ........



    non riesco ad attivare il setfocus dopo il controllo di entrambi MSGBox.

    Anticipatamente ringrazio e saluto

    Domenico
    File Allegati File Allegati

  2. #2
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2041
    Versione Office
    office pro 2010
    Likes ricevuti
    426
    Likes dati
    234

    Re: SetFocus su una TextBox

    Perchè sbagli il raginoamento:


    Che cosa fai DOPO che hai scritto nella textbox?
    Non premi forse un Pulsante?

    Se disturbi il signor pulsante premendolo perchè vuoi anceh disturbare il signore Evento della Textbox per fargli eseguire le tue istruzioni?
    Se hai telefonato al macellaio non puoi lamentarti se il pizzaiolo non arriva con la quattro stagioni

    Codice: 
    Option Explicit
    Private Sub Button2_Click()
        If Not Range("F2") = "" Then
            If Not Range("F2") = Me.TextBox1.Text Then
                MsgBox " Ritenta sarai più fortunato"
                Me.TextBox1.Text = ""
                Me.TextBox1.SetFocus
            Else
                MsgBox " Hai centrato il bersaglio. Bravo mille!!!"
                Unload Me
            End If
        End If
    End Sub


    Rieditando:

    Questo è quello che c'era nel tuo allegato
    Codice: 
    
    
    Private Sub Button2_Click() ' Chiudi
    
    
    Unload Me
    
    
    End Sub
    
    
    Private Sub TextBox1_AfterUpdate()
    
    
    If Range("F2") = "" Then Exit Sub
    If TextBox1.Value <> Range("F2") Then
    
    
     MsgBox "Voce inesistente"
    TextBox1 = ""
    TextBox1.SetFocus
    
    
    ElseIf TextBox1.Value = Range("F2") Then
    TextBox1 = ""
    TextBox1.SetFocus
    
    
        MsgBox "Voce esatta"
     
    End If
    
    
    End Sub
    
    
    Private Sub UserForm_Click()
    
    
    End Sub
    un listato indentato sarebbe buona cosa per chi deve leggerlo.

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    79
    Messaggi
    308
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: SetFocus su una TextBox

    Gent.mo Dracoscrigno,


    ringrazio della gentilezza e tempestività, avevo provato e riuscito con l'utilizzo del
    pulsante.
    Pensavo di avere lo stesso risultato del VERO/FALSO pigiando l'enter/invio.


    Saluto.
    Domenico.

  5. #4
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2041
    Versione Office
    office pro 2010
    Likes ricevuti
    426
    Likes dati
    234

    Re: SetFocus su una TextBox

    premendo invio cosa vuol dire?
    che stai scrivendo nella textbox del form e premi invio oppure che stai scrivendo in una cella di un foglio e premi invio?

    se sei in una cella devi gestire l evento worksheets_change relativo a quella cella.

    se sei nella texbox devi considerare la pressione del tasto invio come fosse un carattere e devidere cosa vuoi fare:


    key press stai premendo il tasto sulla tastiera
    key down hai premuto il tasto sulla tastiera
    key up hai premuto il tasto sulla tastiera

    se controlli questi tre eventi noterai che come argomento puoi valutare se il carattere immesso è quello che cerchi ed in quel caso fare ciò che meglio credi.

    sarà qualcosa del tipo:

    if keycode = carattereACapo then
    fai qualcosa
    else
    fai qualcos altro
    end if

    il carattere di invio è rappresentato, nella tavola ascii dalla posizione numero 13.

    quindi asc(13) restiruisce "RETURN"
    Come asc(96) Restituisce "A"


    quanto detto prendilo come spunto perche dal cellulare non ho modo di valutare quanto la mia dipendenza mnemonica con l intellisense sia elevata

  6. #5
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2041
    Versione Office
    office pro 2010
    Likes ricevuti
    426
    Likes dati
    234

    Re: SetFocus su una TextBox

    ecco come dovrebbe funzionare il tuo esempio.. credo ...

    Ho lasciato commentata qualche istruzione per far si che ti sorga un nuovo quesito ma che esso trovi risposta immediatamente

    Codice: 
    'Private RispostaSbagliata As Boolean
    
    
    Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If (KeyCode = 13) And (Not Range("F2") = "") Then
            If Not Range("F2") = Me.TextBox1.Text Then
                MsgBox " Ritenta sarai più fortunato"
                Me.TextBox1.Text = ""
                'RispostaSbagliata = True
            Else
                MsgBox " Hai centrato il bersaglio. Bravo mille!!!"
            End If
        End If
    End Sub
    
    
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        'If RispostaSbagliata Then
            Cancel = True
        'End If
    End Sub

  7. #6
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    79
    Messaggi
    308
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: SetFocus su una TextBox

    Gent.mo Dracoscrigno,


    ringrazio della cortesia, funziona anche con INVIO.
    L'unica cosa che non va è il pulsante CHIUDI per la chiusura funziona con la X dell'UsrForm.


    Auguro buona giornata.
    Domenico.

  8. #7
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2041
    Versione Office
    office pro 2010
    Likes ricevuti
    426
    Likes dati
    234

    Re: SetFocus su una TextBox

    dai che non è difficile.
    dovresti riuscire ad arrivarci da solo

  9. #8
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    79
    Messaggi
    308
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: SetFocus su una TextBox

    Gent.mo,

    OK, Grazie e buona giornata.

Discussioni Simili

  1. in una textbox scrivere su più righe
    Di raffaelealta nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 11/02/17, 03:21
  2. Salvataggio dati in una TextBox
    Di giugar nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 18/10/16, 11:45
  3. Salvare il contenuto di una textBox in .TXT
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 16/05/16, 12:39
  4. Popolare la TextBox
    Di dautattmaui nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 04/05/16, 19:42
  5. Lettera nella textbox
    Di dautattmaui nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 22/02/16, 10:23

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
  •