selezionare il testo in una textbox

Question

Buongiorno,

mi sono inceppato su un codice:

Vorrei selezionare il testo errato in una text box dopo il messaggio di errore, ma appena do ok sul messaggio il focus va sulla textbox seguente.

come si fa? 

Io ho il seguente codice:

If UserForm1.TextBox6.Value = "" Then

Exit Sub

ElseIf Mid(UserForm1.TextBox6, 3, 1) <> "/" Or Mid(UserForm1.TextBox6, 6, 1) <> "/" Then

Dim messaggio As String

messaggio = MsgBox("La data deve essere scritta nel seguente formato: gg/mm/aaaa", vbCritical, "ATTENZIONE")

UserForm1.TextBox6.SetFocus

UserForm1.TextBox6.SelStart = 0

UserForm1.TextBox6.SelLength = Len(UserForm1.TextBox6.Text)

ElseIf Mid(TextBox6, 3, 1) = "/" Or Mid(TextBox6, 6, 1) = "/" Then

Range("F4").Value = Format(UserForm1.TextBox6.Value, "mm/dd/yyyy")

End If

Anticipatamente ringrazio

Saluti

Giuseppe

Answer 1

Un esempio di corsa e già postato che permette di inserire solo testo e non numeri, riferito alla TextBox1:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    With Me.TextBox1

        If IsNumeric(.Text) Then

            MsgBox "Solo testo"

            Cancel = True

            .SelStart = 0

            .SelLength = Len(.Text)

            .SetFocus

        End If

    End With

End Sub

Se vuoi controllare il contenuto della TextBox in uscita dalla stessa (in pratica quando passi il focus ad altro oggetto) devi utilizzare l'evento Exit della TextBox e il parametro Cancel.

Nel tuo caso controllerai se l'utente ha inserito la data nel giusto formato.

Questo se ho capito.... ;-)

Answer 2

Bene!

Grazie come sempre per il cortese riscontro.

Ciao e  alla prossima.

Answer 3

Ah ah ah, sei un grande!!!!

quel Cancel mi ha salvato la vita.

Va benissimo, grazie come al solito.

Saluti

Giuseppe