Excel VBA: Iteración sobre el parámetro de rango y valores de celda de cambio

Question

Creo que lo que intento hacer es bastante simple. Quiero iterar sobre un parámetro Range y cambiar el valor para cada celda en ese rango.

Function test(thisRange As Range) 
    For Each c In thisRange.Cells 
     c.Value = 1 
    Next 
End Function 

Lo anterior es un simple ejemplo de lo que quiero hacer, pero parece que no funciona. Cuando depuro esto, Excel parece lanzar un error cuando llega al c.Value = 1. ¿Por qué esto no funciona?

Answer 1

Esto funciona para mí

Option Explicit 

Sub Sample() 
    Dim ret 
    ret = test(Sheets("Sheet1").Range("A1:A15")) 
End Sub 

Function test(thisRange As Range) 
    Dim c As Range 
    For Each c In thisRange.Cells 
     c.Value = 1 
    Next 
End Function 

Por cierto que no es necesario utilizar una función. Una función se usa para devolver un valor. Pruebe esto

Option Explicit 

Sub Sample() 
    test Sheets("Sheet1").Range("A1:A15") 
End Sub 

Sub test(thisRange As Range) 
    Dim c As Range 
    For Each c In thisRange.Cells 
     c.Value = 1 
    Next 
End Sub