|
以下のようにifが並ぶ冗長なコードを簡略化したいのですが、
良い方法がありますか?
<冗長なコード>
If (bun_cell.Offset(Count, 0) = "ア物語") And (bun_cell.Offset(Count, 1) = "済")
Sum0 = Sum0 + bun_cell.Offset(Count, -68)
End If
If (bun_cell.Offset(Count, 0) = "ア物語") And (bun_cell.Offset(Count, 1) = "活動中")
Sum1 = Sum1 + bun_cell.Offset(Count, -68)
End If
If (bun_cell.Offset(Count, 0) = "ア物語") And (bun_cell.Offset(Count, 1) = "(採用)")
Sum2 = Sum2 + bun_cell.Offset(Count, -68)
End If
If (bun_cell.Offset(Count, 0) = "ア物語") And (bun_cell.Offset(Count, 1) = "(却下)")
Sum3 = Sum3 + bun_cell.Offset(Count, -68)
End If
If (bun_cell.Offset(Count, 0) = "ア物語") And (bun_cell.Offset(Count, 1) = "却下3")
Sum4 = Sum4 + bun_cell.Offset(Count, -68)
End If
|
|