2017-07-25 12 views
0

私は、一連の列データを格納する辞書の束を持つクラスを構築しています。パラメータによっては、辞書が多少異なって印刷されます。私はクラス内でデータを別のシートに印刷するための関数を作成しました。 はここでクラスクラスvbaの関数

Sub Export() 
'Finding next available cell 
With ActiveSheet 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).row 
End With 
nextrow = LastRow + 1 

For i = 1 To Me.BatchNo.Count 

    If Me.Location(i) <> "A_REF " Or Me.Location(i) <> "B_REF " Then 
     Me.NotRef(i,nextrow) 'Syntax Error HERE!!! 
    Else 
     Me.IsRef(i,nextrow) 'Syntax Error HERE!!! 

nextrow = nextrow + 1 
Next i 

End Sub 

されており、ここでの機能は

Function NotRef(i As Integer, nextrow As Integer)

Function IsRef(i As Integer, nextrow As Integer)

すべての機能は、それが保存されたデータを印刷ん呼び出すですが、私は「構文エラー」を取得します私はそれらを呼び出します。私はそれらを間違って呼んでいますか助けてくれてありがとう。

+0

は、あなたはおそらく代わりに、彼らはサブの行う必要があります。 –

答えて

0

私はVBAでやや錆びますが、戻り値を無視できるように関数c/C++/c#スタイルを呼び出すことはできません。 VBA関数は値を返すので、それを受け取る変数を指定する必要があります。いずれか、またはSubsに関数を変更します。その場合、正しく覚えていれば、かっこを削除する必要があります。

修正括弧を削除することで、関数がSubであるかのように関数を処理することで、VBAの戻り値を無視できます。あなたの関数は値を返さない場合(@Samのおかげで)

HTH

+0

正誤の組み合わせ。戻り値を取得していない場合は、かっこを削除してください。 – Sam

+0

@Sam訂正していただきありがとうございます。その新しい行動ですか?私はVBAを書いて以来、年齢は –

+0

です。それは最初から – Sam