５キロ単位で各セルに振り分ける方法は？

例えばエクセルのシートで
　　　Ａ　　　　Ｂ　　　
１　　氏名　数量（キロ）
２　******　　　５
３　******　　　１４
４　******　　　２
５　******　　　２３
と、あるとします。その表示を下記のようにしたい場合、Ｃ2～Ｅ2にはどのような式がはいりますか？（あとは下方向にコピーしたらいいと思うので・・・）
いろいろ試しましたが、うまくいきません。

　　　Ａ　　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　　
１　氏名　数量（キロ）１Ｋ入　５Ｋ入１０Ｋ入
２　*****　　５　　　　　　　　　１　　　　　
３　*****　　１４　　　　４　　　　　　　１　
４　*****　　３　　　　　３　　　　　　　　　　　
５　*****　　２３　　　　３　　　　　　　２　

No.1 回答者： tksoft 回答日時： 2003/11/28 15:40

とりあえず

C2に =B2-E2*10-D2*5
D2に =INT((B2-E2*10)/5)
E2に =INT(B3/10)

で、どうでしょう。
ポイントはINT()関数です。

No.2 回答者： soma3 回答日時： 2003/11/28 15:49

C2=B2-5*D2-10*E2

D2=(B2-10*E2-MOD(B2-10*E2,5))/5
E2=(B2-MOD(B2,10))/10

余りを元に計算してみました。

No.3 回答者： tibinkoron 回答日時： 2003/11/28 15:56

これは金種計算に近いですね。

E2=Rounddown(B2/10,0)
D2=Rounddown(B2-E2*10)/5,0)
C2=B2-E2*10+D2*5

大きい方から計算してみました。

No.4 回答者： seiuchi4 回答日時： 2003/11/28 15:58

B1 =A1-D1*10-C1*5

C1 =QUOTIENT(MOD(A1,10),5)
D1 =QUOTIENT(A1,10)

大きいほうから計算して、余りを次に大きい値で求めます。

この回答への補足

ありがとうございます。出来ました！いろいろな関数があるものですね。
ついでといっては何ですが、もし、１キロより小さい0.5キロ単位のネットがある場合の式は、どうなりますか？

補足日時：2003/12/03 10:27

No.5 回答者： tizzy 回答日時： 2003/11/28 16:29

ootakuさん

計算方法は出ているようなので。
Bの列に数字が無い場合に0を表示させない方法として

C2=IF(B2="","",B2-D2*5-E2*10)
D2=IF(B2="","",INT((B2-E2*10)/5))
E2=IF(B2="","",INT(B2/10))

また、0をどこにも表示させたくない場合
CDE列の書式設定でユーザー定義を選択して

G/標準;-G/標準;;[白]G/標準

としておくと、0が入る場合には
文字が白になって見えなくなるので
非表示の効果があります。

余談でしたが（笑）ご参考までに。

No.6 回答者： imogasi 回答日時： 2003/11/29 08:23

この質問をみて、現金支払い制の給料を用意する場合の金種計算とそっくりだと思いました。

ＶＢＡでやると
Sub test01()
a = Array(10000, 5000, 1000, 500, 100, 50, 10, 5, 1)
j = 2 '数量データは２行めから始まる。１行目見出。
p01:
k = Cells(j, "B") 'Ｂ列に数量（合計金額）があるとき
If Cells(j, "B") = "" Then Exit Sub
For i = 0 To UBound(a)
Cells(j, i + 3) = Int(k / a(i)) 'Ｃ列より内訳セット
k = k - a(i) * Int(k / a(i))
Next i
j = j + 1
GoTo p01
End Sub
Arrayの（　）の中を、１０ｋｇ、５，１と大きいもの順に
並べるとそのまま使えるのではないかと思いました。
（小さいもの順の場合は少し手直しが必要）
ご参考まで。

No.7 ベストアンサー 回答者： tizzy 回答日時： 2003/12/03 16:42

0.5キロの単位がある場合にも

同様です。

　　Ａ　　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　　F　　
１　氏名　　　数量　　0.5K　１Ｋ　　５K　　1０Ｋ
・
・
という感じで
C2=IF(B2="","",INT((B2-F2*10-E2*5-D2)/0.5))
D2=IF(B2="","",INT((B2-F2*10-E2*5)/1))
E2=IF(B2="","",INT((B2-F2*10)/5))
F2=IF(B2="","",INT(B2/10))

でいけると思います。
考え方としては、
数量を大きい単位から順に割って
答えの整数の部分のみを使い、
余りを次の単位に送って、
またそこで割り算をして余りを・・・
というように、希望の最小単位まで割り続ければ
良いということです。

上手くできるといいですね。
分からない点がありましたらまたお尋ねください。