|
▼Hirofumi さん:
わざわざコードの提示ありがとうございます。
じつは、実際は、
"ア物語"だけでなく、"イ物語"や"ウ物語"があって、以下のように
なるのですが、これを更にシンプルに出来ますか?
With bun_cell
If .Offset(Count, 0) = "ア物語" Then
vntValue = .Offset(Count, -68).Value
Select Case .Offset(Count, 1).Value
Case "済"
Sum0 = Sum0 + vntValue
Case "活動中"
Sum1 = Sum1 + vntValue
Case "(採用)"
Sum2 = Sum2 + vntValue
Case "(却下)"
Sum3 = Sum3 + vntValue
Case "却下3"
Sum4 = Sum4 + vntValue
End Select
End If
End With
With bun_cell
If .Offset(Count, 0) = "イ物語" Then
vntValue = .Offset(Count, -68).Value
Select Case .Offset(Count, 1).Value
Case "済"
Sum5 = Sum5 + vntValue
Case "活動中"
Sum6 = Sum6 + vntValue
Case "(採用)"
Sum7 = Sum7 + vntValue
Case "(却下)"
Sum8 = Sum8 + vntValue
Case "却下3"
Sum9 = Sum9 + vntValue
End Select
End If
End With
以下続く
|
|