Excel VBA質問箱 IV

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

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


13371 / 13644 ツリー ←次へ | 前へ→

【5689】functionの戻り値について TinNen 03/5/27(火) 18:06 質問
【5690】Re:functionの戻り値について ichinose 03/5/27(火) 18:22 回答
【5692】Re:functionの戻り値について bykin 03/5/27(火) 22:57 回答
【5695】すみません TinNen 03/5/28(水) 9:42 発言

【5689】functionの戻り値について
質問  TinNen  - 03/5/27(火) 18:06 -

引用なし
パスワード
   どなたか教えてください。
functionの戻り値を2個戻したいのですが、できるのでしょうか?

【5690】Re:functionの戻り値について
回答  ichinose  - 03/5/27(火) 18:22 -

引用なし
パスワード
   ▼TinNen さん:
こんばんは。
>どなたか教えてください。
>functionの戻り値を2個戻したいのですが、できるのでしょうか?
'=======================================================
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の戻り値について
回答  bykin  - 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 -

引用なし
パスワード
   御回答ありがとうございます。

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

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

といった感じです。
最初の質問でここまで書かなければいけなったですね。
ちなみに、functionではなくpublic subでした。
すみませんでした。
ちなみに、まだできてません。もう少しがんばってみます。

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