ExcelのVBAで金種計算表をIf文のみで作成

Question

ExcelのVBAで金種計算表をIf文のみで作成したいのですが上手くいきません。
下記に金額を入力すると枚数のところにそれぞれの金種の枚数が出てくるようにしたいですが、下記のコードを書いても動作しません。お手数ですがご教示頂けると幸いです。

金種 10000 5000 2000 1000 500 100 50 10 5 1
枚数

金額 555555

金額 = Cells(7,3)
金種10000 = Cells(3,2)
金種5000 = Cells(3,3)
金種2000 = Cells(3,4)
…

10000円枚数 = Cells(4,2)
5000円枚数 = Cells(4,3)
2000円枚数 = Cells(4,4)
…

以下プログラミングしたコード

Dim 金額, 一万円札枚数, 五千円札枚数, 二千円札枚数, 千円札枚数, 五百円玉枚数, 百円玉枚数, 五十円玉枚数, 十円玉枚数, 五円玉枚数, 一円玉枚数 As Integer

金額 = Cells(7, 3)

If 金額 >= 10000 Then

一万円札枚数 = 金額 / 10000
金額 = 金額 - (一万円札枚数 * 10000)
一万円札枚数 = Cells(4, 2)

End If

If 金額 >= 5000 Then

五千円札枚数 = 金額 / 5000
金額 = 金額 - (五千円札枚数 * 5000)
五千円札枚数 = Cells(4, 3)

End If

If 金額 >= 2000 Then

二千円札枚数 = 金額 / 2000
金額 = 金額 - (二千円札枚数 * 2000)
二千円札枚数 = Cells(4, 4)

End If

If 金額 >= 1000 Then

千円札枚数 = 金額 / 1000
金額 = 金額 - (千円札枚数 * 1000)
千円札枚数 = Cells(4, 5)

End If

If 金額 >= 500 Then

五百円玉枚数 = 金額 / 500
金額 = 金額 - (五百円玉枚数 * 500)
五百円玉枚数 = Cells(4, 6)

End If

If 金額 >= 100 Then

百円玉枚数 = 金額 / 100
金額 = 金額 - (百円玉枚数 * 100)
百円玉枚数 = Cells(4, 7)

End If

If 金額 >= 50 Then

五十円玉枚数 = 金額 / 50
金額 = 金額 - (五十円玉枚数 * 50)
五十円玉枚数 = Cells(4, 8)

End If

If 金額 >= 10 Then

十円玉枚数 = 金額 / 10
金額 = 金額 - (十円玉枚数 * 10)
十円玉枚数 = Cells(4, 9)

End If

If 金額 >= 5 Then

五円玉枚数 = 金額 / 5
金額 = 金額 - (五円玉枚数 * 5)
五円玉枚数 = Cells(4, 10)

End If

If 金額 = 1 Then

一円玉枚数 = 金額 / 1
金額 = 金額 - (一円玉枚数 * 1)
一円玉枚数 = Cells(4, 11)

End If

End Sub

Comments

[sazi]

https://teratail.com/questions/89852
同じ内容なので、こっちは解決済みにした方が良いかと思います。

Answer 1

無事に解決しました。