vba - 引数を指定してプロシージャを呼び出す

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

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

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

あなたのものは文字列ではなく範囲を返すためです。