|
こんにちは、はじめまして。
このサイトを利用するのは初めてです。
無礼が無い様気をつけますので、どなたか助けていただけないでしょうか。
いま Sub から Function へ、文字列を渡して処理するコードを考えているのですが
コンパイルエラー「オブジェクトが必要です。」と出てうまくできません。
具体的なコードは以下です。
Sub test()
' String型で宣言 str
Dim str As String
' 変数str に文字列を格納
str = "商品名 AAA"
Debug.Print TypeName(str) ' 結果:String
Debug.Print str ' 結果:商品名 AAA
' Function に変数str を渡す
myFunc str
End Sub
Function myFunc(ByVal str As String)
Debug.Print str
Dim strTarget As String
Set strTarget = str 'コンパイルエラー オブジェクトが必要です。
■■↑ここでエラーがでます。■■
End Function
私はVBA初心者ですので、分かりやすく教えていただけるとありがたいです。
皆さん、ご助言をお願い致します。
|
|