Tecnología

Inicio

Cómo escribir en una tabla mediante VBA en Excel

La escritura en una tabla utilizando Visual Basic para aplicaciones en Microsoft Excel no es tan complicado como usted puede pensar. VBA es un lenguaje de programación utilizado en aplicaciones de Microsoft Office para automatizar tareas rutinarias. En VBA, puede utilizar el método "ListObjects.Add" para crear una nueva tabla en la hoja de cálculo. Utilice el método de "Rango" para añadir valores a la tabla usando los valores de columna y fila de la hoja de cálculo.

Instrucciones

1 Lanzamiento de Microsoft Excel. Haga clic en la pestaña "desarrolladores" y seleccione "Visual Basic". Haga clic en el menú "Insertar" y seleccione "módulo" para insertar un nuevo módulo de código VBA.

2 Agregue el código siguiente para crear un nuevo procedimiento de substitución:

Sub createAndPopulateTable ()

3 Crear dos variables que va a utilizar para escribir datos en la tabla:

Dim oSh As Worksheet

Establecer la SST = ActiveSheet

4 Cree la tabla con cinco filas, utilizando las columnas B, C y D:

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$1:$D$5"), , xlYes).Name = _

"mi mesa"

ActiveSheet.ListObjects ( "myTable"). TableStyle = "TableStyleLight2"

5 Copia y pega el siguiente código VBA para escribir datos en la tabla:

oSh.Range("B2").Value = 1

oSh.Range ( "C2"). Value = 1

oSh.Range ( "D2"). Value = 1

oSh.Range ( "B3"). Value = 2

oSh.Range ( "C3"). Value = 2

oSh.Range ( "D3"). Value = 2

oSh.Range ( "B4"). Value = 3

oSh.Range ( "C4"). Value = 3

oSh.Range ( "D4"). Value = 3

oSh.Range ( "B5"). Value = "fila 4 valor"

oSh.Range ( "C5"). Value = "fila 4 valor"

oSh.Range ( "D5"). Value = "fila 4 valor"

oSh.Range ( "B6"). Value = 5

oSh.Range ( "C6"). Value = 5

oSh.Range ( "D6"). Value = 5

6 Finalizar el proceso escribiendo "End Sub" como la última línea de código en el módulo. Pulse la tecla "F5" para ejecutar el procedimiento.