[[20050423175641]]　『金種関数』（純丸）　ページの最後に飛ぶ

『金種関数』（純丸）

 金種関数を作りました。ちゃんと機能するはずですが、ここが変だとか、
 こうすればもっとよくなるとかいう「突っ込み」をお願いします。
（純丸）(o^-')b 　※２０００円非対応

 =kinshu(金額入力範囲、金種、枚数(TRUE)or金額(FALSE))

      A      B      C       D
 1  12,450       10,000    =kinshu($A$1:$A$5,C1,TRUE)
 2  26,288        5,000    ↓
 3  33,920        1,000    ↓
 4  47,692          500    ↓
 5  57,145          100    ↓
 6                   50    ↓
 7                   10    ↓
 8                    5    ↓
 9                    1    ↓ フィルコピー

 Function kinshu(hani As Range, shu As Long, maiorgaku As Boolean) As Long

 Dim mai As Long
 Dim bunbo As Long
 Dim myr As Range

 Select Case shu
   Case 5000
      bunbo = 10000
   Case 1000
      bunbo = 5000
   Case 500
      bunbo = 1000
   Case 100
      bunbo = 500
   Case 50
      bunbo = 100
   Case 10
      bunbo = 50
   Case 5
      bunbo = 10
   Case 1
      bunbo = 5
 End Select

 For Each myr In hani
  If shu = 10000 Then
       mai = mai + Int(myr.Value / shu)
     Else
       mai = mai + Int((myr.Value Mod bunbo) / shu)
  End If
 Next myr

 Select Case maiorgaku
   Case True
      kinshu = mai
   Case False
      kinshu = mai * shu
 End Select

 End Function   '←入れましたぁ～（完全に汗）キリキさん、ありがとうm(__)m

 おぉ～　　かっくい～
 事務仕事の方には、いいかもしれませんね～

 (*´ノェ｀)こっそり　　End Functionは？
 （キリキ）(〃⌒o⌒)b

 昨日からいろいろ考えたのですが、、、

 金種＝９種類（２０００円非対応）
 必要な範囲も９×２

 =kinshu($A$1:$A$5,TRUE)を入力すると、自動的に算出
 ってのは、ユーザー定義関数とずれてしまいますでしょうか？

 え～　要するに、フィルコピー無しで出切ればな～と☆

 （キリキ）(；⌒o⌒)ｂ　こんな突っ込みあり？

 もちろんありですよん。実は、最初はすべて計算させるように
 したのですが、表示の段階で？となったので、結局「１金種」に対して
 答えが出るような関数にしたのです。答えを求めるのはむずかしく
 ないのですが、フィルコピー無しということは一つのセルに答えを出すと
 いう事だとすると、そのセルが大きくなって、あまり実用的ではないと
 思うのですが、どんなもんでしょう？ それともいい表示方法があるのかな。
 キリキさん、どんな表示方法が考えられますか？
 （純丸）(o^-')b

 う～ん。。。
 σ(^o^;)の考えられることとすれば、、、

 >フィルコピー無しということは一つのセルに答えを出す
 一つでなくてもいいのであれば（セルが確保できていればですが）
 Functionでは無く、
 Private Sub Worksheet_Changeを使用し、
 Targetが、"=kinsyu(" かどうか判断
 そうであれば、LENで文字数を出して、範囲 $A$1:$A$5 を判定
 For～Nextで、計算させ Cells( r , c )に反映
 Offsetで左側に、金種を返す

 作ってないので、出来るのかどうかわかりません・・・（汗

 弥太郎師匠が、以前やっていたのを見た気がします。。。
 （キリキ）(〃⌒o⌒)ｂ

 なるほど、関数ではなくて普通のマクロですね。マクロを実行すると、
 フォームで金額範囲と出力先頭セルを入力してＯＫをクリックで答えが
 展開される、みたいなのがよさそうです。Changeイベントはあらかじめ
 金種を計算することが決まっているシートだといいかも。
 ちょっと考えてみますが、パッパッと作れるスキルはまだないので、
 いつ出来上がるかは？です。キリキさん、ヒントをありがとうございました。
（純丸）(o^-')b　　(*´ノェ｀)こっそり　与太郎→弥太郎？

    （’’？）あっ　ほんとだ（滝汗
 リアルで、与太郎とあだ名の奴がいまして。。。
 また間違えた～
 師匠～　　スイマセンm(_ _)m
 （キリキ）(；＞o＜)ｂ

 コホン、・・・
 　　（与太郎）（口がへの字に曲がった笑顔で）

コメント返信：

[ 一覧(最新更新順) ]

[[20050423175641]] 『金種関数』（純丸） ページの最後に飛ぶ

[[20050423175641]]　『金種関数』（純丸）　ページの最後に飛ぶ