🚀 go-pugleaf

> "Alan1" [...]:
> ho creato un form da VisualBasic di
> Excel, per� non riesco a lanciarlo dal foglio dove lavoro.
[...]

    Ti proporrei di lasciar stare il tuo form, per ora, e di sperimentare la
procedura che ti descrivo nel seguito. Dopo aver verificato il tutto potrai
applicarla al tuo form.

    Apri Excel quindi:

    File > Nuovo > Generale: Cartella di lavoro [Ok]
    File > Salva con nome... > Nome file: TestUserForm [Salva]
    Strumenti > Macro > Visual Basic Editor
    Esegui > Modalita' progettazione
    Inserisci > UserForm
    Inserisci > Modulo
    Visualizza > Finestra proprieta'
    Visualizza > Gestione progetti

e, nella finestra "Gestione progetti" dovresti vedere qualcosa del genere:

    [-] VBAProject (TestUserForm.xls)
     |- Foglio1 (Foglio1)
     |- Modulo1
     |- ThisWorkbook
     |- UserForm1

Ora nella finestra "Gestione progetti" seleziona "VBAProject", quindi
seleziona la finestra "Proprieta'" ed assegna un nome al progetto:

    (Name) PTestUserForm

(dove "P" sta per "Progetto", ma questa e' una convenzione di scrittura e
non e' significativa ai fini del funzionamento.)

Nella finestra "Gestione progetti" seleziona "UserForm1", poi:

    Visualizza > Oggetto

Seleziona la finestra "Proprieta'" ed assegna un nome allo UserForm:

    (Name) FMyFirstUserForm

(come prima la "P", qui la "F" sta per "Form".)

Nella finestra "Gestione progetti" seleziona "Modulo1" quindi seleziona la
finestra "Proprieta'" ed assegna un nome al modulo:

    (Name) MMain

(come prima la "P" e la "F", qui la "M" sta per "Module". "Main", ossia
"principale", perche' questo sara' il nostro modulo principale, da noi
destinato a contenere le procedure richiamabili da excel. Anche questa e'
una convenzione: ci si puo' comportare benissimo in molti altri modi, se si
vuole...)

Ora:

    Visualizza > Codice

e copia nel modulo il codice seguente:

' *** INIZIO CODICE ***
Option Explicit

Public Sub TestMyFirstUserForm()
  On Error GoTo errh
  Dim frm As FMyFirstUserForm

  Set frm = New FMyFirstUserForm
  frm.Show vbModal

ext:
  Set frm = Nothing
  Exit Sub

errh:
  With Err
    MsgBox _
        "Errore " & .Number & vbCrLf _
      & .Description _
      , vbCritical + vbOKOnly _
      , "TestUserForm1"
  End With

End Sub
' *** FINE CODICE ***

poi:

    File > Salva TestUserForm.xls
    Degug > Compila PTestUserForm

e, se il compilatore non segnala errori, continua (altrimenti facci
conoscere il messaggio di errore):

    File > Salva TestUserForm.xls
    Esegui > Esci da modalita' progettazione
    File > Chiudi e torna a Microsoft Excel

Finalmente siamo pronti per il test:

    Strumenti > Macro > Macro... > Nome macro: TestMyFirstUserForm [Esegui]

Se tutto funziona non ci resta che decidere in quale modo "lanciare" la
macro "TestMyFirstUserForm": una voce di menu', un pulsante in una barra
degli strumenti incorporata o in una personalizzata, un pulsante sul foglio
di lavoro, una scelta rapida di tastiera, ... O tutte queste cose insieme.

--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------