支払いの表をエクセルで作り方を教えて下さい。

質問

支払いの表をエクセルで作りたいと思うのですが、
銀行でおろす小銭を数えてくれる機能のようなものが
あれば教えて下さい。
例えば…
Ａ会社　150004
Ｂ会社　256300
Ｃ会社　254105
Ｄ会社　459859
に支払いをする場合、合計金額を銀行でおろしてくる
のですが、いつも1円がいくらで5円がいくらで…と
自分で数えて、記入して、それぞれの会社に
支払いをしています。
小銭の内訳を簡単に求める方法があれば教えて下さい。

回答No.3

maruru01 · ベストアンサー

No.1です。

お礼欄について。
例えば、B1:J1に、「10000、5000、・・・、5、1」と各紙幣（貨幣）の金額を入力しておいて、B2:J2に各枚数を入れる場合、

=SUMPRODUCT(B1:J1,B2:J2)

で合計金額が出ます。

なお、上記のように1行目に各紙幣（貨幣）の金額を入力しておいた場合は、枚数算出の各数式は、

B2=INT(A1/B1)
C2=INT(MOD(A1,B1)/C1)
D2=INT(MOD(A1,C1)/D1)
E2=INT(MOD(A1,D1)/E1)
F2=INT(MOD(A1,E1)/F1)
G2=INT(MOD(A1,F1)/G1)
H2=INT(MOD(A1,G1)/H1)
I2=INT(MOD(A1,H1)/I1)
J2=INT(MOD(A1,I1))

とすることが出来ます。

お礼

すごくご丁寧に回答いただいて、ありがとうございます。
とてもわかりやすくて、これからは楽にできそうです。
本当に助かりました。
ありがとうございました。

回答No.4

imogasi

まあ関数式のご回答が出てますので、敢えて言うのはと言う気もしますが、私も月給の支払いで、同じニーヅがあり、ＶＢＡでプログラムを組んでいます。１０数行です。それはセルの関数式が長く一杯になるからです。
Ａ列に合計金額が入力されるとして、
Sub test01()
k = Array(10000, 5000, 1000, 500, 100, 50, 10, 5)
For i = 2 To 10 '２行目から１０行までの例
m = Cells(i, "A")
For j = 7 To 0 Step -1
Cells(i, j + 3) = m Mod k(j)
m = k(j) * Int(m / k(j))
Next j
Cells(i, 2) = m
Next i
End Sub
テスト不十分ですが、上のようなもので、ボタンに貼りつけてます。関数式は使っていません。

お礼

ちょっと私には難しかったようです。
でも、お答えいただき、ありがとうございました。

回答No.2

laputart

例えばB1に金額　C1 １万円　D1 五千円　E1 千円　F1 五百円　G1百円
H1 五十円　I1 十円　J1 五円　K1 一円
とします

B2に入れた金額について以下の用に数式を作ります。
●C2の数式　=INT(B1/10000)
●D2の数式　=INT((B2-C2*10000)/5000)
●E2の数式　=INT((B2-C2*10000-D2*5000)/1000)

●F2の数式　=INT((B2-C2*10000-D2*5000-E2*1000)/500)

●G2の数式　=INT((B2-C2*10000-D2*5000-E2*1000-F2*500)/100)

●H2の数式　=INT((B2-C2*10000-D2*5000-E2*1000-F2*500-G2*100)/50)

●I2の数式　=INT((B2-C2*10000-D2*5000-E2*1000-F2*500-G2*100-H2*50)/10)

●J2の数式　=INT((B2-C2*10000-D2*5000-E2*1000-F2*500-G2*100-H2*50-I2*10)/5)

●K2の数式　=B2-C2*10000-D2*5000-E2*1000-F2*500-G2*100-H2*50-I2*10-J2*5
--------------------------------
考え方は　C2 は　金額を10000で割り端数を切捨てます。　INT(1.111) = 1
５千円の計算は　金額-(１万円札の枚数x10000)の
計算結果を5000で割り端数を切捨てます

一度試してください。

お礼

ありがとうございます。
すごくわかりやすい説明を付け加えて下さっているので、
式が変になった時にも、対処できそうです。

回答No.1

maruru01

こんにちは。maruru01です。

合計金額がA1に入っているとすると、

1万円札の枚数
=INT(A1/10000)

5000円札の枚数
=INT(MOD(A1,10000)/5000)

1000円札の枚数
=INT(MOD(A1,5000)/1000)

500円玉の枚数
=INT(MOD(A1,1000)/500)

100円玉の枚数
=INT(MOD(A1,500)/100)

50円玉の枚数
=INT(MOD(A1,100)/50)

10円玉の枚数
=INT(MOD(A1,50)/10)

5円玉の枚数
=INT(MOD(A1,10)/5)

1円玉の枚数
=INT(MOD(A1,5))

で求まります。

お礼

ありがとうございます。
おかげさまでなんとかなりそうです。
もうひとつ教えていただきたいのですが…。
1万…45枚
5千…1枚
千…4枚
500…1枚
100…3枚
50…1枚
10…0枚
5…1枚
1…4枚
合計…459859円
と金種別の表を作って、確かめるために合計金額を
下に求めるには、45*10000+1*5000+と足し算していくしか
ないのでしょうか？？