|
>今日も暇人 さん
ご回答ありがとうございます。
踏まえて、再度作成致しましたが、
型番の不一致と出てしまいます。
不一致箇所ってありますか?
どこが不一致なのか分かりません。
−−−
Private Sub コンボ_Change()
Select Case (コンボ)
Case "AprWk1"
Dim ws1 As Worksheet, wsa As Worksheet
Dim Rmax As Long, Lr As Single
Dim i As Long, T As String
Dim App As Range, Ans As Long
'処理対象のシートを明確にするために変数にセット
Set ws1 = ThisWorkbook.Worksheets("1")
Set wsa = ThisWorkbook.Worksheets("2")
'集計対象シートの最下行:キーになるE列で判定
Lr = ws1.Range("A65536").End(xlUp).Row
Rmax = wsa.Range("E65536").End(xlUp).Row
'SUMIFで合計する
T = "Apple"
i = 7
Ans = 0
With ws1
For i = 7 To Lr
For Each App In wsa.Range("AJ2:AJ" & Rmax)
If App.Value = T Then
Ans = Application.WorksheetFunction.SumIf _
(wsa.Range("E2:E" & Rmax), ws1.Range("A" & i).Value, wsa.Range("G2:G" & Rmax))
Else
Ans = ""
End If
Next
.Range("C" & i).Value = Ans
Next i
End With
End Select
End Sub
|
|