teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問ExcelのVBAで金種計算表をIf文のみで作成したい

編集履歴

質問編集履歴

1

プログラミングコードの追加

2017/08/27 07:08

投稿

pazzu
pazzu

スコア16

test CHANGED
File without changes
test CHANGED
@@ -35,3 +35,183 @@
35
35
  2000円枚数 = Cells(4,4)
36
36
 
37
37
  …
38
+
39
+
40
+
41
+ 以下プログラミングしたコード
42
+
43
+
44
+
45
+ Dim 金額, 一万円札枚数, 五千円札枚数, 二千円札枚数, 千円札枚数, 五百円玉枚数, 百円玉枚数, 五十円玉枚数, 十円玉枚数, 五円玉枚数, 一円玉枚数 As Integer
46
+
47
+
48
+
49
+ 金額 = Cells(7, 3)
50
+
51
+
52
+
53
+
54
+
55
+ If 金額 >= 10000 Then
56
+
57
+
58
+
59
+ 一万円札枚数 = 金額 / 10000
60
+
61
+ 金額 = 金額 - (一万円札枚数 * 10000)
62
+
63
+ 一万円札枚数 = Cells(4, 2)
64
+
65
+
66
+
67
+ End If
68
+
69
+
70
+
71
+ If 金額 >= 5000 Then
72
+
73
+
74
+
75
+ 五千円札枚数 = 金額 / 5000
76
+
77
+ 金額 = 金額 - (五千円札枚数 * 5000)
78
+
79
+ 五千円札枚数 = Cells(4, 3)
80
+
81
+
82
+
83
+ End If
84
+
85
+
86
+
87
+ If 金額 >= 2000 Then
88
+
89
+
90
+
91
+ 二千円札枚数 = 金額 / 2000
92
+
93
+ 金額 = 金額 - (二千円札枚数 * 2000)
94
+
95
+ 二千円札枚数 = Cells(4, 4)
96
+
97
+
98
+
99
+ End If
100
+
101
+
102
+
103
+ If 金額 >= 1000 Then
104
+
105
+
106
+
107
+ 千円札枚数 = 金額 / 1000
108
+
109
+ 金額 = 金額 - (千円札枚数 * 1000)
110
+
111
+ 千円札枚数 = Cells(4, 5)
112
+
113
+
114
+
115
+ End If
116
+
117
+
118
+
119
+ If 金額 >= 500 Then
120
+
121
+
122
+
123
+ 五百円玉枚数 = 金額 / 500
124
+
125
+ 金額 = 金額 - (五百円玉枚数 * 500)
126
+
127
+ 五百円玉枚数 = Cells(4, 6)
128
+
129
+
130
+
131
+ End If
132
+
133
+
134
+
135
+ If 金額 >= 100 Then
136
+
137
+
138
+
139
+ 百円玉枚数 = 金額 / 100
140
+
141
+ 金額 = 金額 - (百円玉枚数 * 100)
142
+
143
+ 百円玉枚数 = Cells(4, 7)
144
+
145
+
146
+
147
+ End If
148
+
149
+
150
+
151
+ If 金額 >= 50 Then
152
+
153
+
154
+
155
+ 五十円玉枚数 = 金額 / 50
156
+
157
+ 金額 = 金額 - (五十円玉枚数 * 50)
158
+
159
+ 五十円玉枚数 = Cells(4, 8)
160
+
161
+
162
+
163
+ End If
164
+
165
+
166
+
167
+ If 金額 >= 10 Then
168
+
169
+
170
+
171
+ 十円玉枚数 = 金額 / 10
172
+
173
+ 金額 = 金額 - (十円玉枚数 * 10)
174
+
175
+ 十円玉枚数 = Cells(4, 9)
176
+
177
+
178
+
179
+ End If
180
+
181
+
182
+
183
+ If 金額 >= 5 Then
184
+
185
+
186
+
187
+ 五円玉枚数 = 金額 / 5
188
+
189
+ 金額 = 金額 - (五円玉枚数 * 5)
190
+
191
+ 五円玉枚数 = Cells(4, 10)
192
+
193
+
194
+
195
+
196
+
197
+ End If
198
+
199
+
200
+
201
+ If 金額 = 1 Then
202
+
203
+
204
+
205
+ 一円玉枚数 = 金額 / 1
206
+
207
+ 金額 = 金額 - (一円玉枚数 * 1)
208
+
209
+ 一円玉枚数 = Cells(4, 11)
210
+
211
+
212
+
213
+ End If
214
+
215
+
216
+
217
+ End Sub