VBA发现单元格范围错误

我把范围如下MyRange = f2：g10，我想我将如何能够通过f1，f2等。 问号在哪里。 我怎么能做到这一点，

Function CountRed(MyRange As Range) CountRed = 0 Range(?).Interior.Color = RGB(255, 0, 0) End Function 

Answer 1

你可以一次性设置颜色：

 MyRange.Interior.Color = RGB(255, 0, 0) 

或创build一个Rangevariables并循环遍历每个单元格：

 Dim rng as Range For Each rng In MyRange rng.Interior.Color = RGB(255, 0, 0) Next rng 

Answer 2

我会用一个子而不是一个UDF：

 Sub MAIN() Dim MyRange As Range Set MyRange = Range("F2:G10") Call CountRed(MyRange) End Sub Sub CountRed(r As Range) r.Interior.Color = RGB(255, 0, 0) End Sub 

编辑＃1：

我会使用一个子而不是一个UDF，因为：

• 没有价值被返回
• 工作表单元格正在修改

有关更多教程信息，请参阅OZGRID UDF培训