Come spostare rapidamente elementi tra due caselle di riepilogo in Excel?
Hai mai provato a spostare elementi da una casella di riepilogo a un’altra, come nell’immagine seguente? In questo articolo ti mostrerò come farlo in Excel.
 |  |  |
Spostare elementi tra caselle di riepilogo
Spostare elementi tra caselle di riepilogo
Non esiste una funzione integrata per completare questa attività, ma ho un codice VBA che potrebbe esserti utile.
1. Innanzitutto, crea un elenco di dati che verrà visualizzato come elementi nelle caselle di riepilogo, in un nuovo foglio denominato Admin_Lists.
2. Seleziona quindi questi dati e vai alla casella Nome per assegnare loro il nome ItemList. Vedi immagine:
3. Quindi, in un foglio che conterrà le due caselle di riepilogo, fai clic su Sviluppo > Inserisci > Casella di riepilogo (controllo ActiveX) e disegna due caselle di riepilogo. Vedi immagine:
 | |  |
Se la scheda Sviluppo è nascosta nella tua versione della Barra multifunzione, Come mostrare/visualizzare la scheda Sviluppo in Excel 2007/2010/2013 Barra multifunzione? questo articolo ti spiegherà come renderla visibile.
4. Fai quindi clic su Sviluppo > Inserisci > Pulsante comando (controllo ActiveX) e disegna quattro pulsanti tra le due caselle di riepilogo. Vedi immagine:
 | |  |
Ora rinomina i quattro pulsanti di comando con il nuovo nome.
5. Seleziona il primo pulsante di comando, fai clic su Proprietà e, nel riquadro Proprietà, assegnagli il nome BTN_moveAllRight e digita >> nella casella di testo accanto a Didascalia. Vedi immagine:
6. Ripeti il passaggio 5 per rinominare gli ultimi tre pulsanti di comando con i nomi indicati di seguito e inserisci frecce diverse nelle didascalie. Vedi immagine:
BTN_MoveSelectedRight
BTN_moveAllLeft
BTN_MoveSelectedLeft
 |  |  |
7. Fai clic con il tasto destro sul nome del foglio che contiene le caselle di riepilogo e i pulsanti comando, quindi seleziona Visualizza codice dal menu contestuale. Vedi immagine:
8. Copia e incolla il seguente codice macro nello script del modulo, salva il codice e chiudi la finestra di Microsoft Visual Basic, Applications. Vedi immagine
VBA: Spostare elementi tra due caselle di riepilogo
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20171117
Dim xCell As Range
Dim xRg As Range
Set xRg = Sheets("Admin_Lists").Range("ItemList")
Me.ListBox1.Clear
Me.ListBox2.Clear
With Me.ListBox1
.LinkedCell = ""
.ListFillRange = ""
For Each xCell In xRg
If xCell <> "" Then
.AddItem xCell.Value
End If
Next xCell
End With
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub BTN_MoveSelectedLeft_Click()
Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_MoveSelectedRight_Click()
Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub
Private Sub BTN_moveAllLeft_Click()
Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_moveAllRight_Click()
Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub
Sub moveAll(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
xListBox2.AddItem xListBox1.List(I)
Next I
xListBox1.Clear
End Sub
Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
If I = xListBox1.ListCount Then Exit Sub
If xListBox1.Selected(I) = True Then
xListBox2.AddItem xListBox1.List(I)
xListBox1.RemoveItem I
I = I - 1
End If
Next
End Sub
9. Passa quindi a un altro foglio e torna a quello contenente le caselle di riepilogo: vedrai che i dati dell’elenco sono già stati caricati nella prima casella. Clicca sui pulsanti per spostare gli elementi tra le due caselle.
Sposta selezione
 | |  |
Sposta tutto
 | |  |
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi