ExcelのVBAで金種計算表をDo While文とIf文のみで作成したいのですが、下記のプログラムを実行してもExcel自体が応答不能になってしまいます。
下記に金額を入力すると枚数のところにそれぞれの金種の枚数が出てくるようにしたいです。お手数ですがご教示頂けると幸いです。
金種 10000 5000 2000 1000 500 100 50 10 5 1
枚数
金額 555555
Dim 添字, 金額 As Integer
Dim 終わり As String
金額 = Cells(6, 4)
添字 = 2
Do While Cells(4, 添字) = 終わり
If 金額 >= Cells(3, 添字) Then
Cells(4, 添字) = 金額 \ Cells(3, 添字)
金額 = 金額 - (Cells(4, 添字) * Cells(3, 添字))
添字 = 添字 + 1
End If
Loop
End Sub
回答3件
あなたの回答
tips
プレビュー