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

Anonimo

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

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

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

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

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

0 commenti

60 risposte aggiuntive

Anonimo

2015-05-12T16:30:49+00:00

Ciao Massimo,

visto che hai confermato la questione dell'area dati con limite inferiore questa modifica potrebbe essere opportuna:

' Module: UserForm2

'

Option Explicit

Private Const mcstrFoglio As String = "Foglio1"

Private Const mcstrStart As String = "A4"

Private Const mcstrStop   As String = "A81"

Private Const mcstrColST_ As String = "A"

Private Const mcstrColOgg As String = "B"

Private Const mcstrColRFR As String = "C"

Private Const mcstrColOwn As String = "D"

Private Const mcstrColApp As String = "E"

Private Const mcstrColAmb As String = "G"

Private Const mcstrColDat As String = "H"

Private Sub cmdInserisci_Click()

On Error GoTo ExtP

Dim wbk As Excel.Workbook

Dim wsh As Excel.Worksheet

Dim r   As Long

    Set wbk = Excel.Application.ThisWorkbook

    Set wsh = wbk.Worksheets(mcstrFoglio)

    With wsh

      r = .Range(mcstrStop).End(xlUp).Row + 1

If r = .Range(mcstrStart).Row Then

MsgBox "L'area dati è piena.", _

vbOKOnly Or vbExclamation, _

"Inserisci"

      Else

        .Range(mcstrColST_ & r).Value = Me.txtST.Value

        .Range(mcstrColOgg & r).Value = Me.txtoggetto.Value

        .Range(mcstrColRFR & r).Value = Me.txtRFR.Value

        .Range(mcstrColOwn & r).Value = Me.cboowner.Value

        .Range(mcstrColApp & r).Value = Me.cboapplicativo.Value

        .Range(mcstrColAmb & r).Value = Me.cboambiente.Value

        .Range(mcstrColDat & r).Value = Me.cbodata.Value

      End If

    End With

ExtP:

    With Err

      If .Number Then MsgBox .Description, _

                             vbOKOnly Or vbCritical, _

                             "ERRORE#" & .Number

    End With

    On Error Resume Next

    Set wsh = Nothing

    Set wbk = Nothing

End Sub
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-05-12T16:19:35+00:00

RISOLTO DA SOLO.

Un'ultima cosa: al codice della userform2 che mi hai dato si potrebbe integrare questa cosa che provo a spiegarti...

Io apro il foglio excel e adesso mi si propone la userform.

Compilo i miei dati, clicco su INSERISCI e mi inserisce i dati nella prima riga libera nelle celle prestabilite.

Fino a qui tutto ok.

Si potrebbe fare in modo che una volta che clicco su INSERISCI, contestualmente all'inserimento dei dati mi esca una finestra dove mi dice: "dati inseriti" "vuoi inserire altri dati?"

con due opzioni:

SI - allora mi azzera i campi e mi fa inserire dei nuovi dati

NO - mi chiude proprio il file excel salvandolo in automatico.

So che chiedo magari tanto ma così sarebbe perfetto!

Grazie comunque per tutto quello fatto finora.

Fammi sapere.

Grazie.

Massimo
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-05-12T16:19:03+00:00
Ciao Massimo,

puoi verificarlo tu stesso così:
- Selezioni la cella A4 poi vedi, premendo ripetutamente la combinazione di tasti CTRL+FRECCIA GIÙ, in quali celle si ferma. Se fossero tutte pulite dovrebbe arrivare alla riga 82, invece si sposta a blocchi.
Io ho selezionato A5:A81 e ho premuto il tasto CANC (DEL) e mi sembra che così sia andato a posto.
La risposta è stata utile?

0 commenti Nessun commento