Excel VBA質問箱 IV

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

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


28008 / 76732 ←次へ | 前へ→

【54037】Re:郵便切手の組合せについて
回答  りん E-MAIL  - 08/2/20(水) 20:56 -

引用なし
パスワード
   新参者 さん、こんばんわ。

>下記のプロシージャでは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
 (略)
>
>End Sub

ヒットしたパターンを全部表示していきたいということですかね。

Private Sub Worksheet_Change(ByVal Target As Range)
  'A2が変わったら実行
  If Target.Address = "$A$2" Then
   'イベントキャンセル
   Application.EnableEvents = False
   '切手組み合わせ()
   Dim I As Integer, J As Integer, K As Integer, L As Integer, M As Integer
   Dim Cpos As Long
   '
   Cpos = 3 'C列から
   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 (I + J + K + L + M) <= 4 Then
            If Range("A2").Value = 10 * I + 50 * J + 80 * K + 90 * L + 120 * M Then
              '
              Cells(3, Cpos).Value = I '10円切手枚数
              Cells(4, Cpos).Value = J '50円切手枚数
              Cells(5, Cpos).Value = K '80円切手枚数
              Cells(6, Cpos).Value = L '90円切手枚数
              Cells(7, Cpos).Value = M '120円切手枚数
              Cpos = Cpos + 1 '列番号を+1
            End If
           End If
         Next
        Next
      Next
     Next
   Next
   '戻す
   Application.EnableEvents = True
  End If
End Sub

こんな感じです。
クリアはしていません。

1 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 お礼

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