Excel VBA質問箱 IV

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

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


24814 / 76732 ←次へ | 前へ→

【57265】Re:ユーザー定義型の変数に値を入れる
発言  かみちゃん E-MAIL  - 08/8/4(月) 7:06 -

引用なし
パスワード
   こんにちは。かみちゃん です。

取り急ぎ。

>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

0 hits

【57263】ユーザー定義型の変数に値を入れる satsuki 08/8/4(月) 2:42 質問
【57265】Re:ユーザー定義型の変数に値を入れる かみちゃん 08/8/4(月) 7:06 発言
【57278】Re:ユーザー定義型の変数に値を入れる satsuki 08/8/4(月) 19:55 お礼
【57269】Re:ユーザー定義型の変数に値を入れる neptune 08/8/4(月) 11:40 発言
【57279】Re:ユーザー定義型の変数に値を入れる satsuki 08/8/4(月) 19:59 お礼

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