関数やVBAについて

質問

あまり（ほとんど）関数を理解していない者です。関数にお詳しい方、VBAにお詳しい方、教えてください。
只今、旅費精算書を見直し、再作成をしているんですが、旅費規則に則って関数などを入れていきたいのですが、サッパリわかりません。先ず旅費規則で宿泊を要する出張の場合は、旅行中の日数（零時から２４時までの暦日）に対し、
次の宿泊日当を支給する。
但し、地域の交通機関の状況により基準を午前零時とすることが甚だしく不都合
な場合は、実情に応じて変更することができる。
宿泊日当 2,600 円／日
但し、在勤事業所又は出張先の地を午前６時前に出発した場合、750 円
／回を加算支給する。在勤事業所又は出張先の地に午後１０時を超えて到着した場
合、1,150 円／回を加算支給する。
２．日帰り出張の場合は、１日（零時から２４時までの暦日）当り、次の日帰り日当を
支給する。（課長以上は不支給）４時間未満 1,050 円
４時間以上８時間未満 1,700 円
８時間以上１２時間未満 3,400 円
１２時間以上 5,100 円
但し、日帰り出張８ 時間以上で午後１ ０ 時を超えて到着した場合、
1,150 円／回を、午前６時前に出発した場合、750 円／回を加算する。
３．在勤事業所を基準に、直線距離７５km 圏内は原則、日当は不支給とするが、５０
km～７５km の範囲については、片道移動時間９０分を目安に日当支給地域を指定
することができる。
４．研修に参加する場合、日当支給範囲であっても、移動を伴わない研修日に対する日
当は支給しない。
５．社有又は私有の自動車を自ら運転して出張を行った場合は、内国旅費規則に定める日
当または日帰り出張費の他、実走行距離10 ㎞以上の場合に限り、10 ㎞につき100 円の
「走行費」を支給する。
また、私有の自動車を自ら運転して出張を行った場合は、前段の「走行費」の他、実
走行距離が10 ㎞以上の場合に限り社用実走行距離に見合う消費燃料を現物支給し、次
の区分により「運転加算」を加算する。但し、「内国旅費規則」に定める日当または日
帰り出張費が支給される場合は不支給とする。
・普通自動車を利用の場合 走行距離10 ㎞につき58 円
・軽自動車を利用の場合 走行距離10 ㎞につき51 円
６．走行距離の計算は、出張中の旅行日を通算するものとし、10 ㎞未満の端数は5 ㎞
未満を切り捨て、5 ㎞以上は10 ㎞に切り上げる。長くてすいません。これに対しての関数を添付させていただいた旅費精算書に入れていきたいのですが分からないので教えてください。宜しくお願い致します。

回答No.3

yamada82 · ベストアンサー

いちから作ろうと思うとそれなりにエクセルの知識も必要な内容です。
１と２だけなら、
「出発日」、「到着日」、「出発時間」、「到着時間」で4セル分用意し(時間のセルは16:00といった表記で）、
到着日-出発日＝宿泊日数なので、宿泊日数×2600＝「宿泊日当」
但し～6時前～10時を超えて～部分はとりあえず「早朝加算」「夜加算」といった名前にすると、
早朝加算セルは＝if(出発時間＜6/24,750,0)
夜加算セルは=if(到着時間>22/24,1150,0)
※時間は24時間で1となるので、6時は6/24＝0.25となる。
よって、出発時間が0.25より小さいなら750、大きいなら0というif関数の式。
2は出発日＝到着日のとき、到着時間-出発時間の時間を計算して、これを4時間未満～5100円の表からindex関数とmatch関数で計算したいところ。
といったところでいけるけど、これに3以降の条件が絡むので、それらを一つにまとめていくと複雑になってきますね。
ここまでが理解できるなら、3以降も盛り込んだ清算書が作れるかも。

お礼

親切に対応いただきありがとうございます<(_ _)>

回答No.2

imogasi

こんなのは、ルールや事実認定が複雑すぎて、ｴｸｾﾙ関数「１式」や「数個のケースを、IF文のネストで分けるエクセル関数式」（結果は１式だが）では無理でしょう。そういう無理ということを理解せず、質問している状態が問題でしょう。
中間作業データ（セル、列に）を一旦作って、わかりやすく（式を簡単に）する方式も活用するとよいと思う。
＝＝
まずフローチャート式に内容を整理すること。よく判った社内の数人で、誤りないか（把握漏れ、ケース数え上げ漏れ、適用条件間違い、が多いと思うが）討論すること。箇条書き方式も活用できると思う。
計算式は最終区分段階ではそんなに複雑ではないだろう。
＝＝＝
以上出たらコンピュータ処理するのだが、本件では複雑になるのは目に見えて居るので、VBAで処理する（記述する）ほかないだろう。
本件では、場合分けが重要・複雑と思うが、関数式１式では限られている。
VBAでは
（１）変数とういう中間結果を一旦記号化できる。
（２）場合分けの処理も、分かち書きや色んな処理モジュールへ分岐を行える
（３）データベース的な処理が出来る（そういうモジュールがある場合がある）
ので、関数だけでやるのは、早やばやとあきらめる方がよいと思う。
関数にもVLOOKUPとか配列数式とカ言うのもあり、使える局面はある場合がある。
　システムのプロでも（部外者であるがため、熟練してないため、社内ルールの理解が及ばず、またテストデータ不備で）場合分けを漏らしたり、間違えたりして、後日エラーで問題になることは起こりえる、ほどの問題だと思う。
ーーー
本課題のフローチャート的整理は、読者・回答者がやれるほど簡単（内容的、所要時間的）ではないと思うので、本件読者に当てにする（頼む）のは無理でしょう。
＝＝
付け足して、ブレーンストーミング式に、場合をメモに文章にして書き出して、それを算出する条件項目などを整理する方法も、常識的ですが、良いのでは。

お礼

ありがとうございました。

回答No.1

MT765

出発日時や到着日時、日帰りか泊まりか、研修なのかどうか等のデータを入力してそれに基づいた金額が出てほしいんですよね。

それらのデータが入力されたら「◯◯の場合」という条件（IF文などの条件式）に基づいて計算（計算式）されるようにするのが基本になります。

まずは旅費規則を一つずつ
「条件式」と「計算式」で組み直してみましょう。

例えば１は

条件式（宿泊を要する出張の場合）であれば
計算式（2600円×日数）の宿泊日当を支給

になりますよね。
ここで条件として必要なのは「宿泊を要するかどうか」「日数は何日なのか」となります。
これは都度入力させることになります。

また
条件式（午前６時前に出発した場合 or 午後１０時を超えて到着した場
合）
計算式（1150円×その回数）を加算
というのも必要になります。
ここで必要な情報は出発・到着時刻です。

こんな感じで規則をすべて必要なデータと条件式、計算式に分解して金額を出して最終的には合計する感じになるのではないでしょうか。

これ全部を回答でVBAのコードにするのは流石に厳しいので、まずはご自分で上記のように文章でできるところまでやってみてください。

関数やVBA化はそのあとですね。

お礼

ありがとうございました。