Excel VBA質問箱 IV

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

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


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

28045 / 76732

←次へ　｜　前へ→


	【53995】データの抽出

ポン太 - 08/2/19(火) 17:55 -


	引用なし

	パスワード

コンボで「AprWk1」と選択すると、1.シートのデータを2.シートに抽出する物を作成したいです。

1.1.シートには品目と数値が入っている。
　2.シートはそれをまとめるためのシートである。
2.1.シートと2.シートで一致する品目の数値を2.シートに反映させたいのだが、
　1.シートのＡＪ列に【Adapter】【Book】【Castle】等々書いてあり、
　【Apple】の場合にのみ2.シートのＣ列に数値を反映させたい。
上記条件があるのだが、それを下記に書いてみたものの、
どうしても動きません。
何がおかしいのでしょうか？
インデックスが有効範囲にありませんと言われます。

　Select Case (コンボ)
　　Case "AprWk1"
　 Dim ws1 As Worksheet, ws2 As Worksheet, Rmax As Long, i As Long, T As String
　 '処理対象のシートを明確にするために変数にセット
　 Set ws1 = ThisWorkbook.Worksheets("1.")
　 Set ws2 = ThisWorkbook.Worksheets("2.")
　 '集計対象シートの最下行：キーになるF列で判定
　 Rmax = ws2.Range("F65536").End(xlUp).Row

　 'SUMIFで合計する
　　T = "Apple"
　　i = 7
　　With ActiveSheet
　　Do Until .Cells(i, 1).Value = ""
　　If ws2.Range("AJ" & "i-5").String = T Then
　　ws1.Range("C" & i).Value = Application.WorksheetFunction.SumIf _
　　(ws2.Range("E1:E" & Rmax), ws1.Range("A" & i).Value, ws2.Range("G1:G" & Rmax))
　　　　　　i = i + 1
　　End If
　　Loop

　　End With

0 hits

▼

【53995】データの抽出 ポン太 08/2/19(火) 17:55

≪