Excel VBA質問箱 IV

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

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


28013 / 76735 ←次へ | 前へ→

【54034】郵便切手の組合せについて
質問  新参者  - 08/2/20(水) 20:01 -

引用なし
パスワード
   会社で切手管理をしています。
切手の組合せプロシージャを教えて下さい。
条件切手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

0 hits

【54034】郵便切手の組合せについて 新参者 08/2/20(水) 20:01 質問
【54037】Re:郵便切手の組合せについて りん 08/2/20(水) 20:56 回答
【54089】Re:郵便切手の組合せについて [名前なし] 08/2/24(日) 1:07 回答
【56671】Re:郵便切手の組合せについて 新参者 08/6/29(日) 16:44 お礼
【56670】Re:郵便切手の組合せについて 新参者 08/6/29(日) 16:42 お礼

28013 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free