Excel VBA質問箱 IV

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

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


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

27998 / 76732

←次へ　｜　前へ→


	【54047】Re:データの抽出

ポン太 - 08/2/21(木) 17:15 -


	引用なし

	パスワード

可視セルからSUMIF関数を利用してデータを引っ張ってこようとしています。

　Select Case (コンボ)
　　Case "AprWk1"

　 Dim ws1 As Worksheet, ws2 As Worksheet, Rmax As Long, i As Long
　
　 '処理対象のシートを明確にするために変数にセット
　 Set ws1 = ThisWorkbook.Worksheets("2")
　 Set ws2 = ThisWorkbook.Worksheets("1")

　　ws2.Select
　　ws2.Range("A1").Select
　　Selection.AutoFilter
　　Selection.AutoFilter Field:=36, Criteria1:="Apple"
　　Selection.SpecialCells(xlCellTypeVisible).Select
　 '集計対象シートの最下行：キーになるE列で判定
　　Rmax = ws2.Range("E65536").End(xlUp).Row
　　ws1.Select

☆
　 'SUMIFで合計する
　　i = 7
　　With ActiveSheet
　　Do Until .Cells(i, 1).Value = ""
　　ws1.Range("C" & i).Value = Application.WorksheetFunction.SumIf _
　　(ws2.Range("E2:E" & Rmax), ws1.Range("A" & i).Value, ws2.Range("G2:G" & Rmax))
　　　　　　i = i + 1
　　Loop

　　End With
　　End Select
　End Sub

この☆部分から下が違う気がします。
なぜならば、可視セルからだけSUMIF関数を利用したいのですが、
上記式だと見えていないセルからも数字を引っ張ってきているからです。

可視セルのみ引っ張ってくる方法をご存知の方！
どうか教えてください。

0 hits

▼

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