Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7408 / 76732 ←次へ | 前へ→

【74911】文字列の受け渡しでエラーがでます。。。
質問  オレンジ  - 13/10/23(水) 12:22 -

引用なし
パスワード
   こんにちは、はじめまして。
このサイトを利用するのは初めてです。
無礼が無い様気をつけますので、どなたか助けていただけないでしょうか。

いま 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初心者ですので、分かりやすく教えていただけるとありがたいです。
皆さん、ご助言をお願い致します。
 
449 hits

【74911】文字列の受け渡しでエラーがでます。。。 オレンジ 13/10/23(水) 12:22 質問
【74912】Re:文字列の受け渡しでエラーがでます。。。 ウッシ 13/10/23(水) 12:25 回答
【74913】Re:文字列の受け渡しでエラーがでます。。。 オレンジ 13/10/23(水) 15:14 お礼
【74922】Re:文字列の受け渡しでエラーがでます。。。 ichinose 13/10/26(土) 10:06 発言
【74927】Re:文字列の受け渡しでエラーがでます。。。 オレンジ 13/10/27(日) 15:12 お礼

7408 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free