Question

我有一个程序：

Sub a_fillValueByCells(sheet As Worksheet, v As String)
    Set cellNames = produceCellNames(Row, cs)
    For Each cell In cellNames
        MsgBox cell
    Next
End Sub

我想称之为：

Set localSheet = ActiveSheet
Dim v As String
Set v = dataSheet.Range(cellName("B", Row))    
a_fillValueByCells (localSheet, v)

但是我在编辑时间的最后一行收到错误：

预期：=

如果我删除最后一个参数：

a_fillValueByCells (localSheet)

为什么我收到错误消息以及如何解决？感谢

Answer 1

我通过改变解决了我的问题：

a_fillValueByCells (localSheet, v)

到

a_fillValueByCells sheet:=localSheet, v:=v

<强>更新

我找到了另一个解决方案 - 只需删除括号：

a_fillValueByCells localSheet, v

Answer 2

将Set v = dataSheet.Range(cellName("B", Row))更改为

v = dataSheet.Range(cellName("B", Row)).Text

因为你的返回一个Range而不是一个String。

使用参数调用过程

2 个答案: