- 608 名前：デフォルトの名無しさん mailto:sage [2008/01/30(水) 15:48:05 ]
- もともと組み込み屋なのに転職したら最初にVBAやる羽目になってます。
VBはある程度使ってましたが忘れかけ。
質問は
ユーザ定義クラスのインスタンス（の参照？）を渡して関数の先で値を入れてもらいたいのですが、
「型が一致しません」となります。何が原因でしょうか？
【Sheet1のpublicプロシージャ】
Public Sub GetData(idx As Long, ByRef item As clsUserA)
item.Id = Me.Cells(idx + 1, 1)
item.Name = Me.Cells(idx + 1, 2)
item.Remark = Me.Cells(idx + 1, 3)
item.Visible = Me.Cells(idx + 1, 4)
End Sub
【それを呼び出すModule1のプロシージャ】
Sub Test()
Dim tmpClass As clsUserA
Dim i As Long
Set tmpClass = new clsUserA
For i = 0 to 10
Call sheetClassList.GetData(i, tmpClass) '★ここでエラー発生
Next
End Sub
よろしくお願いします・・・。
|
 |
