VBA Excel: Iterazione del parametro dell'intervallo e modifica dei valori delle celle

Question

Credo che quello che sto cercando di fare sia piuttosto semplice. Voglio eseguire un'iterazione su un parametro Range e modificare il valore per ogni cella in quell'intervallo.

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

Quanto sopra è un semplice esempio di ciò che voglio fare, ma non sembra funzionare. Quando eseguo il debug di questo, Excel sembra generare un errore quando raggiunge c.Value = 1. Perché non funziona?

Answer 1

questo funziona per me

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 

BTW non abbiamo bisogno di usare una funzione. Una funzione viene utilizzata per restituire un valore. Prova questo

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