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

ユーザー定義関数

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

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

ユーザー定義関数



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

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円にしています。

コメントをどうぞ

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

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


PAGE TOP ↑