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!