VBA发现单元格范围错误

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

Function CountRed(MyRange As Range)
CountRed = 0

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

---

您可以一次性设置颜色：

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

或创建一个范围变量，并在每个单元格中循环：

Dim rng as Range

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

---

您可以一次性设置颜色：

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

或创建一个范围变量，并在每个单元格中循环：

Dim rng as Range

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

---

您可以一次性设置颜色：

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

或创建一个范围变量，并在每个单元格中循环：

Dim rng as Range

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

---

您可以一次性设置颜色：

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

或创建一个范围变量，并在每个单元格中循环：

Dim rng as Range

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

---

我会使用子而不是自定义项：

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:

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

---

我会使用sub而不是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:

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

---

我会使用sub而不是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:

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

---

我会使用sub而不是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:

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

---

我会使用sub而不是UDF，因为：

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

---

---

有关更多教程信息，请参见

，您还可以使用

Interior.ColorIndex

将其设置为单个整数值。3代表红色。这是好的，如果坚持标准颜色-颜色指数只上升到56。我喜欢简单。：）是的。但是，如果您试图使用Excel中的VBA函数修改单元格，则该函数将不起作用。VBA函数不是这样工作的-修改单元格需要一个子过程。您也可以使用

Interior.ColorIndex

使用单个整数值进行设置。3代表红色。这是好的，如果坚持标准颜色-颜色指数只上升到56。我喜欢简单。：）是的。但是，如果您试图使用Excel中的VBA函数修改单元格，则该函数将不起作用。VBA函数不是这样工作的-修改单元格需要一个子过程。您也可以使用

Interior.ColorIndex

使用单个整数值进行设置。3代表红色。这是好的，如果坚持标准颜色-颜色指数只上升到56。我喜欢简单。：）是的。但是，如果您试图使用Excel中的VBA函数修改单元格，则该函数将不起作用。VBA函数不是这样工作的-修改单元格需要一个子过程。您也可以使用

Interior.ColorIndex

使用单个整数值进行设置。3代表红色。这是好的，如果坚持标准颜色-颜色指数只上升到56。我喜欢简单。：）是的。但是，如果您试图使用Excel中的VBA函数修改单元格，则该函数将不起作用。VBA函数不是以这种方式工作的-修改单元格需要一个子过程。函数名称表明您实际上想要计算哪些单元格的内部颜色为红色，但代码看起来好像您正在尝试将颜色设置为红色。你能澄清一下吗？我首先需要根据单元格中的值对该区域进行着色，然后计算该区域中的红色数量，函数名称表明你实际上想要计算哪些单元格的内部颜色为红色，但代码看起来像是你试图将颜色设置为红色。你能澄清一下吗？我首先需要根据单元格中的值对该区域进行着色，然后计算该区域中的红色数量，函数名称表明你实际上想要计算哪些单元格的内部颜色为红色，但代码看起来像是你试图将颜色设置为红色。你能澄清一下吗？我首先需要根据单元格中的值对该区域进行着色，然后计算该区域中的红色数量，函数名称表明你实际上想要计算哪些单元格的内部颜色为红色，但代码看起来像是你试图将颜色设置为红色。你能澄清一下吗？我首先需要根据单元格中的值对范围进行着色，然后计算范围内红色的数量，我认为你应该添加一个注释说明为什么这更可取。我认为你应该添加一个注释说明为什么这更可取。我认为你应该添加一个注释说明为什么这更可取。我认为你应该添加一个注释说明为什么这更可取。