Note: The other languages of the website are Google-translated. Back to English

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.

doc sposta gli elementi tra la casella di riepilogo 1 doc freccia destra doc sposta gli elementi tra la casella di riepilogo 2

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.
doc sposta gli elementi tra la casella di riepilogo 3

2. Quindi selezionare questi dati e andare al Nome casella per dare loro un nome Elenco articoli. Vedi screenshot:
doc sposta gli elementi tra la casella di riepilogo 4

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:

doc sposta gli elementi tra la casella di riepilogo 5 doc freccia destra doc sposta gli elementi tra la casella di riepilogo 6

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:

doc sposta gli elementi tra la casella di riepilogo 7 doc freccia destra doc sposta gli elementi tra la casella di riepilogo 8

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:
doc sposta gli elementi tra la casella di riepilogo 9

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

doc sposta gli elementi tra la casella di riepilogo 10 doc sposta gli elementi tra la casella di riepilogo 11 doc sposta gli elementi tra la casella di riepilogo 12

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:
doc sposta gli elementi tra la casella di riepilogo 13

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

 doc sposta gli elementi tra la casella di riepilogo 14

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.
doc sposta gli elementi tra la casella di riepilogo 15

Sposta la selezione

doc sposta gli elementi tra la casella di riepilogo 16 doc freccia destra doc sposta gli elementi tra la casella di riepilogo 17

Sposta tutto

doc sposta gli elementi tra la casella di riepilogo 18 doc freccia destra doc sposta gli elementi tra la casella di riepilogo 19

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 kte 201905

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!
fondo officetab
Commenti (1)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Il mio excel non risponde dopo aver eseguito questo codice. Quale potrebbe essere il problema?
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL