. Hola! Consideremos la siguiente situación: O sea: - Tenemos 50000 filas de datos; - Queremos llenar un combo/listbox con la información de dos columnas discontinuas; - Queremos interponer entre esas columnas (por razones estéticas) sendos símbolos "|". Voy a mostrar dos métodos para hacerlo: Método1 y Método2. Ambos harán lo mismo, por supuesto, pero el segundo método resultará de entre 100 a 120 veces más veloz. ___________________________________ Método 1 Es el método "clásico". Está basado en un AddItem y tantos List como columnas sean necesarias completar a partir de la segunda columna del list/combo. Es el más utilizado, el que menos líneas de programación requiere y -naturalmente- el menos eficiente. Private Sub UserForm_Initialize() Dim qRow&, i& qRow = 50000 With ListBox1 .ColumnCount = 3 .ColumnWidths = "50;10;50" For i = 1 To qRow .AddItem Cells(i + 1, "a") .List(i - 1, 1) = "|" .List(i - 1, 2) = Cells(1 + i, "d") Next End With End Sub Este método es ineficiente porque -por cada fila de datos- VBA está accediendo -de modo independiente- a dos celdas: .AddItem Cells(i + 1, "a") .List(i - 1, 2) = Cells(1 + i, "d") Para 50000 filas de datos, entonces, VBA habrá accedido 100000 veces a Excel y ello es lo que hace tan ineficiente al método. ___________________________________ Método 2 La gran diferencia entre este método y el anterior es que VBA accede a Excel una sóla vez: Entrada = Range("a2").Resize(qRow, 4) Veámoslo en detalle: Private Sub UserForm_Initialize() Dim qRow&, i&, Entrada qRow = 50000 Entrada = Range("a2").Resize(qRow, 4) ReDim Salida(1 To qRow, 1 To 3) With ListBox1 .ColumnCount = 3 .ColumnWidths = "50;10;50" For i = 1 To qRow Salida(i, 1) = Entrada(i, 1) Salida(i, 2) = "|" Salida(i, 3) = Entrada(i, 4) Next .List = Salida End With End Sub Vemos: - La matriz auxiliar "Entrada" se carga con la info de las columnas A, B, C y D aunque B y C no vayan a utilizarse para nada. - La matriz auxiliar "Salida" tendrá tantas filas como "Entrada" y las tres columnas que asociaremos al List/ComboBox. - La trasferencia de datos de Entrada a Salida y la incorporación del caracter "|" en la segunda columna de Salida. - Asociamos la matriz Salida al combo/listbox mediante una sola línea: .List = Salida ___________________________________ Vale mencionar que si en lugar de manipular 50000 filas de datos fuesen 50, por ejemplo, las "diferencias proporcionales" serían -aún- mayores. Pero como estos tiempos de proceso (para 50 filas) están en el orden de unas pocas centésimas de segundo, utilizar un método o el otro no redundaría en una diferencia "humanamente" apreciable. Saludos, Cacho R.

Carga rápida de ListBox/ComboBox

Cacho R

Moderator

13 Sep 2015

.
Hola!
Consideremos la siguiente situación:

O sea:
- Tenemos 50000 filas de datos;
- Queremos llenar un...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Bienvenido a la mayor comunidad de usuarios EXCEL

Carga rápida de ListBox/ComboBox

Cacho R

Moderator

Temas similares