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, come mostrato nello screenshot sottostante? Qui parlerò di questa operazione in Excel.

Sposta elementi tra caselle di riepilogo

Sposta elementi tra caselle di riepilogo

Non esiste una funzione incorporata che possa aiutarti a completare il lavoro, ma ho un codice VBA che può fare al caso tuo.

1. Innanzitutto, devi creare un elenco di dati che verrà visualizzato come elementi nelle caselle di riepilogo in un nuovo foglio di lavoro chiamato Admin_Lists.

2. Quindi seleziona questi dati e vai alla casella Nome per assegnargli un nome : ItemList. Vedi screenshot:

3. Poi, in un foglio che conterrà le due caselle di riepilogo, clicca su Sviluppatore > Inserisci > Casella di riepilogo (Controllo ActiveX) e disegna due caselle di riepilogo. Vedi screenshot:

Se la scheda Sviluppatore è nascosta nella barra multifunzione, Come mostrare/visualizzare la scheda Sviluppatore nella barra multifunzione di Excel 2007/2010/2013? Questo articolo ti spiegherà come mostrarla.

4. Quindi fai clic su Sviluppatore > Inserisci > Pulsante di comando (Controllo ActiveX) e disegna quattro pulsanti tra le due caselle di riepilogo. Vedi screenshot:

Ora rinomina i quattro pulsanti di comando con nuovi nomi.

5. Seleziona il primo pulsante di comando, fai clic su Proprietà, e nel riquadro Proprietà, dagli il nome BTN_moveAllRight, e digita >> nella casella di testo accanto a Didascalia. Vedi screenshot:

6. Ripeti il passaggio 5 per rinominare gli ultimi tre pulsanti di comando con i nomi seguenti e digita anche frecce diverse nelle didascalie. Vedi screenshot:

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 di comando, e seleziona Visualizza codice dal menu contestuale. Vedi screenshot:

8. Copia e incolla il seguente codice macro nello script Modulo, quindi salva il codice e chiudi la finestra Microsoft Visual Basic for Applications. Vedi screenshot:

VBA: Sposta 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 a un altro foglio, poi torna al foglio che contiene le caselle di riepilogo; ora puoi vedere che i dati dell'elenco sono stati inseriti nella prima casella di riepilogo. Clicca sui pulsanti di comando per spostare gli elementi tra le due caselle di riepilogo.

Sposta selezione

Sposta tutto