Creazione Userform su file excel già esistente e strutturato con diverse macro

Question

Buongiorno a tutti.

Sono praticamente inesperto sulla creazione di userform.

Chiedo gentilmente una mano per creare sul mio file excel già strutturato con diverse macro una userform ad hoc.

Se mi spiegate come fare allego volentieri sia il file excel e sia un esempio della struttura della userform che mi servirebbe.

Ultima cosa: la userform dovrebbe partira all'apertura del file excel.

Grazie mille in anticipo a tutti.

Massimo

Answer 1

Ciao Massimo,

Sostituisci

 Private Sub UserForm_Initialize()

Dim rng As Excel.Range

con:

Private Sub UserForm_Initialize()

    Dim rng As Excel.Range

    Call deleteCaption(Me)

Se non riesci ancora di integrare il mio codice, carica un file di esempio che include la userform - i dati hanno poca importanza e possono essere cancellati - e posta un link al file qui.

===

Regards,

Norman

Answer 2

Ciao Massimo,

no, il metodo Quit non prevede argomenti. Te ne puoi accorgere da solo se, quando digiti l'istruzione, arrivato a scrivere Application.Quit<spazio> non compaiono argomenti. Invece quando scrivi ThisWorkbook.Close<spazio> appare il suggerimento: Close([SaveChanges], [Filename], [RouteWorkbook]) a indicare che gli argomenti possibili di quel metodo sono tre e tutti facoltativi (perché racchiusi in parentesi quadra).

Quindi potresti scrivere:

Private Sub cmdClose_Click()

    ThisWorkbook.Close SaveChanges:=True

    Application.Quit

End Sub

In questo modo chiudi, salvando, la Cartella di lavoro nel cui Progetto VBA sta lo UserForm in cui viene eseguito quel codice e esci da Excel; così se ci sono altre Cartelle di lavoro aperte e non salvate ti viene proposto il solito messaggio: [Salva] [Non salvare] [Annulla].

Però, però... Non va mica bene fare così. È come se allo UserForm gli togliessimo la sedia mentre sta per sedersi.

Meglio fare così:

• Aggiungi la variabile booleana a livello di modulo mblnQuitOnClose. Ovvero la scrivi subito dopo la lista delle costanti a livello di modulo:

Private Const mcstrColDat As String = "H"

Private mblnQuitOnClose   As Boolean

• Nella routine-evento del pulsante cmdQuit scrivi:

Private Sub cmdQuit_Click()

    mblnQuitOnClose = True

    Unload Me

End Sub

• E, per finire, la routine-evento che viene eseguita per ultima allo scaricamento dello UserForm:

Private Sub UserForm_Terminate()

    If mblnQuitOnClose Then

      With ThisWorkbook

        If Not .Saved Then .Save

        .Application.Quit

      End With

    End If

End Sub

Answer 3

http://www.4shared.com/file/GA1gd1L9ba/Pianificazione_Installazioni_.html

ecco il link per scaricare il file excel.

Answer 4

I campi editabili sono i 7 elencati con le specifiche di inserimento, il tasto 'chiudi' dovrà chiudere la userform senza aggiornare nulla, mentre il tasto 'inserisci' dovrà aggiornare le celle del file xls partendo dalla riga 5 ma popolando la prima riga libera (es. se ho già le celle compilate sulla riga 5 un nuovo inserimento tramite la userform mi andrà a scrivere sulle celle della riga 6).

Una piccola specifica: le combo sono delle scelte ad elenco a tendina e mi piacerebbe che i campi che ho segnato nel disegno replicassero i dati esatti delle combo presenti nelle celle.

Sono a disposizione per ogni chiarimento.

Grazie mille!

Massimo

Answer 5

Ciao pedmas,

la cosa migliore sarebbe un disegnino della userform che vuoi ottenere, indicando da dove deve prendere, e come mostrarli all'utente, eventuali valori iniziali e cosa deve succedere a seguito degli eventi scatenati dai controlli presenti in essa.

I "controlli" sono di diversi tipi; i principali/indispensabili sono caselle di testo (TextBox) e pulsanti di comando (CommandButton).

Gli "eventi" sono routine predefinite presenti nel modulo dell'userform nelle quali scrivere il codice.

Quanto a farla partire all'apertura del file... è il meno e si può vedere quando la userform ci sarà. Comunque in estrema sintesi si tratta di scrivere l'istruzione che la lancia nella routine-evento Open del modulo della cartella di lavoro (ThisWorkbook). Più o meno così (ma i modi sono diversi altri):