|
会社で切手管理をしています。
切手の組合せプロシージャを教えて下さい。
条件切手5種類 使用制限4枚
例 郵便料230円 切手 枚 枚 枚 枚 枚
10円 1 2 1
50円 1 1 2 3
80円 1 1
90円 1 1 2
120円 1 1
計 4 4 3 4 4
上記の様になれば良いのですが・・・
下記のプロシージャでは1パターンしか表示されません。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' 切手組み合わせ()
Dim I As Integer, J As Integer, K As Integer, L As Integer, M As Integer
For I = 0 To 4
For J = 0 To 4
For K = 0 To 4
For L = 0 To 4
For M = 0 To 4
If Range("A2") = 10 * I + 50 * J + 80 * K + 90 * L + 120 * M
And I + J + K + L + M <= 4 Then
Range("C3") = I '10円切手枚数
Range("C4") = J '50円切手枚数
Range("C5") = K '80円切手枚数
Range("C6") = L '90円切手枚数
Range("C7") = M '120円切手枚数
End If
Next
Next
Next
Next
Next
End Sub
|
|