Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo mover rápidamente elementos entre dos cuadros de lista en Excel?

¿Alguna vez ha intentado mover los elementos de un cuadro de lista a otro cuadros de lista como lo necesita, como se muestra a continuación? Aquí hablaré sobre esta operación en Excel.

doc mover elementos entre el cuadro de lista 1 doc arrow derecha doc mover elementos entre el cuadro de lista 2

Mover elementos entre cuadros de lista


Mover elementos entre cuadros de lista


No hay una función incorporada que pueda ayudarte a terminar el trabajo, pero tengo un código VBA que te puede hacer un favor.

1. En primer lugar, debe crear una lista de datos que se mostrarán como los elementos en cuadros de lista en una nueva hoja que llamó Admin_Lists.
doc mover elementos entre el cuadro de lista 3

2. A continuación, seleccione estos datos y vaya a Nombre caja para darles un nombre Lista de articulos. Ver captura de pantalla:
doc mover elementos entre el cuadro de lista 4

3. Luego, en una hoja que contendrá los dos cuadros de lista, haga clic en Desarrollador > recuadro > Cuadro de lista (Active X Control)y dibuja dos cuadros de lista. Ver captura de pantalla:

doc mover elementos entre el cuadro de lista 5 doc arrow derecha doc mover elementos entre el cuadro de lista 6

Si la línea Desarrollador pestaña oculta su cinta, ¿Cómo mostrar / mostrar la pestaña del desarrollador en Excel 2007 / 2010 / 2013 Ribbon? este artículo te dirá cómo mostrarlo.

4. Luego haga clic Desarrollador > recuadro > Botón de comando (Active X Control)y dibuja cuatro botones entre dos cuadros de lista. Ver captura de pantalla:

doc mover elementos entre el cuadro de lista 7 doc arrow derecha doc mover elementos entre el cuadro de lista 8

Ahora para cambiar el nombre de los cuatro botones de comando con nuevos nombres.

5. Seleccione el primer botón de comando, haga clic Propiedades, Y en el Propiedades panel, dar un nombre BTN_moveAllRight a él, y escriba >> en el cuadro de texto al lado Subtítulo. Ver captura de pantalla:
doc mover elementos entre el cuadro de lista 9

6. Repita el paso 5 para cambiar el nombre del último botón de comando con los nombres siguientes, y también escriba la flecha diferente en los títulos. Ver captura de pantalla:

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_MoveSelectedLeft

doc mover elementos entre el cuadro de lista 10 doc mover elementos entre el cuadro de lista 11 doc mover elementos entre el cuadro de lista 12

7. Haga clic con el botón derecho en el nombre de la hoja que contiene los cuadros de lista y los botones de comando, y seleccione Ver código desde el menú contextual. Ver captura de pantalla:
doc mover elementos entre el cuadro de lista 13

8. Copie y pegue el código de macro debajo del Módulo secuencia de comandos luego guarde el código y cierre el Microsoft Visual Basic para aplicaciones ventana. Ver captura de pantalla

VBA: mover elementos entre dos cuadros de lista

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 mover elementos entre el cuadro de lista 14

9. Luego vaya a otra hoja y luego vuelva a la hoja que contiene los cuadros de lista, ahora puede ver que la lista de datos ha sido lista en el primer cuadro de lista. Y haga clic en los botones de comando para mover los elementos entre dos cuadros de lista.
doc mover elementos entre el cuadro de lista 15

Mover selección

doc mover elementos entre el cuadro de lista 16 doc arrow derecha doc mover elementos entre el cuadro de lista 17

Mueve todo

doc mover elementos entre el cuadro de lista 18 doc arrow derecha doc mover elementos entre el cuadro de lista 19

Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Pius · 9 months ago
    My excel becomes unresponsive after running this code. what could be the problem?