Accediendo al valor de una celda mediante el Objeto Cells en VBA para Microsoft Excel

Mediante el objeto Cells es posible acceder a los valores almacenados en las celdas de Microsoft Excel.

Para ello a Cells debemos de pasarle como parámetro, el número de fila y el número de columna en la que se encuentra la celda objetivo.

La ventaja con respecto al uso del método Range, es que podremos utilizar bucles para incrementar el valor de la fila y la columna, permitiendo recorrer un conjunto de celdas de forma sencilla.

Este es el código del ejemplo de hoy.

Option Explicit

Sub condicional()

    'Declaramos una variable numerica

    Dim dia As Integer

    Dim dato As String

        

    dato = Cells(2, 2).Value

    If (Not IsNumeric(dato)) Then

        MsgBox ("Error, has introducido un valor no numérico")

    Else

        dia = CInt(dato)

        If (dia = 1) Then MsgBox ("lunes")

        If (dia = 2) Then MsgBox ("martes")

        If (dia = 3) Then MsgBox ("miercoles")

        If (dia = 4) Then MsgBox ("jueves")

        If (dia = 5) Then MsgBox ("viernes")

        If (dia = 6) Then MsgBox ("sabado")

        If (dia = 7) Then MsgBox ("domingo")

        If (dia < 1) Then MsgBox ("Error, has introducido un error demasiado pequeño")

        If (dia > 7) Then MsgBox ("Error, has introducido un error demasiado grande")

    End If

End Sub

La única instrucción que hemos modificado es la que se resalta en la siguiente imagen:

La ventaja de usar el objeto Cells en lugar del objeto Range está en que podemos usar dos variables para indicar la fila y la columna de la celda y estás variables pueden ser modificadas mediante bucles ya sean For o while a través del código de la macro.

Esto nos permitirá hacer modificaciones en una gran cantidad de celdas.