|
こんにちは。かみちゃん です。
取り急ぎ。
>typData(1).店名 = Cells(j, 1)のところを見ると、
>「インデックスが有効範囲にありません」と出ています。
>どこを直したらよいでしょうか?
以下のようなサンプルを一度試してみていただけますか?
Private Type RecordData
日付 As Date
店名 As String
人数 As Long
製品名 As String
担当名 As String
台数 As Long
End Type
Sub Sample()
Dim typData() As RecordData
ReDim typData(1 To 2)
' ReDim typData(1 To objsheet.Cells(Rows.Count, 1).End(xlUp).Row)
typData(1).店名 = "A"
typData(1).人数 = 10
typData(2).店名 = "B"
typData(2).人数 = 13
MsgBox typData(1).店名 & " " & typData(1).人数 & vbCrLf & _
typData(2).店名 & " " & typData(2).人数
End Sub
ユーザー定義型については、以下のURLも参考になると思います。
http://www.officetanaka.net/excel/vba/statement/Type.htm
|
|