Excel VBA: Iterieren über Bereichsparameter und ändern Zelle Werte

Question

Ich glaube, was ich versuche zu tun, ist ziemlich einfach. Ich möchte über einen Range-Parameter iterieren und den Wert für jede Zelle in diesem Bereich ändern.

Das obige ist ein einfaches Beispiel von dem, was ich tun möchte, aber scheint nicht zu funktionieren. Wenn ich dies debugge, scheint Excel einen Fehler zu werfen, wenn es c.Value = 1 trifft. Warum funktioniert das nicht? Diese

Answer 1

funktioniert für mich

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 wir nicht brauchen, um eine Funktion zu verwenden. Eine Funktion wird verwendet, um einen Wert zurückzugeben. Versuchen Sie diese

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