駐車場の料金算出 ~ユーザー定義関数~

ユーザー定義関数

昨日書いた記事[駐車場の料金算出]なんですが、検証が甘く正確な数字にならない点がありました。考え方だけ・・・という形として記事は残しておきますが、計算式をそのまま使う事は止めてください。

そして今回ユーザー定義関数で作ってみました。

ユーザー定義関数



ユーザー定義関数の作り方を参考にしてください。

VBAコードは・・・



以下になります。

このコードをそのままモジュールにコピー&ペーストしてください。(データの入ったエクセルファイルのモジュールに)

29-1.jpg



使い方



使い方としては、セルに=Tyuusya(入庫時間,出庫時間,分込み計算の判定)となります。

29-2.jpg



分込みの判定とは・・・前回書いたように30分でも10分でも料金を計算するかどうかの判定です。

0、もしくは設定しないと時間単位(分を切り捨て)の算出

1に設定すると分も含めた算出になります。



それと、時間の設定や料金帯が変わった場合にも対応させる為、設定部分を作っております。

変更したい場合は—-設定-----内を変更すればOKです。



24時間駐車した場合の料金は

6:00~22:00→400円/h

22:00~6:00→ 70円/h

で計算すると6300円になったので6300円にしています。

コメントをどうぞ

メールアドレスが公開されることはありません。

TODAY 標準報酬月額 図形 STDEV SUM コンビニ 履歴書 XLSTART ネットプリント 偏差値 VLOOKUP 無料 目標 バーコード COUNTIF 検索 NA() 作業効率UP SUMIF 封筒 COLUMN フロー図 チルダ テンプレート コピペ クイズ 印刷 ワイルドカード 配列数式 条件付き書式
  • 関西在住の30代サラリーマン。事務職で毎日Excelと戯れています。
    システム導入なんて資金が無い!Excelでなんとかやりたい零細中小の社長さん・事務員さんの力になればと思います。
    詳しいプロフィール


PAGE TOP ↑