エクセルに入力したお金を仕分けたいのですが。

質問

会社の従業員の交通費を毎月現金で渡します。
従業員は４０名ほどです。

たとえばＡさんの交通費￥1500
Ｂさん￥2300となると、銀行で引き出してくるときに合計は￥3800なのですが
それぞれ渡しますから1000円札３枚、５００円玉１枚、１００円玉３枚を引き出します。

エクセルで計算していますが（パートさんの交通費は出社した日のみなので毎月金額が変わります）金額を入力したらお金が勝手に１０００円札何枚とかに
仕分けてくれる方法はあるのでしょうか？

回答No.2

notnot · ベストアンサー

A列に名前、B列に金額が入ってるとします。
C1 に、=INT(B1/1000)
D1 に、=INT((B1-C1*1000)/500)
E1 に、=INT((B1-C1*1000-D1*500)/100)
F1 に、=INT((B1-C1*1000-D1*500-E1*100)/50)
G1 に、=INT((B1-C1*1000-D1*500-E1*100-F*50)/10)
と入れると、C1に千円札の枚数、D1に500円玉の枚数、E1に100円玉の枚数、F1に50円玉の枚数、G1に10円玉の枚数が入ります。

それを、2行目以下にもずーっとコピーして、一番下の行の次にC列からG列までそれぞれの枚数の和をΣで求めれば良いです。

お礼

ご丁寧にとてもわかりやすく教えていただき、ありがとうございます。

ずっと画面を見ながら1000円札．．．５００円と表に入れていると目がチカチカしてきて
大変でした。

これで今月分がとっても楽になります。

本当にありがとうございました。

回答No.3

KURUMITO

元のデータでＡ2セルから下方には氏名を、Ｂ2セルから下方に交通費の金額が入力されているとします。そこで金種をＣ1セルに10000、Ｄ1セルに5000、Ｅ1セルに1000、Ｆ1セルに500、Ｇ1セルに100と入力します。
Ｃ2セルには次の式を入力してＧ2セルまでオートフィルドラッグコピーしたのちに下方にもオートフィルドラッグコピーします。

=IF(OR($B2="",C$1=""),"",IF(COLUMN(A1)=1,INT($B2/$C$1),INT(MOD($B2,B$1)/C$1)))

これで氏名ごとに必要な金種の数が表示されます。
金種ごとの合計や金額などを見やすくするために別の表を作るとします。
Ｉ1セルに金種、Ｊ1セルに枚数・個数、Ｋ1セルに金額とそれぞれ入力します。
Ｉ2セルには次の式を入力してＩ6セルまでオートフィルドラッグします。

=IF(ROW(A1)>5,"",INDEX($C$1:$G$1,ROW(A1)))

Ｊ2セルには次の式を入力してＫ2セルまでオートフィルドラッグコピーしたのちに下方の6行目までオートフィルドラッグコピーします。

=IF(COLUMN(A1)=1,SUM(INDEX($C:$G,2,ROW(A1)):INDEX($C:$G,1000,ROW(A1))),$I2*$J2)

その後にＩ7セルには合計とでも入力してＪ6セルには=SUM(J2:J7)と入力しＫ2セルまでオートフィルドラッグコピーすればよいでしょう。
Ｋ7セルの合計の金額がＢ列の交通費の総計と一致していることを確認すればよいでしょう。

お礼

ご丁寧に教えていただき、ありがとうございます。

月曜日に会社に行って作成してみます。

毎月、この作業は大変でしたので今月は楽になります。

本当にありがとうございました。

回答No.1

keithin

そういう計算を「金種表」とか金種計算といいます。お金の種類ごとの枚数を計算する式ってことですね。
参考：
http://www.ufui.sakura.ne.jp/PcKatsuyo0/excel_011.html

で，たとえばＡさんＢさんの「合計額」が６０００円とか判っても，５０００円＋１０００でいいのか，千円札６枚やっぱり要るのかは，ＡさんＢさんごとの金種計算を一人ずつ行って，必要枚数を寄せてやらないと計算できないのは判りますよね？

作り方１：
Ａさんの計算表に金種計算の表範囲を作成してＡさんの必要枚数を集計
Ｂさんの計算表に金種計算の表範囲を作成してＢさんの必要枚数を集計
それらの金種計算の結果を「３Ｄ串刺し計算」でシートを貫いて集計します。

作り方２：
金種計算シートのＢ１セルにＡさんの金額を参照する式を記入，Ｂ２以下に金種計算
金種計算シートのＣ１セルにＢさんの金額を参照する式を記入，Ｃ２以下に金種計算
　：
で，金種ごとに必要数を合計します。

お礼

ご丁寧に教えていただき、ありがとうございます。
「金種表」というんですね。覚えました。

月曜日に会社に行ってさっそく作成してみます。

本当にありがとうございました。