Objetos Excel

 

Objetos propios de Excel.

• Cell: Hace referencia a la celdas.

[A1]="CLAVE"

[B1]="PRODUCTO"

[C1]="COSTO"

[D1]="PRECIO"

[E1]="STOCK"

[A2]="1000"

[B2]="AZUCAR"

[C2]="20.00"

[D2]="25.00"

[E2]="15.00" e.t.c.

Tomando el objeto Cell sería:

       Fila,Columna

Cells(1   ,    1)="CLAVE"

Cells(1,2)="PRODUCTO"

Cells(1,3)="COSTO"

Cells(1,4)="PRECIO"

Cells(1,5)="STOCK"

Cells(2,1)="1000"

Cells(2,2)="AZUCAR"

Cells(2,3)="20.00"

Cells(2,4)="25.00"

Cells(2,5)="15.00" e.t.c.

Otra forma:

Cells(1,"A").Value="CLAVE"

Cells(1,"B").Value="PRODUCTO"

Cells(1,"C").Value="COSTO"

Cells(1,"D").Value="PRECIO"

Cells(1,"E").Value="STOCK"

Cells(2,"A").Value="1000"

Cells(2,"B").Value="AZUCAR"

Cells(2,"C").Value="20.00"

Cells(2,"D").Value="25.00"

Cells(2,"E").Value="15.00" e.t.c.

• Range: Hace referencia a un rango de celdas.

Range("A1").Value="CLAVE"

Range("B1").Value="PRODUCTO"

Range("C1").Value="COSTO"

Range("D1").Value="PRECIO"

Range("E1").Value="STOCK"

Range("A3").Formula="=A1+A2"

Range("A3").Formula = "=SUM(A1:A2)"

Range("A1:H8").Formula="=Rand()" 'Aleatorio

• Sheets

Sheets("Hoja1").Cells(1, 1) = "CLAVE"

Sheets("Hoja1").Cells(1, 2) = "PRODUCTO"

Sheets("Hoja1").Cells(1, 3) = "COSTO"

Sheets(1).Cells(1, 4) = "PRECIO"

Sheets(1).Cells(1, 5) = "STOCK"

Sheets.Add , after:=Sheets(1) 'Insertar 1 hoja después de la hoja 1

• WorkSheets

Worksheets("Hoja1").Cells(1, 1) = "CLAVE"

Worksheets("Hoja1").Cells(1, 2) = "PRODUCTO"

Worksheets("Hoja1").Cells(1, 3) = "COSTO"

Worksheets(1).Cells(1, 4) = "PRECIO"

Worksheets(1).Cells(1, 5) = "STOCK"

• ThisWorkbook

ThisWorkbook.Worksheets("Hoja1").Range("A1") = "CLAVE"

For Each ws In Worksheets

    MsgBox ws.Name

Next ws