|
こんにちは
Dim strTarget As String
String型なのでSetは不要です。
strTarget = str
でいいです。
▼オレンジ さん:
>こんにちは、はじめまして。
>このサイトを利用するのは初めてです。
>無礼が無い様気をつけますので、どなたか助けていただけないでしょうか。
>
>いま 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初心者ですので、分かりやすく教えていただけるとありがたいです。
>皆さん、ご助言をお願い致します。
>
|
|