|
|
Giorno a tuttiesiste la possibilità di lanciare una userform all'apertura del file?Grazie
Metti questo nel modulo di codice di ThisWorkbook:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
Cambia eventualmente il nome della UserForm con il nome della tua. Il file deve essere in formato .xlsm o .xls.
C'è qualcuno che può aiutarmi?
Riproviamo.
Questo nel modulo di codice della UserForm1:
Private Sub CommandButton1_Click()
UserForm1.Hide
UserForm2.Show vbModeless
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
UserForm3.Show vbModeless
End Sub
Questo nei moduli di codice delle UserForm2 e UserForm3:
Private Sub UserForm_Terminate()
UserForm1.Show vbModeless
End Sub
Questo nel modulo di codice di ThisWorkbook:
Private Sub Workbook_Open()
UserForm1.Show vbModeless
End Sub
Vedi qui il file utilizzato per l'esempio: http://www.maurogsc.eu/esempiforum12/treuserform_1201.zip
Giorno a tuttiesiste la possibilità di lanciare una userform all'apertura del file?Grazie
Metti questo nel modulo di codice di ThisWorkbook:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
Cambia eventualmente il nome della UserForm con il nome della tua. Il file deve essere in formato .xlsm o .xls.
Grazie mille Mauro.Domandona:esiste la possibilità di rendere visibile solo la userform attiva?Nel mio file ho 3 userformIn quella che "apro all'apertura" del file ho 2 bottoni di comando che a loro volta mi aprono altre 2 userform.
Nel momento in cui io clicco su uno di questi comandi, si può "far sparire" la prima userform e poi farla "ricomparire" quando chiudo la seconda?Grazie
Si può fare quasi tutto.
Questo, ad esempio, inserito nel modulo di UserForm2, chiude la UserForm1 e quando chiudi UserForm2, riapre la UserForm1:
Private Sub UserForm_Initialize()
Unload UserForm1
End Sub
Private Sub UserForm_Terminate()
UserForm1.Show
End Sub
Lo stesso codice puoi inserirlo uguale anche nel modulo di UserForm3.
Scusa Mauro ma non riesco a capire dove inserirlo
Questo codice:
Private Sub UserForm_Initialize()
Unload UserForm1
End Sub
Private Sub UserForm_Terminate()
UserForm1.Show
End Sub
Va inserito nei moduli di codice delle UserForm2 e UserForm3.
Il codice per i pulsanti di UserForm1 è:
Private Sub CommandButton1_Click()
UserForm2.Show
End Sub
Private Sub CommandButton2_Click()
UserForm3.Show
End Sub
C'è qualcuno che può aiutarmi?
Riproviamo.
Questo nel modulo di codice della UserForm1:
Private Sub CommandButton1_Click()
UserForm1.Hide
UserForm2.Show vbModeless
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
UserForm3.Show vbModeless
End Sub
Questo nei moduli di codice delle UserForm2 e UserForm3:
Private Sub UserForm_Terminate()
UserForm1.Show vbModeless
End Sub
Questo nel modulo di codice di ThisWorkbook:
Private Sub Workbook_Open()
UserForm1.Show vbModeless
End Sub
Vedi qui il file utilizzato per l'esempio: http://www.maurogsc.eu/esempiforum12/treuserform_1201.zip
Ok. grazie mille dopo un po' di prove ci sono riuscito.
Ciao
Immetti l'ID thread del thread in cui si esegue l'unione
Per segnalare un abuso, accedi o continua senza accedere
Grazie.
|
|
|
|
Non possiedi uno di questi account?