Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

click in una userfrom

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

click in una userfrom

Postdi trittico69 » 07/03/11 14:01

Questo è il codice assegnato a un pulsante per visualizzare una userfrom

Sub trova1()
If userform1.Visible = False Then userform1.Show False
End Sub

E questo è il funzionamento della userform

Dim ricerca As Range 'questo codice serve a creare il tasto cerca per non usare il binocolo e finisce a fine3
Private Sub CommandButton1_Click()
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
If ricerca Is Nothing Then
Set ricerca = archivio.Cells.Find(TextBox1.Text)
Else
Set ricerca = archivio.Cells.Find(TextBox1.Text, archivio.Cells(ricerca.Row, ricerca.Column))
End If
If ricerca Is Nothing Then Exit Sub
ricerca.Select
End Sub
Private Sub UserForm_initialize()
CommandButton1.Caption = "trova": CommandButton1.Accelerator = "T": CommandButton1.Default = True
userform1.Caption = "cerca"
End Sub 'fine3

Ha quasi la stessa funzione di “trova” , che excel ha di suo, con qualche personalizzazione…. volevo fare una modifica che mi permetta di trovarmi con il cursore nella finestra, appena compare la userfrom e quindi poter scrivere subito senza dover cliccare con i mouse nella zona in cui scrivere.
Chi mi aiuta?
Grazie!
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Sponsor
 

Re: click in una userfrom

Postdi Anthony47 » 07/03/11 23:42

Devi inserire una Private Sub UserForm_Activate(), al cui interno inserisci le istruzioni di SetFocus che ti interessano.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "click in una userfrom":


Chi c’è in linea

Visitano il forum: Zer0Kelvin e 19 ospiti