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 Sviluppatore > inserire > Casella di riepilogo (controllo Active X)e traccia due caselle di riepilogo. Vedi screenshot:

Se l' Sviluppatore 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 Sviluppatore > 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