tatsu99様 マクロについて

大分前にとてもお世話になりました。
tatsu99様に作って頂いたり教えて頂いたマクロは会社でとても活躍されています。感謝いたしております！
マクロを今も勉強中なのですが、前にtatsu99様に作って頂いたマクロで教えて頂きたいことがあり質問いたしました。

画像つきの私の質問で解答して下さったマクロに追加をしたいのですがどこに入れたらいいか・・・

１枚目は前も張りました。２枚目は月割りや日割りを計算して１枚目に反映させるためのデータシートなのですが、ﾘｰｽ会社を「アクティオ」だけでなく「クボタ建機｣と「コマツ」を増やしましたところ増やした会社のﾘｰｽ金額が反映されなくて作ってくださったマクロにどうか書き足せばよいかご教授ください(泣）

質問者からの補足コメント

• ２枚目はシート名「データ表」のﾘｰｽの詳細です

  
    補足日時：2018/12/10 22:38

• ３枚目はtatsu９９様が書いてくださったマクロです
  文字数が足りなかったので写真にいたしました。見えにくかったら数回に分けて補足で書きます!

  
    補足日時：2018/12/10 22:47

• Q1　大きくすると表がカットされてしまうので、２枚に分けて張り付けいたします。
  文章解説・・ﾘｰｽ会社は「アクティオ」「クボタ建機」「コマツ」の３つです。
  B112からB147まではアクティオのﾘｰｽ品目が書かれていて、F112からF147はクボタ建機、J112からJ147はコマツと、同様に品目名が書かれています。
  C112からC147までにはアクティオの各品目の月極規格日数が書かれていて、G112からG147はクボタ建機、K112からK147はコマツと、同様に書かれています。
  D112から147まではアクティオの月割り単価が書かれていて、H112からH147はクボタ建機、L112からL147はコマツと同様に書かれています。
  そしてE112からE147には日割り単価が書いています。I112からI147はクボタ建機、M112からM147はコマツと、同様に書いています

  
  No.1の回答に寄せられた補足コメントです。 補足日時：2018/12/11 16:26

• 2枚目の切れた部分の写真です。
  前の質問はその質問であっています！
  作って頂いたマクロも完璧に反映されています！
  データが書いているシート名は「データ表」です
  ここまではマクロのおかげで完璧なのですが、
  シート名「リース」のN行に実際借りた日数によって月割り単価で出す場合と日割り単価で出す場合を計算して反映させたいのです。
  たとえば、アクティオの発電機 6Kを2日間借りた場合は月極規格が10日であるから、日割り単価を出して2日間で1000×2日間の2000と表示したり、15日間借りた場合は10日以上借りたので月割り単価の10000を表示したいのですがN行に計算式をと考えたのですがなかなかうまく出来ません・・・
  なにか方法はありますでしょうか？

  
    補足日時：2018/12/11 16:44

• 1,はい、その３つで、全角です。
  2、その算出です。
  3、言葉が足りなくてお手数をおかけしすみません。
  例２↓
  現場Aでは作業が１月１日から３月１日までかかりました。。
  １月１０日にアクティオの発電機6Kを借り始めたとします。
  返却したのが２月の15日でした。借りた日数は37日間です。ﾘｰｽ会社の月極規格は借り始めた日から３０日間となっています。ですので1月１０日から２月８日までの３０日間の間で月極規格日数以上借りているので10000円と算出いたします。２月９日からまた１日目と考えて３０日間の間で残り借りた日数７日は月極規格日数に足していないので1000×7で7000円と算出いたします。
  
  今追加があり月極規格、単価のほかに「保証料」と「基本料」を付け足さなければいけなくなったのでデータ表の配置が変わってしまいました。すみません・・↓↓

  
  No.2の回答に寄せられた補足コメントです。 補足日時：2018/12/12 15:41

• .

  
    補足日時：2018/12/12 15:42

• 先ほどの算出にプラス「保証料」と「基本料」を足して「リース」シートのＮ行に反映できたらと思います。
  保証料と基本料も品目ごとに金額が違うのですが、保証料は借りた日数×保証料かかります（例：保証料が100円として、３日間借りたら100×3の300円。５０日間借りたら100×50の5000円）
  基本料はその品目を１回借りるとかかります（例：基本料が1000円として５日間借りても５０日間借りても1000円です）
  これらは月極規格とかは関係ありません。
  ちなみにﾘｰｽ会社とデータ表のセル位置はそのままなのですが、品目名とそれぞれの金額はまだ情報収集中なので仮名と仮金額で書いています。
  
  最初の質問の日割りか月極かを算出した金額に上記の保証料と基本料を上乗せした金額を反映したのですが、難しいでしょうか...(泣)
  
  色々変わってしまい申し訳ありません

  
    補足日時：2018/12/12 15:54

• 1はそのままです。整数で小数点もつきません
  
  2は少し違っていて、リース会社は月日関係なく借りた日を１日目として借りた日から３０日間ごとに一区切りしてリセットします。上の例で計算しますと
  期間=３５日の場合　
  ３０日間の間に借りた日数は３０日で、月極規格は10日以上なので10000。
  またリセットして３０日間に借りた日数は５日ですので日割り単価で算出し5000。
  保証料×35＝350
  基本料＝5
  合計10000+5000+350+5＝15355　となります
  
  期間＝15日の場合
  合計10000+150+5＝10155　となります
  
  期間＝62日の場合
  10000+10000+2000+620+5＝22625となります

  No.3の回答に寄せられた補足コメントです。 補足日時：2018/12/13 13:13

No.4 ベストアンサー 回答者： tatsu99 回答日時： 2018/12/13 13:50

文字数オーバーなので、こちらに登録しました。

下記URLを参照ください。
https://ideone.com/mBEpAK
標準モジュールへ登録してください。

この回答へのお礼

完璧でございます・・・驚愕いたしました！ややこしいのでさすがに無理だと思っておりましたが感動です！
先生と呼ばせてください！またお願いすることがあるかもしれませんがその時はお時間がお暇なときでかまわないのでご教授いただけたらと思います！
ありがとうございました！！

お礼日時：2018/12/13 15:46

No.3 回答者： tatsu99 回答日時： 2018/12/12 18:08

最終確認です。

１．月極規格日数、月割り単価、日割り単価、保証料、基本料は全て整数であり、小数点はつかない。
２．金額は以下の式にて算出する。
期間を月極規格日数で割った商と余りを取得する。
金額＝商×月割り単価＋余り×日割り単価＋期間×保証料＋基本料
例
月極規格日数＝１０
月割り単価＝１００００
日割り単価＝１０００
保証料＝１０
基本料＝５
の場合、期間＝３５日の場合は、
商＝35÷１０＝３
余り＝３５÷１０＝５
金額＝３×１００００＋５×１０００＋３５×１０＋５
＝３５３５５円
上記で間違いないでしょうか。

この回答へのお礼

お世話になっております。
エクセルでまた塞がっておりまして、お時間があるときで良いのでアドバイスをいただけたら助かります！よろしくお願いいたします！

https://oshiete.goo.ne.jp/qa/10932702.html

お礼日時：2019/01/18 16:29

No.2 回答者： tatsu99 回答日時： 2018/12/11 17:04

追加の補足要求です。

１．シート表のB列の内容は下記の何れかであってますか。
アクティオ
クボタ建機
コマツ

全て全角であり、上記以外の文字があった場合はエラーとなりますがよろしいでしょうか。


２．金額の算出
①シート表のM行の借りた期間（日数）が、該当品目の月極規格日数未満の場合
金額＝該当品目の日割り単価×借りた期間（日数）

②シート表のM行の借りた期間（日数）が、該当品目の月極規格日数以上の場合
金額＝該当品目の月割り単価

上記であってますか。

あなたが提示された例で、
アクティオの発電機 6Kを2日間借りた場合は月極規格が10日であるから、日割り単価を出して2日間で1000×2日間の2000と表示したり、15日間借りた場合は10日以上借りたので月割り単価の10000を表示したい
とのことですが、
例えば、100日間借りても金額は月割り単価の10000でいいのですか。
もし、違う場合は、どのように計算すれば良いですか。

No.1 回答者： tatsu99 回答日時： 2018/12/11 11:56

前回回答者です。

以下、補足要求です。
１．2枚目の画像がよくわかりませんので、もっと大きい画像を提示していただけませんでしょうか。
２．2枚目の画像のシート名は何でしょうか。
３．2枚目の画像のシートを使って、金額を求める手順を提示していただけませんでしょうか。
４．前回のマクロは
https://oshiete.goo.ne.jp/qa/9978208.html
のNo3のもので間違いないですか。（マクロに修正を入れたり、セルの配置が変わったりしていることはないですか）