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 Proprietà, E nel Proprietà 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 Modulo 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
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
