Come spostare rapidamente gli elementi tra due caselle di riepilogo in Excel?
Hai mai provato a spostare gli elementi da una casella di riepilogo a un'altra casella di riepilogo di cui hai bisogno come mostrato nell'immagine sottostante? Qui parlerò di questa operazione in Excel.
 |
 |
 |
Spostare gli elementi tra le caselle di riepilogo
Spostare gli elementi tra le caselle di riepilogo
Non esiste una funzione incorporata che possa aiutarti a completare il lavoro, ma ho un codice VBA che può fare un favore.
1. Innanzitutto, è necessario creare un elenco di dati che verranno visualizzati come elementi nelle caselle di riepilogo in un nuovo foglio che ha chiamato Liste_amministratore.
2. Quindi selezionare questi dati e andare al Nome casella per dare loro un nome Elenco articoli. Vedi screenshot:
3. Quindi in un foglio che conterrà le due caselle di riepilogo, fare clic su Costruttori > inserire > Casella di riepilogo (controllo Active X)e traccia due caselle di riepilogo. Vedi screenshot:
 |
|
 |
Se l' Costruttori scheda è nascosta il tuo nastro, Come mostrare / visualizzare la scheda sviluppatore nella barra multifunzione di Excel 2007/2010/2013? questo articolo ti dirà come mostrarlo.
4. Quindi fare clic Costruttori > inserire > Pulsante di comando (controllo Active X)e disegnare quattro pulsanti tra due caselle di riepilogo. Vedi screenshot:
 |
|
 |
Ora per rinominare i quattro pulsanti di comando con nuovi nomi.
5. Selezionare il primo pulsante di comando, fare clic su Properties, E nel Properties riquadro, dai un nome BTN_moveAllRight ad esso e digita >> nella casella di testo accanto Didascalia. Vedi screenshot:
6. Ripetere il passaggio 5 per rinominare gli ultimi tre pulsanti di comando con i nomi sottostanti e inoltre digitare la freccia diversa nelle didascalie. Vedi screenshot:
BTN_MoveSelectedRight
BTN_moveAllLeft
BTN_MoveSelectedLeft
 |
 |
 |
7. Fare clic con il pulsante destro del mouse sul nome del foglio che contiene le caselle di riepilogo ei pulsanti di comando e selezionare Visualizza codice dal menu contestuale. Vedi screenshot:
8. Copiare e incollare sotto il codice macro nel file Moduli quindi salva il codice e chiudi il file Microsoft Visual Basic, Applications Edition finestra. Vedi screenshot
VBA: sposta gli 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. Quindi vai su un altro foglio, quindi torna al foglio che contiene le caselle di riepilogo, ora puoi vedere i dati dell'elenco che sono stati elencati nella prima casella di riepilogo. E fare clic sui pulsanti di comando per spostare gli elementi tra due caselle di riepilogo.
Sposta la selezione
 |
|
 |
Sposta tutto
 |
|
 |
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
