Cómo escribir en una tabla mediante VBA en Excel

Escribir a 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 de " 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 utilizando los valores de la columna y la fila de la hoja de cálculo . Instrucciones
1

lanzamiento Microsoft Excel. Haga clic en la pestaña de " desarrolladores" y seleccione "Visual Basic ". Haga clic en el menú " Insertar" y elegir la opción " Módulo " para insertar un nuevo módulo de código VBA
2

Agregue el código siguiente para crear un nuevo procedimiento sub : .

Sub createAndPopulateTable ()
3

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

Osh Dim como hoja de trabajo

Set SST = ActiveSheet
Página 4

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

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

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

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

oSh.Range ( "B2 ") Valor = 1

oSh.Range ( " C2" ) Valor = 1
< p . . > oSh.Range ( "D2 ") . Valor = 1

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

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

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

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

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

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

oSh.Range ( " B5 ") . valor = "row 4 Valor "

Osh . Range (" C5 ") . valor = "row 4 Valor "

oSh.Range ( " D5 ") . valor = "row 4 Valor "

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

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

oSh.Range ( " D6 ") . Valor = 5
6

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