|
構造体を利用した関数を作成したのですが、文が長くて読みづらかったので関数を外出ししてコンパイルしたところ、「コンパイルエラー:オブジェクト モジュール内では、パブリック ユーザー定義型は定義できません。」というエラーメッセージが出てしまい、Typeの前にPrivateをくっつけると、今度は「コンパイルエラー:Private の列挙型およびユーザー定義型を、パブリックプロシージャの引数、戻り値、パブリック データ メンバ、またはパブリックの定義型のヨウ素として使用することはできません。」というエラーメッセージが出てしまいます。
お手数ですが、対処方法を教えていただけないでしょうか。
Type PartData
ID As Variant
Priority As Variant
End Type
Sub main()
Dim wsQuery As Worksheet
Dim rowEnd As Long
Dim data() As PartData
rowEnd = 20
ReDim data(rowEnd)
Set wsQuery = Worksheets("クエリ")
Call LoadData(data, rowEnd, wsQuery)
End Sub
Sub LoadData(data As PartData, rowEnd As Long, wsQuery As Worksheet)
Dim i As Long
wsQuery.Activate
For i = 2 To rowEnd
data(i).ID = Cells(i, 1).Value
data(i).Priority = Cells(i, 2).Value
Next
End Sub
|
|