戻る  □VBAのサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
金種計算

    [130118] 金種計算-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ 初級者 -(2019/04/01(00:02))
    □U R L/

      A1に金額(例 503,874)
      B1 10000 C1 5000 D1 1000 E1 500 F1 100 G1 50 H1 10 I1 5 J1 1 の枚数
      を求めたいのですが、上手くいきません。できたら、ゼロ(0枚)の時は0でわなくスペース(空白)にしたいのですが。
      今は、B1に = A1/10000 C1に = (A1 - (B1*10000)) / 5000
      D1に = (A1 - ((B1*10000)+(C1*5000))) / 1000 のように計算式を入れてます。
      なぜかD1は3にならなくて0になってしまいます。
      よろしくお願いいたします。




      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [130119] Re[1]: 金種計算-

    記事引用/メール受信=OFF■

    □投稿者/ Mike -(2019/04/01(01:07))
    □U R L/
      > A1に金額(例 503,874)
      計算用の表の都合上、「A1」を「A3」に変更します。
      
         A   B   C  D   E  F G H I J  K
      1 金種→ 10,000 5,000 1,000 500 100 50 10 5 1 
      2 枚数→   50   0   3  1  3 1 2 0 4 503,874
      3 503,874 3,874 3,874  874 374 74 24 4 4 0
      
      B2: =INT(A3/B1)
      B3: =MOD(A3,B1)
      範囲 B2:B3 を右方にズズーッと(J列まで)オートフィル
      K2: =SUMPRODUCT(B1:J1,B2:J2) ←検算用




    [130120] Re[2]: 金種計算-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ 初級者 -(2019/04/01(05:32))
    □U R L/

      Mikeさん、ありがとうございました。
      関数の使い方分かってよかったです。
      上手く結果がでるようになりました^^




    [130121] Re[3]: 金種計算-

    記事引用/メール受信=OFF■

    □投稿者/ bi -(2019/04/01(09:54))
    □U R L/
      もう見てないかもしれませんが…
      
      	A	B	C	D	E	F	G	H	I	J
      1		10000	5000	1000	500	100	50	10	5	1
      2	503874									
      
      B2:=INT(A2/B1)
      C2:=INT(($A2-(SUMPRODUCT($B1:B1,$B2:B2)))/C1)
      C2セルから右方向にフィルコピー




    [130125] Re[4]: 金種計算-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ 初級者 -(2019/04/04(03:22))
    □U R L/

      biさん、ありがとうございます。
      いろんな方法があって、なるほどって思ってます。
      結局、私は初級者で、いろいろためして、次のように致しました。
      10000の枚数の所に=INT(金額/10000)
      5000      =INT(MOD(金額,10000)/5000)
      1000      =INT(MOD(金額, 5000)/1000)
      ・・・
      最後の1円の所に =MOD(金額,5)としています。
      教えていただいた方法は全て勉強用ホルダーに保管しています。
      ご親切にありがとうございます。
       



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G