Excel VBA質問箱 IV

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

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


34703 / 76734 ←次へ | 前へ→

【47237】Scripting.Dictionaryに関して教えて下さい。
質問  質問(煮詰まった)  - 07/3/5(月) 21:15 -

引用なし
パスワード
    教えて下さい。
 Scripting.Dictionaryのテーブル個数は決まっているのでしょうか?

 横に12項目あり、その7番目をkeyとして
 利用し、9番目を加算させている処理です。
 a(8) = vnt(i, 9)の箇所でエラーなるのですが
 何か記述がおかしいのか教えて下さい。
 宜しくお願いします。


 Dim vnt, a
  Dim dic As Object
  
  '
  With Sheets("作業3")
    vnt = .Range("G2", .Range("A65536").End(xlUp)).Value
  End With
  '
  Set dic = CreateObject("Scripting.Dictionary")
  For i = 1 To UBound(vnt, 1)
    If Not dic.exists(vnt(i, 7)) Then
      ReDim a(9)
      a(0) = vnt(i, 1)
      a(1) = vnt(i, 2)
      a(2) = vnt(i, 3)
      a(3) = vnt(i, 4)
      a(4) = vnt(i, 5)
      a(5) = vnt(i, 6)
      a(6) = vnt(i, 7)
      a(7) = vnt(i, 8)
      a(8) = vnt(i, 9)
      'a(9) = vnt(i, 10)
      'a(10) = vnt(i, 11)
      'a(11) = vnt(i, 12)
    Else
      a = dic(vnt(i, 7))
    End If
    'a(8) = a(8) + vnt(i, 9)
    dic(vnt(i, 7)) = a
  Next i
1 hits

【47237】Scripting.Dictionaryに関して教えて下さい。 質問(煮詰まった) 07/3/5(月) 21:15 質問
【47255】Re:Scripting.Dictionaryに関して教えて下... neptune 07/3/6(火) 14:49 発言
【47263】Re:Scripting.Dictionaryに関して教えて下... 質問(煮詰まった) 07/3/6(火) 20:41 お礼

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