Ciao Cristian,
Sono Ibhadighi e sarei felice di aiutarti con la tua domanda. In questo forum, siamo consumatori Microsoft proprio come te.
Certo, sarei felice di aiutarti con questo esercizio! Ecco i passaggi che puoi seguire per creare un pulsante "Gestisci dati" e un modulo per inserire e gestire i dati in un foglio Excel:
Apri il foglio Excel in cui desideri aggiungere il pulsante "Gestisci dati".
Vai alla scheda "Sviluppatore" nella barra multifunzione. Se non vedi la scheda "Sviluppatore", puoi abilitarla andando su "File" > "Opzioni" > "Personalizza barra multifunzione" e selezionando la casella "Sviluppatore" nell'elenco delle schede.
Nel gruppo "Controlli", fare clic sul pulsante "Inserisci" e selezionare l'opzione "Pulsante (controllo modulo)".
Fare clic sul foglio in cui si desidera posizionare il pulsante e trascinare per creare il pulsante.
Fare clic con il pulsante destro del mouse sul pulsante e selezionare "Modifica testo" per modificare il testo sul pulsante in "Gestisci dati".
Fare nuovamente clic con il pulsante destro del mouse sul pulsante e selezionare "Assegna macro".
Nella finestra di dialogo "Assegna macro", selezionare "Nuovo" per creare una nuova macro.
Nell'editor di Visual Basic, è possibile scrivere codice per la macro che verrà eseguita quando l'utente fa clic sul pulsante "Gestisci dati". Questo codice deve creare un form utente in cui l'utente può immettere e gestire i dati.
Di seguito è riportato un esempio di come potrebbe apparire il codice per la creazione di un form utente:
Sub ManageData()
Create a new UserForm
Dim frm As UserForm
Set frm = Nuovo Modulo Utente
Set properties of the UserForm
frm. Caption = "Gestisci dati"
frm. Larghezza = 400
frm. Altezza = 300
Add controls to the UserForm
Dim lbl As MSForms.Label
Set lbl = frm. Controls.Add("Forms.Label.1")
Lbl. Didascalia = "Nome:"
Lbl. Sinistra = 10
Lbl. Superiore = 10
Dim txt As MSForms.TextBox
Imposta txt = frm. Controls.Add("Forms.TextBox.1")
.txt. Sinistra = 80
.txt. Superiore = 10
.txt. Larghezza = 200
' ... aggiungere altri controlli per altri campi ...
' Aggiungi OK pulsante
Dim btnOK come MSForms.CommandButton
Impostare btnOK = frm. Controls.Add("Forms.CommandButton.1")
btnOK.Caption = "OK"
btnOK.Left = 10
btnOK.Top = 250
btnOK.Width = 80
' Aggiungi aggiornamento pulsante
Dim btnUpdate As MSForms.CommandButton
Imposta btnUpdate = frm. Controls.Add("Forms.CommandButton.1")
btnUpdate.Caption = "Aggiorna"
btnUpdate.Left = 100
btnUpdate.Top = 250
btnUpdate.Width = 80
' Add Filter Sector button
Dim btnFilterSector As MSForms.CommandButton
Impostare btnFilterSector = frm. Controls.Add("Forms.CommandButton.1")
btnFilterSector.Caption = "Settore filtro"
btnFilterSector.Left = 190
btnFilterSector.Top = 250
btnFilterSector.Width = 80
' Aggiungi pulsante Annulla
Dim btnCancel As MSForms.CommandButton
Imposta btnCancel = frm. Controls.Add("Forms.CommandButton.1")
btnCancel.Caption = "Annulla"
btnCancel.Left = 280
Fateci sapere se avete bisogno di ulteriore aiuto.
Migliori saluti
IBHADIGHI
Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.