процедура вызова с аргументами

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) 

Но я получаю ошибку на последней строке времени edittion:

Ожидаемые: =

Если я удалю последний аргумент:

a_fillValueByCells (localSheet) 

Почему я получаю сообщение об ошибке и как его исправить? Благодаря

Answer 1

Я решить мою проблему, изменив:

a_fillValueByCells (localSheet, v) 

в

a_fillValueByCells sheet:=localSheet, v:=v 

Update

я нашел еще одно решение - просто удалите скобки:

a_fillValueByCells localSheet, v 

Answer 2

Изменить Set v = dataSheet.Range(cellName("B", Row)) в

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

С вами возвращает диапазон вместо строки.