Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13340 / 76732

←次へ　｜　前へ→


	【68898】Re:関数間での構造体利用について

ichinose - 11/4/25(月) 7:07 -


	引用なし

	パスワード

おはようございます。
コードをどのモジュールに書くべきかは、
仕様にもよりますが・・・。
今回の事象、オブジェクトモジュールでも

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

private 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