Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13373 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5689】functionの戻り値について TinNen 03/5/27(火) 18:06 質問
【5690】Re:functionの戻り値について ichinose 03/5/27(火) 18:22 回答
【5692】Re:functionの戻り値について ｂｙｋｉｎ 03/5/27(火) 22:57 回答
【5695】すみません TinNen 03/5/28(水) 9:42 発言
【5689】functionの戻り値について
質問  TinNen  - 03/5/27(火) 18:06 -
引用なし
パスワード
   どなたか教えてください。
functionの戻り値を２個戻したいのですが、できるのでしょうか？
【5690】Re:functionの戻り値について
回答  ichinose  - 03/5/27(火) 18:22 -
引用なし
パスワード
   ▼TinNen さん：
こんばんは。
>どなたか教えてください。
>functionの戻り値を２個戻したいのですが、できるのでしょうか？
'=======================================================
Type 二種類のデータ
a As Long
b As Long
　End Type
'========================================
Function test() As 二種類のデータ
With test
　 .a = 2
　 .b = 3
　 End With
End Function
'=========================================
Sub main()
　　Dim samp As 二種類のデータ
　　samp = test
　　MsgBox samp.a
　　MsgBox samp.b
End Sub
というような意味でしょうか？
【5692】Re:functionの戻り値について
回答  ｂｙｋｉｎ  - 03/5/27(火) 22:57 -
引用なし
パスワード
   こんばんわ。

こういうことでっか？

Function funcTest(ByRef a As String) As String
　　a = "abc"
　　funcTest = "123"
End Function

Sub subTest()
　　Dim s1 As String
　　Dim s2 As String
　　s2 = funcTest(s1)
　　MsgBox s1 & "-" & s2
End Sub

関数の引数に byRef を使えば戻り値として使えます。
（byRef はデフォルトなので書かんでもええんやけど明記したほうがわかりやすい）

試してみてな。
ほな。
【5695】すみません
発言  TinNen  - 03/5/28(水) 9:42 -
引用なし
パスワード
   御回答ありがとうございます。

この質問はただ単に戻り値を２つ戻せるかどうかを聞いてますが、本来やりたい事は

1.Accsessから受け取ったクエリを2次配列へ格納(ﾃｰﾌﾞﾙ)
2.引数を渡して、該当するワードが格納されているﾃｰﾌﾞﾙの要素番号を取得
　するﾒｿｯﾄﾞを作成。(で、戻り値が２つになると思うので・・・できません)

といった感じです。
最初の質問でここまで書かなければいけなったですね。
ちなみに、functionではなくpublic subでした。
すみませんでした。
ちなみに、まだできてません。もう少しがんばってみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13373 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free