excel vba调用带变量的子程序

Question

我定义了以下子例程：

Sub EnterCellValueMonthNumber(cells As range, number As Integer)

range(cells).Select
ActiveCell.FormulaR1C1 = number

End Sub

当我像这样调用子例程时：

EnterCellValueMonthNumber ("N23:Q23",1)

我收到以下错误消息：

Compile error Expected: =

我不知道为什么收到此消息。有谁知道我缺少什么？

Answer 1

你实际上有两个问题。

首先是你问题的实际答案。你需要说：

Call EnterCellValueMonthNumber("N23:Q23",1)

但是如果你运行它，这仍然不起作用，因为你已经设置了 range 类型的 cells...将其设置为 string 类型代码> 使用这个代替：

Sub EnterCellValueMonthNumber(cells As String, number As Integer)
    Range(cells).Select
    ActiveCell.FormulaR1C1 = number
End Sub

Answer 2

尝试以下代码：

Sub EnterCellValueMonthNumber(ByVal cells As String, number As Integer)

    Range(cells).Select

    ActiveCell.FormulaR1C1 = number

End Sub

Answer 3

您可以将 sub 称为

EnterCellValueMonthNumber "N23:Q23", 1

无括号。或者

Call EnterCellValueMonthNumber("N23:Q23", 1)

括号，以及前面的Call。

另外，您的 Sub 需要一个 Range 对象作为第一个参数，并且您提供一个字符串；您应该将 sub 的签名更改为：

Sub EnterCellValueMonthNumber(cells As String, number As Integer)

另外，我不确定您要使用此代码实现什么目的，因为它只会将范围的左上角单元格设置为 1。是否会

Range(cells).Value = number
' Or, if you're going to be passing in something more complex later...
Range(cells).FormulaR1C1 = number

更合适？

我还非常谨慎地使用 Range("...") 而不指定您所指的工作表。这将作用于活动工作表，因此可能会导致意外问题，几乎总是首选 SheetX.Range("...")。同样，对于使用 .Select 来说，这是不必要的，并且只会在将来给您带来问题。