Excel VBA：遍歷範圍參數和更改單元格值

Question

我相信我所要做的很簡單。我想迭代Range參數並更改該範圍中每個單元格的值。

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

以上是我想要做的一個簡單的例子，但似乎沒有工作。當我調試時，Excel似乎在碰到c.Value = 1時發生錯誤。爲什麼這不起作用？

Answer 1

這對我的作品

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 

順便說一句，我們並不需要使用的功能。一個函數用於返回一個值。試試這個

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