Contenuto

• indicazioni
• Cosa ti serve

L'utilizzo di un controllo ListView con caselle di controllo su un modulo VBA può rendere un'applicazione più dinamica fornendo opzioni all'utente. Un ListView mostra gli elementi utilizzando una delle quattro diverse viste e li dispone in colonne con o senza intestazioni di Microsoft Excel. Utilizzare la proprietà "ListItems.Add" per aggiungere elementi e "Controllato" per determinare quali elementi sono stati selezionati dall'utente.

indicazioni

Compilare il controllo ListView in Excel utilizzando VBA (Hemera Technologies / Photos.com / Getty Images)

1. Aprire Microsoft Excel, fare clic sulla scheda "Sviluppatore" e quindi su "Visual Basic" per aprire la finestra dell'editor VBA. Fare clic sul menu "Inserisci" e quindi su "Form utente" (modulo utente) per creare un nuovo modulo. Fare clic su "Strumenti", "Controlli aggiuntivi" e selezionare la casella accanto a "Controllo Microsoft ListView" (controllo Microsoft ListView) per aggiungere un nuovo controllo "ListView" al modulo.

2. Fare clic con il tasto destro sul controllo "ListView" e quindi su "Proprietà". Scorri verso il basso la finestra e scegli "True" accanto all'opzione "Checkboxes". Fai clic su "CommandButton" nel riquadro "Toolbox" e quindi sul modulo per aggiungere un nuovo pulsante. Aggiungi un secondo pulsante usando gli stessi passaggi.

   
   

3. Fare doppio clic su "CommandButton1" per creare un nuovo evento per quel pulsante. Aggiungi il seguente codice al popolare "ListBox" con tre elementi:

   Me.ListView1.ListItems.Add (1) = "Controlla elemento 1" Me.ListView1.ListItems.Add (2) = "Controlla elemento 2" Me.ListView1.ListItems.Add (3) = "Controlla elemento 3"

4. Torna al modulo e fai doppio clic su "CommandButton2" per creare un nuovo evento click per quel pulsante. Aggiungere il seguente codice per passare attraverso gli elementi "ListBox" e visualizzare gli elementi selezionati nella finestra "Immediata":

   For counter = 1 To Me.ListView1.ListItems.Count If Me.ListView1.ListItems.Item (counter) .Checked Then Debug.Print Me.ListView1.ListItems.Item (counter) .Text End If Next

5. Torna al modulo e fai clic su "F5" per eseguire il programma. Quindi fare clic su "CommandButton1" per popolare il controllo "ListView" e quindi "CommandButton2" per mostrare gli elementi selezionati.

   
   

Cosa ti serve

• Microsoft Excel