- ベストアンサー
String だと「 ByRef引数の型が一致しません 」というエラーが出ます。なぜ？
ここで「Kaplan-Meyer 生存分析に便利なソフトを教えて」と質問した shuu_01 です。ここで VisualBasic のソースのありかを教えて頂き、自分に使いやすいようソースを書き換えようと奮闘中です（それまで VisualBasic の経験がなく 無謀！と実感中です）。 元々のソースはグラフが１本だけだったので、肺癌だと「腺癌」「扁平上皮癌」「小細胞癌」、、といろんな癌の種類別にグラフを数本 書くのが目標です。そこで、 Sub km_test() Dim nc As Integer, gr() As String nc = 2 ReDim gr(nc) gr(0) = "腺癌" gr(1) = "扁平上皮癌" gr(2) = "小細胞癌" km_group_test nc, gr End Sub Sub km_group_test(nc As Integer, gr As String) End Sub というソースを書くと： String の変数 gr の色が変わり、「 ByRef引数の型が一致しません 」というエラーが出ます。 Integer の変数 nc ではエラーが出ません。 きちんと型を一致させているつもりなのに、なぜ？？？
- shuu_01
- お礼率95% (766/799)
- Visual Basic
- 回答数2
- ありがとう数4
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
関数の第２変数が文字列なのに、呼び出し側が文字列の配列を渡しているようです。 関数の呼び出し側を km_group_test nc, gr(1) とかにするか、関数を Sub km_group_test(nc As Integer, gr() As String) とかにしないと、型が違うと思います。
その他の回答 (1)
- okormazd
- ベストアンサー率50% (1224/2412)
gr() 配列
お礼
okormazd さん、回答ありがとうございます。「１番、短い回答はこれか！」と、自分の仕事（医師として検査所見をレポートする）をサクサク片付けるための参考にしたいです。
関連するQ&A
- 「ByRef引数の型が一致しません」助けてください。
お世話になります。 現在VBAでHTMLの書き出し用プログラムを書いています。 書き出したHTMLをUTF-8に変換するため、 ■UTF-8ファイル作成 for VBA http://www.vector.co.jp/soft/dl/winnt/prog/se320375.html のクラスモジュールを利用させていただいております。 Sub testAで定義した内容を書き出すために、 Sub createTestでtestA fNum(i)とした場合、 「ByRef引数の型が一致しません」と怒られてしまいます…。 単数の生成であれば、testA f1で生成可能なのですが、 生成ファイルが複数あり、配列に格納して処理したいのです。 どなたかお力をお貸しください。 プログラムの知識はほぼ素人レベルですorz 宜しくお願いします。 ▼コード Option Explicit Public Sub createTest() Dim fNum As Variant Dim f1 As New TextFile, f2 As New TextFile, f3 As New TextFile, f4 As New TextFile, f5 As New TextFile, f6 As New TextFile Dim f7 As New TextFile, f8 As New TextFile, f9 As New TextFile, f10 As New TextFile, f11 As New TextFile, f12 As New TextFile Dim f13 As New TextFile, f14 As New TextFile, f15 As New TextFile, f16 As New TextFile, f17 As New TextFile Dim Header As String, BodyS_T As String, BodyS_L As String, GlNavi As String, Promo As String, Contents As String, PrNavi As String, SeNavi As String, Footer As String, BodyE As String Dim ContentsM As String, ContentsS As String Dim WBK As Workbook Dim SH2 As Worksheet Dim TplBox As Variant Dim createCurPath As String Dim i As Integer Set WBK = ThisWorkbook Set SH2 = WBK.Sheets(2) createCurPath = ThisWorkbook.path & "\" & UserForm1.TextBox1.Value fNum = Array(f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17) '＜HEADER＞ Header = "Header" '＜BODY-START＞ BodyS_T = "BodyS_T>" BodyS_L = "BodyS_L" '＜GLOBAL NAVI＞ GlNavi = "GlNavi" '＜PROMO＞ Promo = "Promo" '＜CONTENTS＞ Contents = "Contents" ContentsM = "ContentsM" ContentsS = "ContentsS" '＜PRIMRY NAVi＞ PrNavi = "PrNavi" '＜SECONDARY NAVI＞ SeNavi = "SeNavi" '＜FOOTER＞ Footer = "Footer" '＜BODY-END＞ BodyE = "BodyE" For i = 0 To 16 If i = 0 Then fNum(i).FileCreate createCurPath & "\index.html", "UTF-8" ElseIf UserForm1("TextBox" & i + 1).Value <> "" Then fNum(i).FileCreate createCurPath & "\" & UserForm1("TextBox" & i + 1).Value & "\index.html", "UTF-8" End If fNum(i).TextWriteLine Header If i = 0 Then fNum(i).TextWriteLine BodyS_T ElseIf UserForm1("TextBox" & i + 1).Value <> "" Then fNum(i).TextWriteLine BodyS_L End If TplBox = SH2.Range("C" & i + 3).Value If TplBox <> "" Or TplBox <> "選択" Then If InStr(TplBox, "-TA-") > 0 Then testA fNum(i) fNum(i).TextWriteLine Promo fNum(i).TextWriteLine PrNavi ElseIf InStr(TplBox, "-TB-") > 0 Then testA fNum(i) fNum(i).TextWriteLine "<hr />" ElseIf InStr(TplBox, "-TC-") > 0 Then fNum(i).TextWriteLine ContentsS End If End If fNum(i).FileClose Next i End Sub Public Sub testA(f As TextFile) f.TextWriteLine "テスト1" End Sub
- 締切済み
- Visual Basic
- Excel VBA ByRef引数の型？
Excel2010でセルに関数式を埋め込むマクロを書いています。 そこで、「ByRef引数の型が一致しません」というエラーが出て困っています。 プログラムの中からエラーの出る所だけを取り出してtest1,test2として試したところ、 test1はエラーが出て、test2はプログラムが動いて目的とするセルに関数式が挿入されました。 Sub test1() dim i, myR as integer myR = 30 For i = 7 To 31 Cells(4, i) = "=IF(" & ConvertToLetter(i) & i - 4 & "="""","""",SUM(" & ConvertToLetter(i) & "5:" & ConvertToLetter(i) & myR & ")/(" & myR & "-COUNTIF(" & ConvertToLetter(i) & "5:" & ConvertToLetter(i) & myR & ","""")))" next i End Sub test1でConvertToLetter(i)のiが青色で選択され「ByRef引数の型不一致」エラーとなってしまいます。 そこで、試しに一度変数iの値をkに渡して同じプログラムをtest2として実行してみました。 Sub test2() dim i, k, myR as integer myR = 30 For i = 7 To 31 k=i Cells(4, i) = "=IF(" & ConvertToLetter(k) & i - 4 & "="""","""",SUM(" & ConvertToLetter(k) & "5:" & ConvertToLetter(k) & myR & ")/(" & myR & "-COUNTIF(" & ConvertToLetter(k) & "5:" & ConvertToLetter(k) & myR & ","""")))" next i End Sub このtest2は、きちんと実行され、目的とするG4(～AE4)のセルに =IF(G3="","",SUM(G5:G30)/(30-COUNTIF(G5:G30,""))) という式が挿入されました。 質問1：なぜ、test1がダメで、test2ならうまくいくのかという理由がわかりません。 質問2：うまくいったtest2と同じ式を、もっと長いプログラムの中に入れるとやはり「ByRef引数の型が一致しません」エラーが出てプログラムが止まってしまいます。test2単独のプログラムならうまく動くのに、他のプログラムの一部に埋め込むとエラーが出る理由もわかりません。 VBAプログラムを試行錯誤しながら勉強している初心者です。どなたかご教示お願いします。 ちなみに、ConvertToLetterは、 Function ConvertToLetter(iCol As Integer) As String Dim iAlpha As Integer Dim iRemainder As Integer iAlpha = Int((iCol - 1) / 26) iRemainder = iCol - (iAlpha * 26) If iAlpha > 0 Then ConvertToLetter = Chr(iAlpha + 64) End If If iRemainder > 0 Then ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64) End If End Function という、関数で定義しています。
- ベストアンサー
- Visual Basic
- コンパイルエラー：型が一致しません。
VBA(EXCEL2007)-Win7Proで下記コードを実行すると、 コンパイルエラー：型が一致しません。 が、発生します。 Option Explicit '呼ばれる側 Public Sub sub1(ie As InternetExplorer) End Sub '呼び出し側 Public Sub Test() Dim ie As InternetExplorer sub1 (ie) End Sub VAB初心者です。 netで紹介されていたソースをコピペしてみたのですが、コンパイルエラーとなってしまいました。問題点絞り込みのために、削ぎ落とした結果が、先のソースです。 下記が参考のソースの場所になります。 http://www.macrogirls.net/iesamplecode/vbaie_day4_4.html 画面遷移待受サブルーチン が問題のソースです。
- ベストアンサー
- Excel（エクセル）
- スレッドで Byref の引数を渡したい場合
VB2005 の初心者です。 スレッドに Byref の引数を渡すやり方が分かりません。 Byval だとエラーは出ないのですが、 Byref だとどうしてもエラーが消えません。 ソースは下記です。 Private CDF As clsCDF Public Class clsCDF Public LOOP1 As clsLoop1 Public LOOP2 As clsLoop2 End Class Protected Overrides Sub OnStart(ByVal args() As String) Thread = New Thread(AddressOf ABC) Thread.Start(CDF) End Sub Private Sub prvABC ( ByRef CDF As Object ) End Sub 何かヒントになることでも良いので、 皆様の知恵をお借りできれば幸いです。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- ソースの書き換えに挑戦中： 「インデックスが有効範囲にありません」 でお手上げ
この Q&A サイトで「Kaplan-Meyer 生存分析に便利なソフトを教えて」と質問した shuu_01 です。「Kaplan-Meyer 生存分析」の VisualBasic のソースのありかを聞き、欲しい機能を追加しようと、書き換えに挑戦しましたが、今まで VisualBasic の経験がなく、１歩目でつまずいてます： Sub km_test() Dim dm As Range, nc As Integer, t() As Double, i As Integer Set dm = Application.InputBox(prompt:="生存時間データの範囲（1列）を入力:", Title:="生存時間", Type:=8) nc = dm.Rows.Count For i = 1 To nc t(i) = dm(i) Next i End Sub 生存時間データを入力し、変数にデータを移すだけの簡単なソースなのですが、t(i) = dm(i) の行で、 実行時エラー 'g' インデックスが有効範囲にありません と途中でストップします。僕が書き換える前の似たようなソースではエラーなく通っており、僕にはどこが違うのかわかりません。
- ベストアンサー
- Visual Basic
- ExcelVBAで『ByRef 引数の型が一致しません』が発生する場合と発生しない場合がある
こんばんは。 何故このような現象が発生するか判らず、 質問致します。 環境は ・WindowsXP Professional ・Excel2003 ・ExcelVBA ・参照設定：Microsoft DAO 3.6 Object Library です。 下記は抜粋した内容ですが、 レコードセットを配列で宣言し、 関数に配列として受け渡しています。 プログラムを作成途中、テストとして実行した所、 「Call test(dbWS, dbWB, dbRes)」 のdbResの所が黄色になり 「ByRef 引数の型が一致しません」 と表示されました。 初めて発生するまでは問題なく動いており、 そこに関するソースの変更をしたわけではないのに発生しました。 また、ソースを変更せず、Excelのシートの追加や削除を行った後、コンパイルを行うと発生したりもします。 その他、そのコンパイルエラーが発生した後に、ファイルを保存し、再度開くと、 再び同じエラーが出る場合と、出ない場合があり、再現性が難しい状態にあります。 色々試したところ、レコードセットを配列で関数に渡さなければ問題がなさそうで、 現在はdbWS、dbWB、dbRes(2)をグローバル変数で宣言し、 関数の引数としては受け渡さず、直接グローバル変数で値を受け渡す回避方法を取っております。 何かこの現象についてご存知の方がいれば教えて頂きたいと思います。 不足している情報がありましたら指摘下さい。 --------------------------------- Sub main() Dim dbWS As Workspace Dim dbWB As Database Dim dbRes(2) As Recordset '処理 Call test(dbWS, dbWB, dbRes) End Sub --------------------------------- Private Function test(ByRef dbWS As Workspace, ByRef dbWB As Database, ByRef dbRes() As Recordset) '処理 End Function ---------------------------------
- 締切済み
- Visual Basic
- VBA「型が一致しません」とエラーが出ます
下記記事の関連質問です。 Excel 文字列抜き出しについて https://okwave.jp/qa/q9979633.html 記事を参考に複数行にマッチするように下記のようにコードを考えましたが msplit(mRng, " ", iii)で「型が一致しません」とエラーが出ます。 なぜでしょうか？ テスト用のA4セル 1 01 45124422 ミント 09/01～03/01 108 98 01/05～02/01 Option Explicit Sub test() Dim msplit As Variant Dim buf As String, i As Long, ii As Long, iii As Long, cnt As Long Dim mRng As Range For ii = 4 To Cells(Rows.Count, 1).End(xlUp).Row buf = Cells(ii, "A") For i = 1 To Len(Cells(ii, "A")) If Mid(buf, i, 1) = " " Then cnt = cnt + 1 Next For iii = 1 To cnt Set mRng = Cells(ii, "A") ’Stop Cells(iii + 1, ii) = msplit(mRng, " ", iii) Next Next Set mRng = Nothing End Sub Function msplit(ByRef mRng As Range, ByVal Spstr As String, ByVal num As Long) As Variant msplit = Split(mRng, Spstr)(num - 1) End Function
- ベストアンサー
- Excel（エクセル）
- 変数の宣言(s As String)で良い理由
vbaについてしつもんです。 標準モジュールで Option Explicit Dim s As String Sub test1() Call test2("qqq") End Sub Sub test2(s As String) MsgBox s End Sub としたのですが、もしかしてDim s As Stringって必要ないのでしょうか？ あってもなくても動きます。 (s As String)があるからDim s As Stringは不要なのですか？ だとしたら、(s As String)に dim や publicをつけなくて良い理由を教えてください。
- ベストアンサー
- オフィス系ソフト
- Access2010 「型が一致しません。」エラー
お世話になっております。 テキストファイルからデータを取り込んで、テーブルにあるデータと同じデータのみを表示させるプログラムがあります。 コードが「001」のように整数の場合は問題ないのですが、「A001」のように英数のデータの場合は、このエラーが出てしまいます。 「実行時エラー13 型が一致しません。」 デバッグをクリックすると、下記の部分が黄色に反転します。 「If DFirst("コード", "テーブル", "コード = '" & avarFldData(0) & "'") Then」 テキストファイルのデータがテーブルにない場合はエラーが出ませんので、一致したデータがある場合のみエラーが出ます。 VBAはあまり詳しくありませんので、エラーが出なくなる方法を教えていただければ助かります。 よろしくお願いいたします。 Private Sub Form_Load() Dim dbs As Database Dim rst As Recordset Dim strImportDir As String Dim strFile As String Dim lngFileNum As Long Dim strData As String Dim avarFldData As Variant Dim iintLoop As Integer DoCmd.Hourglass True strImportDir = Application.CurrentProject.Path & "\" strFile = strImportDir & "File.TXT" Set dbs = CurrentDb GoSub ReadFile Me.Requery DoCmd.Hourglass False Exit Sub ReadFile: Set rst = dbs.OpenRecordset("履歴", dbOpenDynaset, dbAppendOnly) lngFileNum = FreeFile() Open strFile For Input As #lngFileNum Do Until EOF(lngFileNum) Line Input #lngFileNum, strData avarFldData = Split(strData, ",", , vbTextCompare) For iintLoop = 0 To UBound(avarFldData) avarFldData(iintLoop) = Trim$(avarFldData(iintLoop)) Next iintLoop If DFirst("コード", "テーブル", "コード = '" & avarFldData(0) & "'") Then With rst .AddNew !コード = avarFldData(0) .Update End With End If ' End If Loop Close #lngFileNum rst.Close Kill strFile Return End Sub
- ベストアンサー
- その他(データベース)
お礼
fumufumu_2006 さん、ありがとう！！ 「 ByRef引数の型が一致しません 」で検索するといろいろ出てきても僕に当てはまるのを探し出せないで、困り抜いていました。 エラーはスッときれいに消えました。ありがとうございました。