Ｐａｇｅ 460 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼「ByRef 引数の型が一致しません｣エラー km 02/12/16(月) 14:55 ┗Re:「ByRef 引数の型が一致しません｣エラー ichinose 02/12/16(月) 15:07 ┗ありがとうございました！！ km 02/12/16(月) 15:23 ┗ヘルプにありました km 02/12/16(月) 15:47 ─────────────────────────────────────── ■題名 ： 「ByRef 引数の型が一致しません｣エラー ■名前 ： km ■日付 ： 02/12/16(月) 14:55 -------------------------------------------------------------------------
| はじめまして。 次のような状況です。 １．メイン処理から関数を呼び出す。 ２．その関数の中で、Inputbox関数を使い、ユーザによりデータを入力させる。 ３．そのデータをメイン処理へ返す。 これを実行すると「ｺﾝﾊﾟｲﾙ ｴﾗｰ;ByRef 引数の型が一致しません。｣ コードは次のような感じです。 Sub メイン() Dim row1,row2 As Integer call myData(row1,row2) End Sub Sub myData(ByRef data1 As Integer,ByRef data2 As Integer) data1 = Clnt(Inputbox("入力してください")) data2 = Clnt(Inputbox("入力してください")) Exit Sub ユーザフォームで入力させたデータはうまく渡せるので Inputbox関数がいけないような気がしてきたのですが。 何か基本的なところで間違っているのでしょうか？ どうぞよろしくお願いします。 |
| ▼km さん： こんにちわ。 >次のような状況です。 >１．メイン処理から関数を呼び出す。 >２．その関数の中で、Inputbox関数を使い、ユーザによりデータを入力させる。 >３．そのデータをメイン処理へ返す。 >これを実行すると「ｺﾝﾊﾟｲﾙ ｴﾗｰ;ByRef 引数の型が一致しません。｣ > >コードは次のような感じです。 >Sub メイン() >Dim row1,row2 As Integer ' row1は、Variant型になっています dim row1 as integer dim row2 as integer > call myData(row1,row2) >End Sub > >Sub myData(ByRef data1 As Integer,ByRef data2 As Integer) > data1 = Clnt(Inputbox("入力してください")) > data2 = Clnt(Inputbox("入力してください")) >Exit Sub > >ユーザフォームで入力させたデータはうまく渡せるので >Inputbox関数がいけないような気がしてきたのですが。 >何か基本的なところで間違っているのでしょうか？ >どうぞよろしくお願いします。 |
| ichinose さん、ありがとうございます！ おかげさまで動きました。 変数は並べて書いちゃいけなかったんでしょうか・・・。 知らなかったです。今から調べます。 とりあえずお礼まで。 早い回答にとっても感動しました。 |
| ヘルプで調べたら、Dimの使用例にありました。 今からでも気づいてよかったです！ ありがとうございました。 |