Ayuda concepto de objeto de celda!!!

[mikel1974]

Buenas a todos.

Estoy intentando salir del agujero y programar con un poco mas dignidad, pero no acabo de entender un tema. A ver si me podéis ayudar, gracias de antemano!!!

Después de mirar varios tutoriales, entiendo el concepto de clase, objeto, instancia... (o eso creo), pero no me cuadra una cosa:

• Objeto Libro, Workbook
  
• Coleccion de Hojas, que tambien una coleccion es un objeto, Workbooks
  

• Objeto Hoja , Worksheet
  
• Coleccion de Hojas, que tambien una coleccion es un objeto, Worksheets
  

Hasta aquí todo bien, programo por ejemplo (y no da error):

Dim mihoja As Worksheet

Set mihoja = Application.Workbooks("Libro1").Worksheets(1)

MsgBox mihoja.Name

End Sub

Ahora viene mi pregunta, ¿porque no existe el objeto celda, y solo existe range? ¿Range no es una colección de celdas?, es decir, algo asi:

• Objeto celda, Cell
  
• Coleccion de celdas, Range
  

Esto me da error (No se ha definido el tipo):

Dim micelda As

Cell

Set micelda= Application.Workbooks("Libro1").Worksheets(1).Range("A1")

MsgBox micelda.Value

End Sub

A ver si me sacáis de la ignorancia, gracias!!

[DiegoPC]

Hola Mikel!!!

El Range es, traducido literalmente, un rango. Un rango es un conjunto de celdas. Un rango podría ser un conjunto unitario (una sola celda) pero eso sí, no puede ser un conjunto vacío!

Podemos tener un rango de una sola celda como Range("A1") o un rango de varias celdas como Range("A1:E5")

La colección Cells hace mención al conjunto de celdas dentro de un rango, obviamente la cantidad de Cells de un rango de una sola celda es de uno.

Por ejemplo:

Msgbox Range("A1").Cells.Count 'Te devolvería 1

Msgbox Range("A1:E5").Cells.Count 'Te devolvería 25

[/Code]

También puedes usar Cells como un plano cartesiano, usando dos coordenadas, por ejemplo:

[Code]Msgbox Cells(5,3).Address[/Code]

te mostraría C5 (fila 5, columna 3)

Para hacer referencia al rango A1:F5, podrías usar:

El típico

[Code]Range("A1:F5")[/Code]

o el menos típico

[Code]Range(Range("A1"), Range("F5"))[/Code]

o el menos típico aún

[Code]Range(Cells(1, 1), Cells(5, 6))[/Code]

Espero haberte aclarado la duda!

Un cordial saludo

[mikel1974]

Muchas gracias Diego, te agradezco muchísimo tu ayuda.

Se me hace raro que un rango tenga las mismas propiedades de una celda (rango de una única celda, como comentas).

Por ejemplo, que sentido tiene la propiedad .Value de un rango compuesto de dos celdas?

Lo entiendo para una celda, pero para un rango... cual coge, el de la primera o el de la segunda?

Gracias y saludos.

[DiegoPC]

TODOS

Prueba esto en un módulo de Macro...

Range("A1:F10").Value="Hola"

[/Code]

[mikel1974]

Gracias por tu respuesta Diego.

Entiendo lo de asignar Valué a un rango, lo que da error y es ambiguo es cuando haces:

Set celdas=range("a1:c3")

Variable= celdas.value

Esto da error porque vba no sabe que valué coger, sólo funciona sí celdas= range("a1"), por eso entendía la idea de que debería existir un objeto celda.

No obstante, si es así será por algo.

Gracias y saludos

[DiegoPC]

En ese caso, podrías hacer esto:

Set celdas=Range("a1:c3")

Variable= Celdas.Cells(1,1).Value

[/Code]

Es solo cuestión de sintaxis

[mikel1974]

Ok, muchas gracias de nuevo.

Saludos!

[Antoni]

____________________________________________________________________

O también:

Dim variable(), celdas As Range

Set celdas = Range("a1:c3")

variable = celdas.Value

MsgBox variable(1, 2)

[/CODE]

Variable es un [b]array [/b]de dos dimensiones [b]filas x columnas.[/b]

Es una forma de guardarse los [b]valores [/b]de un rango antes de [b]modificarlos [/b]y poder [b]recuperarlos[/b].

Y no te quiero liar, pero existe un objeto [b]Cells([/b][i][color=#0000b3]fila, columna[/color][/i][b]) [/b]para tratar celdas concretas.

_______________________________________________________________________

[mikel1974]

Gracias Marcó Antonio, pero según el libro que estoy leyendo de Mr Spreadsheet, es una propiedad y no un objeto. El único objeto es el rango.

Gracias a todos, creo que me habéis ayudado a entenderlo mejor.

Saludos!

[Antoni]

_________________________________________________________________

Cierto, Cells está definido como propiedad, pero realmente se comporta, casi, como un objeto.

Observa estos ejemplos:

x = Cells(1, 1).Font.Name

y = Range("A1").Font.Name


x = Cells(1, 1).Formula

y = Range("A1").Formula


x = Cells(1, 1).Row

y = Range("A1").Row


x = Cells(1, 1).Interior.ColorIndex

y = Range("A1").Interior.ColorIndex


Cells(1, 1).Copy Cells(2, 1)

Range("A1").Copy Range("A2")


Rows(Cells(1, 1).Row).Insert

Rows(Range("A1").Row).Insert

[/CODE]

_________________________________________________________________

[mikel1974]

Cierto Macro Antonio, es por eso que el cuerpo me pedía la necesidad de tener el objeto celda y tratar el rango como un objeto colección.

Saludos!