| |
こんにちは、Satsukiと申します。
前回の続きですが、今度は別のところで行き詰まりました。
どなたかご教示お願いいたします。
For〜next文の間で下記のように1行ずつ下へフォーカスをずらして、
新しいタイトルが出てきたら、それぞれ変数にタイトルとテーブル名を入れるようにしたいのですが、
ActiveCell.Value = Title(i + 1)
のところで、iが2以上になると配列の値がなくなるので、
「インデックスが有効範囲にありません」というエラーが出ます。
何かよい方法はありますでしょうか？
Title(0) = "１．店別来店数"
Title(1) = "２．店別製品別売上数"
Title(2) = "３．店別個人別売上数"
TableName(0) = "raiten"
TableName(1) = "seihinbetsu"
TableName(2) = "kojinbetsu
TitleName = Title(0)
InputTable = TableName(0)
Cells(j, 1).Activate
If ActiveCell.Value = Title(i + 1) Then
TitleName = Title(i + 1)
InputTable = TableName(i + 1)
i = i + 1
End If
（補足）↓↓↓↓↓↓↓↓↓↓↓↓↓↓
CSVファイルで下記のようなリストがあり、各タイトルごとにテーブルを分けてACCESSに出力しようとしています。
１．店別来店数
Ａ店 550
Ｂ店 360
Ｃ店 480
２．店別製品別売上数
Ａ店
製品１ 15
製品２ 26
Ｂ店
製品１ 28
製品３ 45
Ｃ店
製品２ 35
製品４ 12
３．店別個人別売上数
Ａ店
製品１
担当Ａ 6
担当Ｂ 9
製品２
担当Ｂ 6
担当Ｃ 20
Ｂ店
製品１
担当Ｄ 9
担当Ｅ 15
担当Ｆ 4
製品３
担当Ｄ 24
担当Ｅ 21
Ｃ店
製品２
担当Ｇ 7
担当Ｈ 12
担当Ｆ 16
製品４
担当Ｇ 2
担当Ｈ 7
担当Ｆ 3
|
|
satsuki
- 08/7/30(水) 16:13 -
