Excel VBA質問箱 IV

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

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


13346 / 76732 ←次へ | 前へ→

【68891】関数間での構造体利用について
質問  VBA初心者  - 11/4/24(日) 15:18 -

引用なし
パスワード
   構造体を利用した関数を作成したのですが、文が長くて読みづらかったので関数を外出ししてコンパイルしたところ、「コンパイルエラー:オブジェクト モジュール内では、パブリック ユーザー定義型は定義できません。」というエラーメッセージが出てしまい、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

2 hits

【68891】関数間での構造体利用について VBA初心者 11/4/24(日) 15:18 質問
【68895】Re:関数間での構造体利用について UO3 11/4/24(日) 21:23 発言
【68897】Re:関数間での構造体利用について VBA初心者 11/4/24(日) 23:40 お礼
【68898】Re:関数間での構造体利用について ichinose 11/4/25(月) 7:07 発言
【68899】Re:関数間での構造体利用について VBA初心者 11/4/25(月) 22:37 お礼

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