evidenziare testo su textbox1

Hai un problema con Excel?

Nuova discussione

evidenziare testo su textbox1
di biss73 (utente non iscritto) data: 09/08/2015 13:01:09
Buon giorno,
un piccolo aiuto (come a sempre).
dovrei riuscire ad evidenziare un testo su una textbox all'apertura di una useform ma non riesco a risolvere.
Sul forum ho trovato una discussione simile ma sembra non funzionare
on sono esperto in vba.
posto il codice che ho trovato
Grazie

Private Sub CommandButton1_Click()
numero = Val(TextBox1.Text)
  piu (numero)
  TextBox1.Text = numero
  TextBox1.SelStart = 0
  TextBox1.SelLength = Len(TextBox1.Text)
  
  
End Sub

Function piu(numero)
totale = Val(TextBox1.Text) + numero
TextBox2.Text = totale
TextBox1.Text = " "
End Function

di Vecchio Frac data: 09/08/2015 17:22:38
Non sarò gentile: il codice è terribile e soffre di numerosi difetti.
Se è tuo sei perdonato ("non sono esperto di vba") però puoi migliorare ^_^
Se non è tuo, meglio che non impari da qui :P

Comunque per restare nel merito: sembra che nel form vivano due textbox, su quella che desideri attivare basta che imposti il focus; se è la prima, per esempio, devi scrivere "TextBox1.SetFocus" dopo aver impostato il punto di partenza e l'estensione della selezione.
di Biss73 (utente non iscritto) data: 10/08/2015 00:20:50
Gentilissimo come sempre per l'interesse
Come hai intuito il codice postato non è il mio ma pescato qui sul forum
Fino al textbox1.setfocus non ci sono problemi nemmeno per me ( inesperto e autodidatta ) quello che mi manca e selezionare il testo ( di 15 caratteri ) caricato all'apertura della form e inserire il nuovo
Una dritta??
Grazie ancora
di patel data: 10/08/2015 07:51:12
allega un file di esempio, sarà più facile testare il codice e suggerirti la soluzione
di Vecchio Frac data: 10/08/2015 10:04:05
cit. "Fino al textbox1.setfocus non ci sono problemi nemmeno per me"
--> Bene, inseriscilo nel codice al punto giusto.

cit. " quello che mi manca e selezionare il testo ( di 15 caratteri ) caricato all'apertura della form e inserire il nuovo"
--> Non hai mostrato il codice di apertura dell'userform quindi non ho idea di quale sia il testo cui ti riferisci. Però non ho capito cosa devi fare esattamente. Come dice patel prova ad allegare un esempio col risultato atteso.
di biss73 (utente non iscritto) data: 10/08/2015 15:38:21
Salve a tutti allego un file di esempio l'originale che sto sviluppando è un pochino più complesso
spero possa essere utile
grazie
di Vecchio Frac data: 10/08/2015 15:46:45
Bè, c'eri quasi :o)
Prima imposti il testo, poi ne imposti i punti di inizio e fine selezione, poi dai il focus.
Private Sub UserForm_Initialize() With TextBox1 .Text = "Inserisci la quantità" .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With End Sub
di Biss73 (utente non iscritto) data: 10/08/2015 23:34:27
Grazie come sempre
Purtroppo mi manca un po teoria in fatto di vba, però per fortuna esiste questo forum e soprattutto esistono persone disponibili e gentili come tutti voi
Mi permetto di spuntare come risolta ( anche se non sono stato io a farlo )
Vi auguro buone ferie ( per chi le fa )
di Vecchio Frac data: 11/08/2015 09:17:21
cit. "anche se non sono stato io a farlo"
---> Nemmeno io avevo segnato come risolta anche perchè aspettavo un tuo riscontro.

cit,. "soprattutto esistono persone disponibili e gentili come tutti voi"
---> LOL, avevo esordito appunto dicendo "Non sarò gentile" ^_^

Vuoi Approfondire?