0

我有一个程序:

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)

为什么我收到错误消息,我该如何解决?谢谢

4

2 回答 2

1

我通过更改解决了我的问题:

a_fillValueByCells (localSheet, v)

a_fillValueByCells sheet:=localSheet, v:=v

更新

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

a_fillValueByCells localSheet, v
于 2013-09-18T05:12:49.930 回答
0

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

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

因为你的返回一个范围而不是一个字符串。

于 2013-09-18T04:18:02.117 回答