Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

vba excel: attivare userform

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

vba excel: attivare userform

Postdi karug64 » 04/03/14 18:58

Salve a tutti.
Nell'evento Workbook_Open() ho inserito queste istruzioni per aprire tre file xls e lanciare una form

Codice: Seleziona tutto
xlstab = "tabulato.xls"
xlsdata = "database.xls"
xlsprog = "cc.xls"

    Set w_data = Workbooks.Open(Application.ActiveWorkbook.Path & "\" & xlsdata)
    w_data.Activate
    ActiveWindow.WindowState = xlMinimized
   
    Set w_tab = Workbooks.Open(Application.ActiveWorkbook.Path & "\" & xlstab)
    w_tab.Activate
    ActiveWindow.WindowState = xlMinimized
       
    Workbooks(xlsprog).Activate
    ActiveWindow.WindowState = xlMinimized

    UserForm1.Show 1


in un pulsante del form nascondo il form e massimizzo il file "tabulato.xls"

Codice: Seleziona tutto
UserForm1.Hide
    Windows("Tabulato.xls").Activate
    WindowState = xlMaximized


sul foglio "elaborato" del file "tabulato.xls" ho messo un pulsante con cui vorrei minimizzare il foglio "tabulato.xls" far riapparire il form1.

Ho provato ad inserire questo codice

Codice: Seleziona tutto
Private Sub CommandButton1_Click()
    Windows("cc.xls").Activate
    Windows("cc.xls").userform1.Show
End Sub


ma ottengo errore sulla linea
Codice: Seleziona tutto
Windows("cc.xls").userform1.Show
proprietà o metodo non supportati dall'oggetto

Potreste aiutarmi ? Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Sponsor
 

Re: vba excel: attivare userform

Postdi Zer0Kelvin » 04/03/14 20:09

Ciao.
Prova a fare così: nel file cc.xls inserisci
Codice: Seleziona tutto
Public Sub showform()
UserForm1.Show
End Sub
e nel file tabulato.xls inserisci
Codice: Seleziona tutto
Application.Run ("cc!showform")
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 305
Iscritto il: 08/04/12 11:23

Re: vba excel: attivare userform

Postdi karug64 » 04/03/14 23:31

Zer0Kelvin ha scritto:Ciao.
Prova a fare così: nel file cc.xls inserisci
Codice: Seleziona tutto
Public Sub showform()
UserForm1.Show
End Sub


questo codice dove lo inserisco ? L'ho inserito in thisworkbook: va bene ?

e nel file tabulato.xls inserisci
Codice: Seleziona tutto
Application.Run ("cc!showform")


pero' quando clicco sul pulsante del foglio tabulato mi da errore perche' cerca il file cc.xlsx ma il file è cc.xls ...
Rimedi ?
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vba excel: attivare userform

Postdi Zer0Kelvin » 05/03/14 00:05

prova con
Codice: Seleziona tutto
Application.Run ("cc.xls!showform")


Codice: Seleziona tutto
Public Sub showform()
    UserForm1.Show
    End Sub

questo codice dove lo inserisco ? L'ho inserito in thisworkbook: va bene ?

Assolutamente no! devi inserirlo in un modulo standard.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 305
Iscritto il: 08/04/12 11:23

Re: vba excel: attivare userform

Postdi karug64 » 05/03/14 00:47

Avevo provato con cc.xls, ma mi dava errore molto probabilmente dovuto a dove avevo "sistemato" il codice.
Ora funziona. Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22


Torna a Applicazioni Office Windows


Topic correlati a "vba excel: attivare userform":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti

cron